VBA - Instr

A função InStr retorna a primeira ocorrência de uma string dentro de outra string. A busca acontece da esquerda para a direita.

Sintaxe

InStr([start,]string1,string2[,compare])

Descrição do Parâmetro

Start- Um parâmetro opcional. Especifica a posição inicial para a pesquisa. A pesquisa começa na primeira posição da esquerda para a direita.
String1- Um parâmetro obrigatório. String a ser pesquisada.
String2- Um parâmetro obrigatório. String em relação à qual String1 é pesquisada.
Compare- Um parâmetro opcional. Especifica a comparação de string a ser usada. Pode assumir os seguintes valores mencionados.
- 0 = vbBinaryCompare - executa comparação binária (padrão)
- 1 = vbTextCompare - Executa comparação de texto

Exemplo

Adicione um botão e adicione a seguinte função.

Private Sub Constant_demo_Click() 
   Dim Var As Variant 
   Var = "Microsoft VBScript" 
   MsgBox ("Line 1 : " & InStr(1, Var, "s")) 
   MsgBox ("Line 2 : " & InStr(7, Var, "s")) 
   MsgBox ("Line 3 : " & InStr(1, Var, "f", 1)) 
   MsgBox ("Line 4 : " & InStr(1, Var, "t", 0)) 
   MsgBox ("Line 5 : " & InStr(1, Var, "i")) 
   MsgBox ("Line 6 : " & InStr(7, Var, "i")) 
   MsgBox ("Line 7 : " & InStr(Var, "VB")) 
End Sub

Quando você executa a função acima, ela produz a seguinte saída.

Line 1 : 6
Line 2 : 0
Line 3 : 8
Line 4 : 9
Line 5 : 2
Line 6 : 16
Line 7 : 11

↰ Previous page