VBA - Instr
La función InStr devuelve la primera aparición de una cadena dentro de otra cadena. La búsqueda se realiza de izquierda a derecha.
Sintaxis
InStr([start,]string1,string2[,compare])
Descripción de parámetros
Start- Un parámetro opcional. Especifica la posición de inicio de la búsqueda. La búsqueda comienza en la primera posición de izquierda a derecha.
String1- Un parámetro obligatorio. Cadena a buscar.
String2- Un parámetro obligatorio. Cadena en la que se busca String1.
Compare- Un parámetro opcional. Especifica la comparación de cadenas que se utilizará. Puede tomar los siguientes valores mencionados.
0 = vbBinaryCompare: realiza una comparación binaria (predeterminado)
1 = vbTextCompare - Realiza una comparación de texto
Ejemplo
Agregue un botón y agregue la siguiente función.
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
Cuando ejecuta la función anterior, produce la siguiente salida.
Line 1 : 6
Line 2 : 0
Line 3 : 8
Line 4 : 9
Line 5 : 2
Line 6 : 16
Line 7 : 11