Função VBA: InStr

Descrição

A função VBA INSTR retorna um número inteiro correspondente à primeira posição encontrada do valor na sequência de caracteres (ou 0 se nenhuma correspondência for encontrada).

Sintaxe INSTR

InStr(posição_inicial, texto, valor_pesquisa)

Ou

InStr(posição_inicial, texto, valor_pesquisa, caso)

Exemplo VBA InStr

Usando a função InStr para determinar a posição da palavra "excel" (iniciando a pesquisa a partir do caractere 1 do nome do site):

Sub InStrExample1()  
      
    sitename = "www.moonexcel.com.ua"  
    
    'Posição da palavra "excel" em sitename
    position = InStr(1, sitename, "excel")  
      
    MsgBox position 'Retorna: 9
    
End Sub

Usando a função InStr para encontrar a posição da palavra "EXCEL" (desta vez adicionando um valor de "1" ao 4º argumento para ignorar o caso):

Sub InStrExample2()  
      
    sitename = "www.moonexcel.com.ua"  
      
    'Posição da palavra "EXCEL" em sitename (sem distinção entre maiúsculas e minúsculas)
    position = InStr(1, sitename, "EXCEL", 1)  
      
    MsgBox position 'Retorna: 9
      
End Sub  

VERIFIQUE SE O TEXTO CONTÉM UM VALOR

A função InStr também pode ser usada para determinar se o nome de um site contém uma string de pesquisa:

Sub InStrExample3()
    
    sitename = "www.moonexcel.com.ua"
    
    If InStr(1, sitename, "excel") > 0 Then
       MsgBox "Então!"
    End If
    
End Sub

Neste exemplo, se a posição for encontrada, a função retornará um número maior que 0 e exibirá uma caixa de diálogo.