La función StrReverse en VBA es una función incorporada que invierte el orden de los caracteres en una cadena de texto. Para utilizarla, simplemente debes pasar la cadena que quieres invertir como argumento de la función.

Ejemplo

Sub InvertirCadena()
    Dim cadenaOriginal As String
    Dim cadenaInvertida As String

    ' Define la cadena original
    cadenaOriginal = "Hola Mundo"

    ' Invierte la cadena
    cadenaInvertida = StrReverse(cadenaOriginal)

    ' Muestra el resultado
    MsgBox "La cadena invertida es: " & cadenaInvertida
End Sub

En el ejemplo anterior, al ejecutar el procedimiento InvertirCadena, un mensaje mostrará «odnuM aloH», que es la cadena «Hola Mundo» invertida.

La función es sencilla, y no necesitas hacer nada más que llamarla con una cadena válida. Ten en cuenta que StrReverse también invertirá el texto con caracteres especiales o acentuados.

Si quisieras incluir StrReverse en una función personalizada para su uso más genérico o para implementar lógica adicional, podrías hacerlo también:

Ejemplo como Function

Function InvertirTexto(texto As String) As String
    ' Usa la función StrReverse para invertir el texto
    InvertirTexto = StrReverse(texto)
End Function

Sub UsarFuncionInvertir()
    Dim resultado As String
    
    ' Llamada a la función personalizada
    resultado = InvertirTexto("¡Bienvenido a VBA!")
    
    ' Muestra el resultado invertido
    MsgBox resultado
End Sub

Este código demuestra cómo se puede encapsular el uso de StrReverse dentro de una función definida por el usuario, que luego es usada dentro de un procedimiento Sub. La llamada a InvertirTexto recibe la cadena «¡Bienvenido a VBA!» y la devuelve invertida, mostrándola en un mensaje emergente.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto