VBA – Bucle a través de una cadena

Written by

Editorial Team

Reviewed by

Steve Rynearson

Translated by

Dennis Madrid

Last updated on agosto 22, 2022

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 alt text

Más información

<<Volver a los ejemplos de VBA

vba-free-addin

Complemento de Ejemplos de Código de VBA

Acceda fácilmente a todos los ejemplos de código que se encuentran en nuestro sitio.

Simplemente navegue al menú, haga clic y el código se insertará directamente en su módulo. Complemento .xlam.

(¡No se requiere instalación!)

Descarga gratuita

Return to VBA Code Examples