Como fazer uma pesquisa filtrada instantânea 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 instantânea enquanto você digita com o código VBA
Pesquisa filtrada instantânea enquanto você digita com o 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, faça o seguinte para terminar.
1. Em primeiro lugar, você precisa criar uma tabela com os dados da lista e nomear a tabela como “Nome”. Selecione a lista completa, clique inserção > mesa.
2. Na abertura Criar a tabela caixa de diálogo, clique em OK. Veja a imagem:
3. Clique em qualquer célula da tabela para ativar o Design guia e renomeie a tabela como Nome no Nome da tabela caixa de texto. Veja a imagem:
4. Clique Developer > inserção > Caixa de texto (controle ActiveX) para inserir uma caixa de texto acima da lista de tabelas, conforme a imagem abaixo mostrada:
5. Clique com o botão direito na caixa de texto e clique Propriedades, Na Propriedades janela, digite uma referência de célula no Célula Vinculada caixa.
6. Clique com o botão direito na caixa de texto e selecione Ver código no menu de contexto. Em seguida, substitua o código original pelo código VBA abaixo no Microsoft Visual Basic para Aplicações janela. Veja a imagem:
Código VBA: pesquisa filtrada instantânea conforme 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 Sub
Note: No código, Caixa de texto1 é o nome da caixa de texto inserida, Nome é o nome da lista da tabela. Você pode alterá-los de acordo com suas necessidades.
7. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.
8. Desative o modo de design clicando em Developer > Modo de design.
A partir de agora, a lista de tabelas será pesquisada e filtrada instantaneamente com base no valor inserido na caixa de texto. Veja a imagem:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!