macro Excel VBA que usa o método Find() para localizar palavras em um determinado range na folha de planilha e colorir de verde. O código usa um loop Do While para encontrar todas as ocorrências da palavra.
vba
Sub EncontrarEColorir()
Dim ws As Worksheet
Dim rng As Range
Dim cel As Range
Dim palavra As String
Dim primeiraOcorrencia As String
' Definindo a planilha e o intervalo onde a busca será realizada
Set ws = Worksheets("NomeDaSuaPlanilha")
Set rng = ws.Range("A1:Z100") ' Defina o intervalo conforme necessário
palavra = "SuaPalavra" ' Defina a palavra a ser localizada
' Usando o método Find() para localizar a palavra
Set cel = rng.Find(What:=palavra, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
' Iniciando o loop Do While para encontrar todas as ocorrências
If Not cel Is Nothing Then
primeiraOcorrencia = cel.Address
Do
cel.Interior.Color = RGB(0, 255, 0) ' Colorindo de verde
Set cel = rng.FindNext(cel)
Loop While Not cel Is Nothing And cel.Address <> primeiraOcorrencia
Else
MsgBox "Palavra não encontrada no intervalo especificado."
End If
End Sub
Explicação:
- Definindo a planilha e o intervalo: Você pode definir a planilha e o intervalo onde a busca será realizada ajustando
NomeDaSuaPlanilhaeA1:Z100conforme necessário. - Definindo a palavra a ser localizada: Substitua
"SuaPalavra"pela palavra que você deseja localizar no intervalo especificado. - Usando o método Find(): O método
Find()é usado para localizar a primeira ocorrência da palavra no intervalo. - Iniciando o loop Do While: O loop
Do Whilecontinua a encontrar e colorir todas as ocorrências da palavra até que todas sejam processadas.
Espero que isso ajude! Se tiver alguma dúvida ou precisar de mais assistência, estou aqui para ajudar.
📘 Prof. Expedito Marcondes Tire-Dúvidas: [email protected]
