Como usar a função InStrRev em VBA?

A função `InStrRev` em VBA (Visual Basic for Applications) é usada para encontrar a posição de uma substring dentro de uma string, começando a busca a partir do final da string. Isso pode ser útil quando você deseja encontrar a última ocorrência de uma substring em vez da primeira, que é o que a função `InStr` faz.

Aqui está a sintaxe básica da função `InStrRev`:

InStrRev(stringCheck, stringMatch, [start], [compare])

stringCheck: A string que será pesquisada.
stringMatch: A substring que você deseja encontrar dentro de `stringCheck`.
start (opcional): A posição inicial para começar a pesquisa, contando do final da string. Se omitido, a pesquisa começa no final da string.
compare (opcional): O tipo de comparação a ser realizada. Essa pode ser vbBinaryCompare (comparação binária) ou vbTextCompare (comparação textual, que ignora diferenças entre maiúsculas e minúsculas). Se omitido, o padrão é vbBinaryCompare.

Aqui está um exemplo de como usar `InStrRev`:

Sub ExemploInStrRev()
    Dim texto As String
    Dim palavra As String
    Dim posicao As Integer

    texto = "Aprender VBA é útil. Aprender VBA pode ser divertido."
    palavra = "VBA"
    
    ' Encontrar a última ocorrência de "VBA" no texto
    posicao = InStrRev(texto, palavra)
    
    If posicao > 0 Then
        MsgBox "A última ocorrência de '" & palavra & "' está na posição: " & posicao
    Else
        MsgBox "'" & palavra & "' não foi encontrado no texto."
    End If
End Sub

No exemplo acima, a função `InStrRev` procura pela última ocorrência da palavra “VBA” na string `texto`. A posição é então exibida em uma caixa de mensagem. Caso a substring não seja encontrada, a função retorna 0.

Certifique-se de ter um módulo VBA aberto no Excel ou em outro aplicativo do Microsoft Office para executar esse código.

facebooklinkedin