VBA – Bucle a través de una cadena
In this Article
Este tutorial demostrará cómo hacer un bucle a través de una cadena usando VBA.
Puede realizar la lógica o devolver caracteres individuales de una cadena en VBA haciendo un bucle a través de la cadena.
Recorrer cada carácter de una cadena
El siguiente es un ejemplo de un bucle a través de una cadena utilizando un bucle For…Next, y devolviendo cada carácter en un msgbox.
Sub Buscar_a_traves_de_cadena()
Dim Contador As Integer
Dim miCadena As String
miCadena = "AutomateExcel" 'definir cadena
For Contador = 1 To Len(miCadena)
'hacer algo con cada carácter de la cadena
'aquí haremos un msgbox con cada carácter
MsgBox Mid(miCadena, Contador, 1)
Next
End Sub
El Función Len cuenta el número total de caracteres de la cadena. Así que la expresión
For Contador = 1 to Len(miCadena)
hará un bucle a través de cada letra de la cadena.
Bucle a través de cada carácter en una cadena – Alternativa
Leer cada carácter de una cadena
Este ejemplo lee cada carácter de una cadena de izquierda a derecha y devuelve el resultado en un cuadro de mensaje. Hace uso de la función Función Mid.
Sub Buscar_a_traves_de_cadena()
Dim buscarAqui As String
Dim Contador As Integer
'Utilice su propio texto aquí
buscarAqui = "AutomateExcel.com"
For Contador = 1 To Len(buscarAqui)
MsgBox Mid(buscarAqui, Contador, 1)
Next
End Sub
Leer cada palabra de una cadena
Este ejemplo lee cada palabra de una cadena de izquierda a derecha y devuelve el resultado en un cuadro de mensaje. Hace uso de la función Dividir Función.
Sub Buscar_a_traves_de_cadena2()
Dim buscarAqui As String
Dim Contador As Integer
Dim CapturadorSplit As Variant
'Utilice su propio texto aquí
buscarAqui = "Me encanta AutomateExcel.com"
CapturadorSplit = Split(buscarAqui, " ")
For Contador = 0 To UBound(CapturadorSplit)
MsgBox CapturadorSplit(Contador)
Next
End Sub
La codificación VBA es fácil
Deje de buscar código VBA en línea. Aprenda más sobre AutoMacro – Un generador de código VBA que permite a los principiantes codificar procedimientos desde cero con un mínimo conocimiento de codificación y con muchas características que ahorran tiempo a todos los usuarios