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 criar caixas de listagem dinâmicas em cascata no Excel?

Você pode saber como criar uma lista suspensa de validação em cascata no Excel. No entanto, como criar caixas de listagem dinâmica em cascata no Excel? Este artigo apresenta um método VBA para abaixá-lo.

Criar caixas de listagem em cascata dinâmicas com código VBA

Guia do Office Habilitar Edição e Navegação por Guias no Office e Facilitar seu Trabalho ...
Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
  • Reutilizar qualquer coisa: Adicione as fórmulas, gráficos e outras coisas mais usadas ou complexas aos seus favoritos e reutilize-os rapidamente no futuro.
  • Mais do que recursos de texto 20: Extrair número da string de texto; Extrair ou remover parte de textos; Converta números e moedas em palavras em inglês.
  • Mesclar Ferramentas: Várias pastas de trabalho e folhas em um; Mesclar várias células / linhas / colunas sem perder dados; Mesclar linhas duplicadas e soma.
  • Ferramentas de divisão: Dividir dados em várias folhas com base no valor; Uma pasta de trabalho para vários arquivos Excel, PDF ou CSV; Uma coluna para várias colunas.
  • Colar pulando Linhas ocultas / filtradas; Contagem e Soma pela cor de fundo; Envie emails personalizados para vários destinatários em massa.
  • Super Filtro: Crie esquemas de filtro avançados e aplique a qualquer folha; tipo por semana, dia, frequência e mais; filtros por negrito, fórmulas, comentário ...
  • Mais de recursos poderosos do 300; Funciona com o Office 2007-2019 e 365; Suporta todos os idiomas; Fácil implantação em sua empresa ou organização.

Criar caixas de listagem em cascata dinâmicas com código VBA


Como mostrado na captura de tela abaixo, você precisa criar uma caixa de listagem pai que contém os valores exclusivos da coluna Bebida e exibir todos os valores correspondentes na segunda caixa de listagem com base na seleção na caixa de listagem pai. O código VBA a seguir ajuda você a alcançá-lo. Por favor faça o seguinte.

1. Em primeiro lugar, você precisa extrair todos os valores exclusivos da coluna Bebida. Selecione uma célula em branco, digite a fórmula da matriz =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") no Barra de Fórmula, e depois pressione o botão Ctrl + mudança + entrar chave. Em seguida, arraste o Alça de preenchimento para obter todos os valores exclusivos. Veja a captura de tela:

notas: Na fórmula, $A$2:$A$11 é o intervalo do qual você extrairá valores exclusivos. J1 é a célula acima de onde sua fórmula está localizada.

Ponta: Se a fórmula é muito difícil de lembrar e lidar, a Selecione Duplicate & Unique Cells utilidade de Kutools for Excel será uma boa escolha para você extrair rapidamente todos os valores exclusivos de uma coluna.

Por favor, selecione a coluna contém valores exclusivos que você irá extrair. Em seguida, ative o utilitário clicando em Kutools > Selecionar > Selecione Duplicate & Unique Cells. No Selecione Duplicate & Unique Cells caixa de diálogo, selecione a Todos únicos (incluindo 1st duplicatas) opção e clique no OK botão. Então, todos os valores exclusivos são selecionados na coluna. Copie e cole-os em um novo local. Veja a captura de tela:

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!

2. Inserir duas caixas de listagem separadamente clicando Developer > inserção > Caixa de listagem (controle ActiveX). Ver captura de tela:

3. Clique com o botão direito do mouse na caixa de listagem pai e selecione Propriedades no menu de contexto. No Propriedades caixa de diálogo, altere o (Nome) campo para Bebidas ou outro nome que você precisar, digite o intervalo de células que contém os valores exclusivos extraídos Faixa lista Fill campo e feche a caixa de diálogo.

4. Repita o passo 3 para alterar a segunda caixa de listagem (Nome) campo para Item no Propriedades caixa de diálogo.

5. Clique com o botão direito na guia da planilha e selecione Ver código no menu de clicar com o botão direito. Em seguida, copie abaixo o código do VBA para a janela de código. Veja a captura de tela:

Código VBA: criar caixas de listagem dinâmica em cascata no Excel

Dim xPreStr As String
Private Sub Drink_Click()
'Update by Extendoffice 2018/06/04
    Dim I, xRows As Long
    Dim xRg As Range
    Dim xRegStr As String
    Application.ScreenUpdating = False
    xRegStr = Me.Drink.Text
    Set xRg = Range("A2:A11")
    xRows = xRg.Rows.Count
    If xRegStr <> xPreStr Then
    Me.Item.Clear
   'Me.OtherListBoxName.Clear
    Set xRg = xRg(1)
    For I = 1 To xRows
        If xRg.Offset(I - 1).Value = xRegStr Then
            Me.Item.AddItem xRg.Offset(I - 1, 1).Value
            'Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value
        End If
    Next
    xPreStr = xRegStr
    End If
    Application.ScreenUpdating = True
End Sub

Notas: No código Drink e Item são os nomes de duas caixas de listagem, altere-as para seus próprios nomes.

6. aperte o outro + Q chaves para fechar Microsoft Visual Basic para Aplicações janela.

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

De agora em diante, ao selecionar qualquer tipo de bebida, como Café na caixa de listagem pai, todos os itens de café serão exibidos no segundo. Selecione Chá ou Vinho exibirá apenas os itens de chá ou vinho na segunda caixa de listagem. Veja a captura de tela:


Artigos relacionados:


Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair texto, Adicionar texto, remover por posição, Remover espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salve e aplique esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro especial por negrito, itálico ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 30.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no Word, Excel, PowerPoint, 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!
fundo officetab
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.