Tabla de contenido
Puede realizar la lógica o devolver caracteres individuales de una cadena en VBA recorriendo la cadena.
Recorrer cada carácter en una cadena
El siguiente es un ejemplo de cómo recorrer una cadena usando un For … Next Loop y devolver cada carácter en un msgbox.
| 1234567891011121314 | Sub LoopThroughString ()Contador de atenuación como enteroDim MyString como cadenaMyString = "AutomateExcel" 'definir cadenaPara el contador = 1 a Len (MyString)'haz algo con cada carácter de la cadena'aquí vamos a enviar un mensaje a cada carácterMsgBox Mid (MyString, Contador, 1)próximoEnd Sub |
La función Len cuenta el número total de caracteres de la cadena. Entonces la expresión
| 1 | Para Counter = 1 to Len (MyString |
recorrerá cada letra de la cadena.
Recorrer cada carácter de una cadena: alternativa
Leer todos los caracteres de una cadena
: Este ejemplo lee todos los caracteres de una cadena de izquierda a derecha y devuelve el resultado en un cuadro de mensaje. Hace uso de la Medio función.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere como cadenaContador de atenuación como entero'Usa tu propio texto aquíLookInHere = "easyexcel.net"Para el contador = 1 a Len (LookInHere)MsgBox Mid (LookInHere, Contador, 1)próximoEnd Sub |
Leer cada palabra en una cadena
Este ejemplo lee cada palabra en una cadena de izquierda a derecha y devuelve el resultado en un cuadro de mensaje. Hace uso de la Separar función.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere como cadenaContador de atenuación como enteroDim SplitCatcher como variante'Usa tu propio texto aquíLookInHere = "I Heart easyexcel.net"SplitCatcher = Dividir (LookInHere, "")Para contador = 0 a UBound (SplitCatcher)MsgBox SplitCatcher (contador)próximoEnd Sub |
