0
Obrigado

Algumas palavras de agradecimento nunca são demais.

VBA: o método Find

O método Find permite encontrar a primeira ocorrência de uma informação específica em uma linha. Objetivamente, esse método permite buscar em uma planilha ou parte de uma planilha Excel, uma informação, dado ou parte dele.




Com o Excel

O Excel possui uma ferramenta de busca embarcada. Para abri-la, acesse o arquivo e vá em Localizar e selecionar > Localizar:



Digite o valor a ser pesquisado, defina as opções e clique em Avançar.

O código VBA correspondente

O gravador de macro nos dá o seguinte código (termo de busca: "Valor"):


 Option Explicit

Sub Cherche()
\'Declaração de variáveis:
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String

\'********* A ser adaptado ***********
\ Atribuir valores às variáveis:
\'Procura-se a palavra "Encontre"
Valor_procurado = "Encontre"
\'Na primeira coluna da planilha ativa
Set PlageDeRecherche = ActiveSheet.Columns(1)
\'*******************************
\ Method find, aqui se procura o valor exato (LookAt: = xlWhole)
Set Encontre=
PlageDeRecherche.Cells.Find Localizar (o: = lookup_value, LookAt: = xlWhole)

\ Processamento \ erro possível: Se não há nada: If Trouve Is Nothing Then
\ Aqui, o tratamento para os casos em que o valor não for encontrado
endereço encontrado=valor_procura & está presente no" & PlageDeRecherche.Address
Outro
\ Aqui, o tratamento para os casos em que o valor é encontrado
AdresseTrouvee = Trouve.Address
End If
MsgBox AdresseTrouvee
>


Observação: se tivéssemos tentado o número em vez da palavra Encontre 1024, deveria ter sido declarado
lookup_value As Integer
. O que está mudando é que você pode procurar qualquer tipo de dados do Excel, ou o tempo que você quer especificar, na declaração da variável.

Pesquisa múltipla

Os FindNext e FindPrevious podem repetir a pesquisa. Quando a pesquisa chega ao final do intervalo de pesquisa especificada, ele retorna para o início. Para interromper uma pesquisa quando ela retorna ao ponto de partida, salve o endereço da primeira célula encontrada e, em seguida, compare o endereço de cada célula encontrado mais tarde com o endereço registrado.

Foto: © Dzmitry Kliapitski - 123RF.com
Veja também
Este documento, intitulado 'VBA: o método Find', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.

Assine nossa newsletter!

Receba toda semana o melhor conteúdo

Assine nossa newsletter!