Como fazer uma pesquisa filtrada instantaneamente enquanto você digita em uma célula no Excel?
Este artigo fornece um método para você pesquisar e filtrar instantaneamente enquanto digita em uma célula no Excel.
Pesquisa filtrada instantaneamente enquanto você digita com código VBA
Pesquisa filtrada instantaneamente enquanto você digita com código VBA
Como mostrado na captura de tela abaixo, você tem uma Lista de Nomes que deseja pesquisar e filtrar instantaneamente enquanto digita em uma célula específica. Por favor, siga os passos a seguir para alcançar isso.
1. Primeiramente, você precisa criar uma tabela com os dados da lista e nomear a tabela como “Name”. Por favor, selecione toda a lista, clique em Inserir > Tabela.
2. Na caixa de diálogo Criar Tabela que se abre, clique em OK. Veja a captura de tela:
3. Clique em qualquer célula da tabela para ativar a guia Design e, em seguida, renomeie a tabela como Name na caixa de texto Nome da Tabela. Veja a captura de tela:
4. Clique em Desenvolvedor > Inserir > Caixa de Texto (Controle ActiveX) para inserir uma caixa de texto acima da lista de tabelas, conforme mostrado na captura de tela abaixo:
5. Clique com o botão direito na Caixa de Texto e clique em Propriedades; na janela Propriedades, digite uma referência de célula na caixa LinkedCell.
6. Clique com o botão direito na Caixa de Texto e selecione Visualizar Código no menu de contexto. Em seguida, substitua o código original pelo seguinte código VBA na janela Microsoft Visual Basic for Applications. Veja a captura de tela:
Código VBA: Pesquisa filtrada instantaneamente enquanto você digita no Excel
Private Sub TextBox1_Change()
'Update by Extendoffice 2018/08/22
Dim xStr, xName As String
Dim xWS As Worksheet
Dim xRg As Range
On Error GoTo Err01
Application.ScreenUpdating = False
xName = "Name"
xStr = TextBox1.Text
Set xWS = ActiveSheet
Set xRg = xWS.ListObjects(xName).Range
If xStr <> "" Then
xRg.AutoFilter field:=1, Criteria1:="*" & xStr & "*", Operator:=xlFilterValues
Else
xRg.AutoFilter field:=1, Operator:=xlFilterValues
End If
Err01:
Application.ScreenUpdating = True
End SubObservação: No código, TextBox1 é o nome da caixa de texto inserida, Name é o nome da lista de tabelas. Você pode alterá-los conforme suas necessidades.
7. Pressione as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.
8. Desative o Modo de Design clicando em Desenvolvedor > Modo de Design.
A partir de agora, a lista de tabelas será pesquisada e filtrada instantaneamente com base no valor digitado na caixa de texto. Veja a captura de tela:
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins