Como ativar o preenchimento automático 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 precisa ou digitar a palavra inteira corretamente na caixa de listagem. Existe alguma maneira de fazer com que a lista suspensa complete automaticamente ao digitar os caracteres correspondentes? Isso ajudaria as pessoas a trabalharem de forma mais eficiente em planilhas com listas suspensas nas células. Este tutorial fornece dois métodos para ajudá-lo a alcançar isso.

Ative o preenchimento automático das listas suspensas com código VBA
Ative facilmente o preenchimento automático das listas suspensas em 2 segundos
Mais tutoriais para listas suspensas...

Ative o preenchimento automático das listas suspensas com código VBA

Por favor, siga os passos abaixo para criar uma lista suspensa que se autocomplete após digitar as letras correspondentes na célula.

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

1. Abra a planilha que contém as células da lista suspensa que você deseja tornar autocompletáveis.
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 visível na sua faixa de opções, vá para a etapa 3. Caso contrário, faça o seguinte para exibir a guia Desenvolvedor na faixa de opções: Clique em "Arquivo" > "Opções" para abrir a janela "Opções". Nesta janela "Opções do Excel", clique em "Personalizar Faixa de Opções" no painel esquerdo, marque a caixa "Desenvolvedor" e depois clique no botão "OK". Veja a captura de tela:
   
3. Clique em "Desenvolvedor" > "Inserir" > "Caixa de Combinação (Controle ActiveX)".
   
4. Desenhe uma caixa de combinação na planilha atual. Clique com o botão direito nela e selecione "Propriedades" no menu de contexto.
   
5. Na caixa de diálogo "Propriedades", substitua o texto original no campo "(Nome)" por "TempCombo."
   
6. Desative o "Modo de Design" clicando em "Desenvolvedor" > "Modo de Design".

Depois, aplique o código VBA abaixo

1. Clique com o botão direito na guia da planilha atual e clique em "Exibir Código" no menu de contexto. Veja a captura de tela:
   
2. Na janela aberta "Microsoft Visual Basic for Applications", copie e cole o código VBA abaixo na janela de Código da planilha.
   Código VBA: Autocompletar 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

   
3. Pressione simultaneamente as teclas "Alt + Q" para fechar a janela Microsoft Visual Basic for Applications.

A partir de agora, ao clicar em uma célula da lista suspensa, a lista suspensa será exibida automaticamente. Você pode começar a digitar a letra para que o item correspondente seja completado automaticamente na célula selecionada. Veja a captura de tela:

Ative facilmente o preenchimento automático da lista suspensa em 2 segundos

Para a maioria dos usuários do Excel, o método VBA acima é difícil de dominar. Mas com o recurso "Lista Suspensa Pesquisável" do Kutools para Excel, você pode facilmente habilitar o preenchimento automático para listas suspensas de validação de dados em um intervalo especificado em apenas 2 segundos. Além disso, esse recurso está disponível para todas as versões do Excel.

1. Para habilitar o preenchimento automático em suas listas suspensas, primeiro selecione o intervalo com as listas suspensas. Em seguida, navegue até a guia "Kutools", escolha "Lista Suspensa" > "Tornar a Lista Suspensa Pesquisável, Auto-popup."
2. Na caixa de diálogo "Tornar a Lista Suspensa Pesquisável", clique no botão "OK" para salvar a configuração.

Resultado

Uma vez concluída a configuração, ao clicar em uma célula da lista suspensa dentro do intervalo especificado, aparecerá uma caixa de listagem. Ao digitar caracteres, assim que um item corresponder exatamente, a palavra inteira será destacada imediatamente na caixa de listagem e poderá ser preenchida na célula da lista suspensa simplesmente pressionando a tecla Enter.

Artigos relacionados: