¿Cómo encontrar posición de un carácter especial en Excel que utiliza VBA

Como programador, usted va a trabajar con una gran cantidad de cadenas. La capacidad de encontrar la posición de un carácter particular en Excel utilizando Visual Basic para aplicaciones que pueden ahorrar mucho tiempo al escribir el código. Anteriormente, lo haría con bucle a través de cada carácter en una cadena y utilizar un contador para realizar un seguimiento de la posición. Ahora, en VBA, puede utilizar la función InStr para buscar un carácter particular y devolver la posición.

Instrucciones

1 Lanzamiento de Microsoft Excel y escriba "Encontrar la posición de cualquier personaje en esta frase." En A1. Haga clic en la pestaña "desarrolladores" y haga clic en "Visual Basic" para abrir el Editor de Visual Basic. Añadir un nuevo módulo de código VBA haciendo clic en el menú "Insertar" y haciendo clic en "módulos".

2 Añadir un nuevo procedimiento añadiendo el siguiente código:

Private Sub findPositionOfCharacter ()

3 Crear las siguientes tres variables que va a utilizar para encontrar la posición de tu personaje:

Dim MiCadena As String
Dim como secuencia mychar
Dim Pos como número entero

4 Definir el carácter que desea encontrar y obtener la sentencia se encuentra en A1:

mychar = "d"
Range ( "A1"). Seleccionar
mystring = Range ( "A1"). Valor

5 Copia y pega el código siguiente para encontrar la posición del carácter definido en el paso anterior y mostrar un mensaje con su posición:

Pos = InStr (1, miCadena, mychar, vbTextCompare)
MsgBox ( "La posición de '" & mychar & "' es:" & Pos)

6 Tipo "End Sub" para poner fin a su procedimiento y pulse la tecla "F5" para ejecutar el código VBA.