Descripción de INSTR
Esta función es particularmente útil en combinación con otras funciones que permiten la manipulación de textos.
La función InStr retorna la posición de la primera ocurrencia de una cadena de caracteres en otra cadena de caracteres.
La sintaxis de la función InStr es la siguiente:
InStr( [posición inicial], texto base, texto a buscar, [tipo comparación] )
posición inicial (opcional): Es la posición en la cual empieza la búsqueda. Si el parámetro es omitido, la búsqueda empezará en la primera posición.
texto base: es la cadena donde se buscará la ocurrencia.
texto a buscar: es la cadena de texto que se buscará.
tipo comparación (opcional): Indicará el modo de búsqueda.
Ejemplo de INSTR
Ejemplo1:
Sub Prueba_Instr()
Texto = "XXpXXpXXPXXP"
buscar = "P"
'Comparación binaria, busca P, si encuentra p lo considerará distinto
Posicion = InStr(4, Texto, buscar, vbBinaryCompare)
MsgBox Posicion
'Comparación de texto, P ó p será lo mismo en esta búsqueda
Posicion = InStr(4, Texto, buscar, vbTextCompare)
MsgBox Posicion
'Si no se coloca el tercer parámetro asume binaria (exacta)
Posicion = InStr(Texto, buscar)
MsgBox Posicion
' Si el texto no existe retorna cero
Posicion = InStr(1, Texto, "W")
MsgBox Posicion
End Sub
Ejemplo2:
Sub FUNCION_INSTR()
posicion = InStr("Hola", "l")
Range("B3") = posicion
End Sub
En posición se guardará el valor de 3 que es la posición que ocupa "l" en la cadena "Hola".
Esta posición una vez obtenida puede ser empleadas por otras fórmulas para determinar cual es el texto que se requiere obtener.
Elaborado por: Luis Pinto
04/11/2012 a las 10:02 pm
Haciendo un ejemplo utilizando esta función, en la celda (A2) pongo el texto, en la celda (B2) el valor a buscar y resultado lo muestro en la celda (C2):
Sub funcionInSrt()
Dim texto As String
Dim valorBuscar As String
Dim posicion As Integer
texto = Range("A2").Value
valorBuscar = Range("B2").Value
posicion = InStr(texto, valorBuscar)
Range("C2") = posicion
End Sub
04/11/2012 a las 10:15 pm
Me acabo de dar cuenta si el texto(A2) lo pongo en Mayúsculas, y el valor de la celda (B2) lo escribo en Minúsculas, utilizando la función InStr me arroja 0 del valor de la posición ya que no encuentra el valor buscado dentro de nuestro Texto.
Una solución ha este ejemplo seria convertir a minúsculas utilizando LCase ambas celdas tanto A2 y B2; o en otro caso utilizar UCase para convertir a Mayúscula las celdas, el código quedaría así:
Sub funcionInSrt()
Dim texto As String
Dim valorBuscar As String
Dim posicion As Integer
texto = Range("A2").Value
texto = LCase(texto)
valorBuscar = Range("B2").Value
valorBuscar = LCase(valorBuscar)
posicion = InStr(texto, valorBuscar)
Range("C2") = posicion
End Sub
03/05/2015 a las 4:52 am
tambien podrias usar el tipo de comparacion de texto como se describe aca. Si no determinas el tipo de busqueda, la toma como binaria
01/05/2017 a las 11:09 am
Muchas gracias por tu gran aporte!!!, no tienes ni la mas remota idea de como me salvaste!!!
Un gran saludo!
16/04/2019 a las 3:16 pm
Rellena de color una celda según criterio.
Por ejemplo tengo todas una fila con los dias de la semana y en otra fila lo mismos. la idea es que debajo de cada de semana (primera fila), según el día se rellenar la siguiente fila con un color ejemplo amarillo pero un día anterior.
15/06/2019 a las 5:51 pm
Tengo un problema, em mi trabajo me dieron dos bases de datos. En una de ellas tengo solo nombre y apellido y el valor de la compra, y en la otra tengo los dos nombres y dos apellidos.
Necesito lo siguiente
Valor buscado: Cristian Zambrano
Valor encontrado: Cristian Israel Zambrano Andrade
23/01/2020 a las 3:21 am
Aunque el uso de la función InStr es bastante fácil, no consigo averiguar porque la siguiente macro devuelve el valor de posición 0(pos=0). ¿Qué se me esta escapando?
Sub pruebacadena()
Dim pos As Integer
pos = InStr(1, "A", "Pago en AUTOPISTA MARE NOSTRUM VALENCIA ES", vbTextCompare)
MsgBox (pos)
End Sub
06/07/2022 a las 10:49 pm
Hola amigo es por el tipo de comparacion que le estas pasando como argumento, quitale el ultimo argumento a la funcion y vuelve a probar