Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como preencher o Combo Box com dados do intervalo nomeado no Excel?

Você pode especificar uma caixa de combinação (controle ActiveX) com dados de um determinado intervalo adicionando o intervalo nas propriedades ListFillRange da caixa de combinação. Mas você sabe como preencher uma caixa de combinação com dados de um intervalo nomeado no Excel? Por exemplo, você nomeou um intervalo de células em sua planilha, e agora, precisa especificar esse nome de intervalo em uma caixa Combo. Ao selecionar o nome do intervalo em uma caixa de combinação, todos os valores de célula neste intervalo nomeado serão preenchidos em outra caixa de combinação automaticamente. Este artigo irá introduzir um método VBA para resolver este problema.

Preencha a caixa combinada com dados de um intervalo nomeado com código VBA


Inserir ou excluir facilmente várias caixas de seleção em massa no Excel:

O Caixas de seleção de inserção em lote utilidades de Kutools for Excel pode ajudá-lo a inserir rapidamente várias caixas de seleção no intervalo selecionado de uma só vez. E você pode excluir todas as caixas de seleção no intervalo selecionado com o Caixas de verificação de exclusão em lote. Veja sccreenshot:

Kutools for Excel: com mais de 200 complementos úteis do Excel, grátis para tentar sem limitação nos dias 60. Baixe e teste grátis agora!


Preencha a caixa combinada com dados de um intervalo nomeado com código VBA


Faça o seguinte para preencher a caixa de combinação com dados de um intervalo nomeado no Excel.

1. Selecione os cabeçalhos inteiros (neste caso, selecione A1: E1) em sua planilha e digite um nome no nome Box como abaixo a tela mostrada.

2. Selecione cada dado de coluna, exceto seu cabeçalho, e então nomeie a coluna separadamente no nome Box. Ver captura de tela:

Nesse caso, eu nomeei o intervalo A2: A8, B2: B8, C2: C8, D2: D8 e E2: E8 como data, loja, itens, vendas e dia da semana separadamente.

3. Em seguida, insira uma caixa de combinação clicando Desenvolvedor > inserção > Caixa combinada (controle ActiveX). Ver captura de tela:

4. Repita o passo 3 para inserir outra caixa Combo na planilha.

5. Clique com o botão direito do mouse na guia Folha e clique em Ver código no menu de contexto. Ver captura de tela:

6. Na abertura Microsoft Visual Basic para Aplicações janela, copie e cole abaixo o código VBA na janela Código.

Código VBA: preencher caixa combinada com dados de um intervalo nomeado

Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
    Dim xRg As Range
    Set xRg = Range(Me.ComboBox1.Text)
    Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Set xRg = Range("Headers")
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

notas: No código, ComboBox1 é o nome da caixa de combinação que você irá listar todos os nomes de intervalo dentro, e ComboBox2 é o nome da caixa de combinação que os dados do intervalo nomeado especificado serão preenchidos dentro. O "Cabeçalho" é o nome da faixa que você criou no step1.

7. Desligue o modo de design clicando Desenvolvedor > Modo de design.

8. Clique em qualquer célula na planilha para ativar o código. Clique no botão de seta na primeira caixa de combinação, você pode ver todos os intervalos nomeados estão listados dentro. Ver captura de tela:

Ao selecionar um intervalo nomeado na primeira caixa de combinação, os dados de célula correspondentes serão preenchidos na segunda caixa de combinação, conforme mostrado abaixo na tela:


Artigos relacionados:



Ferramentas de produtividade recomendadas para o Excel

Kutools for Excel ajuda você a concluir o trabalho antes do tempo e se destacar da multidão

  • Mais do que poderosos recursos avançados do 300, projetados para cenários de trabalho 1500, aumentando a produtividade em 70%, você tem mais tempo para cuidar da família e aproveitar a vida.
  • Não precisa mais memorizar fórmulas e códigos VBA, dê um descanso a seu cérebro a partir de agora.
  • Torne-se um especialista em Excel em minutos 3, operações complicadas e repetidas podem ser feitas em segundos,
  • Reduza milhares de operações de teclado e mouse todos os dias, diga adeus às doenças ocupacionais agora.
  • 110,000 pessoas altamente eficazes e escolha de empresas de renome mundial 300 +.
  • 60-day full features versão de avaliação gratuita. Garantias de devolução do dinheiro 60. 2 anos de atualização e suporte gratuitos.

Traz navegação com guias e edição para o Microsoft Office, muito mais poderosa do que as guias do navegador

  • A guia Office foi projetada para Word, Excel, PowerPoint e outros aplicativos do Office: Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.