Como autocompletar ao digitar na lista suspensa do Excel?

Para uma lista suspensa de validação de dados com muitos itens, você precisa rolar para cima e para baixo na lista para encontrar o que você precisa ou digitar a palavra inteira na caixa de listagem corretamente. Existe algum método para fazer uma lista suspensa preenchida automaticamente ao digitar a primeira letra ou qualquer caractere relativo? Isso ajudará as pessoas a trabalhar com mais eficiência em planilhas com listas suspensas nas células. Este tutorial fornece dois métodos para ajudá-lo a alcançá-lo.

Preenchimento automático ao digitar na lista suspensa com código VBA
Preenchimento automático ao digitar na lista suspensa com uma ferramenta incrível
Mais tutoriais para a lista suspensa ...

Preenchimento automático ao digitar na lista suspensa com código VBA

Faça o seguinte para preencher automaticamente uma lista suspensa após digitar as letras correspondentes na célula.

Em primeiro lugar, você precisa inserir uma caixa de combinação na planilha e alterar suas propriedades.

1. Abra a planilha que contém a célula da lista suspensa que você deseja que seja preenchida automaticamente.

2. Antes de inserir uma caixa de combinação, você precisa adicionar a guia Desenvolvedor à faixa de opções do Excel. Se a guia Desenvolvedor estiver aparecendo em sua faixa de opções, mude para a etapa 3. Caso contrário, faça o seguinte: Clique Envie o > Opções para abrir o Opções janela. Nisso Opções do Excel janela, clique em Personalizar Faixa de Opções no painel esquerdo, verifique o Desenvolvedor e, em seguida, clique no OK botão. Veja a imagem:

3. Clique Desenvolvedor > inserção > Caixa de combinação (controle ActiveX).

4. Desenhe uma caixa de combinação na planilha atual. Clique com o botão direito e selecione Propriedades no menu do botão direito.

5. No Propriedades caixa de diálogo, substitua o texto original no (Nome) campo com TempCombo.

6. Desligue o Modo de design clicando Desenvolvedor > Modo de design.

Em seguida, aplique o código VBA abaixo

7. Clique com o botão direito na guia da planilha atual e clique Ver código no menu de contexto. Veja a imagem:

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

Código VBA: Preenchimento automático ao digitar na lista suspensa

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update by Extendoffice: 2020/01/16
    Dim xCombox As OLEObject
    Dim xStr As String
    Dim xWs As Worksheet
    Dim xArr
    
    Set xWs = Application.ActiveSheet
    On Error Resume Next
    Set xCombox = xWs.OLEObjects("TempCombo")
    With xCombox
        .ListFillRange = ""
        .LinkedCell = ""
        .Visible = False
    End With
    If Target.Validation.Type = 3 Then
        Target.Validation.InCellDropdown = False
        Cancel = True
        xStr = Target.Validation.Formula1
        xStr = Right(xStr, Len(xStr) - 1)
        If xStr = "" Then Exit Sub
        With xCombox
            .Visible = True
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width + 5
            .Height = Target.Height + 5
            .ListFillRange = xStr
            If .ListFillRange = "" Then
                xArr = Split(xStr, ",")
                Me.TempCombo.List = xArr
            End If
            .LinkedCell = Target.Address
        End With
        xCombox.Activate
        Me.TempCombo.DropDown
    End If
End Sub
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 9
            Application.ActiveCell.Offset(0, 1).Activate
        Case 13
            Application.ActiveCell.Offset(1, 0).Activate
    End Select
End Sub

9. Pressione outro + Q simultaneamente para fechar o Aplicativos Microsoft Visual Basic janela.

De agora em diante, ao clicar em uma célula da lista suspensa, a lista suspensa aparecerá automaticamente. Você pode começar a digitar a letra para que o item correspondente seja concluído automaticamente na célula selecionada. Veja a imagem:

NOTA Este código não funciona para células mescladas.

Preenchimento automático ao digitar na lista suspensa com uma ferramenta incrível

Uma vez que o VBA é difícil de manusear para muitos usuários do Excel, recomendo aqui o Lista suspensa pesquisável característica de Kutools for Excel para ajudá-lo a preencher facilmente uma lista suspensa automaticamente ao digitar o primeiro caractere.

Nota: Antes de aplicar o recurso, certifique-se de ter criado listas suspensas na planilha. Nesse caso, as listas suspensas são colocadas em D3: D9.

1. Clique Kutools > Lista suspensa > Lista suspensa pesquisável > Configurações.

2. No popping up Lista suspensa pesquisável caixa de diálogo, você precisa fazer as seguintes configurações.

3. Depois de terminar as configurações, você precisa habilitar o recurso clicando em Kutools > Lista suspensa > Lista suspensa pesquisável > Habilitar lista suspensa pesquisável.

Agora, quando você clica na célula da lista suspensa, uma caixa de listagem com todos os itens é exibida. Você só precisa digitar um caractere na caixa de texto para exibir todos os itens correspondentes e usar o Up or Para baixo seta para selecionar o item que você precisa ou apenas deixe o primeiro item correspondente preencher automaticamente a caixa de lista e, em seguida, pressione o Entrar para preencher automaticamente a célula da lista suspensa com o item correspondente. Veja a demonstração abaixo.

Clique para saber mais sobre este recurso.

Artigos relacionados:

---

As melhores ferramentas de produtividade para escritório

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

• armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
• Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
• Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
• Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
• Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de 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 (salvar e aplicar 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 ...
• Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
• Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.

Leia mais... Download grátis... Compra... 

---

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

• Habilite a edição e leitura com guias em 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!

Leia mais... Download grátis... Compra...