A continuación vamos a ver un programa en Excel VBA que puede revertir cuerdas.

Situación:

Reverse String in Excel VBA

Coloque un botón de comando en la hoja de trabajo y añadir las líneas de código siguientes:

  1. En primer lugar, declarar cuatro variables. Una variable llamada de texto de tipo String, una variable llamada reversedText también de tipo String, una variable llamada longitud de tipo entero, y una variable i llama de tipo entero.

Dim text As String, reversedText As String, length As Integer, i As Integer
  1. inicializar dos variables. Utilizamos la función InputBox para obtener una cadena de texto por parte del usuario. Utilizamos la función Len en Excel VBA para obtener la longitud de una cadena.

text = InputBox("Enter the text you want to reverse")

length = Len(text)

Enter Text

  1. Se inicia un bucle For Next.

For i = 0 To length - 1
  1. Ahora viene el truco sencillo. Tomamos el último carácter de texto y la colocamos en la parte delantera de ReversedText. Podemos utilizar la función Mid en Excel VBA para extraer un carácter de una cadena. Utilizamos el operador & para concatenar (unir) dos cadenas.

reversedText = reversedText & Mid(text, (length - i), 1)
  1. No se olvide de cerrar el bucle.

Next i

Ejemplo: text = «coche». La longitud del texto es 3. Para i = 0 a 2, extraemos la subcadena de texto a partir de longitud posición – i con la longitud 1. Así, para i = 0, Mid (texto, 3, 1) es igual a r. Ponemos r en la primera posición de reversedText. Para i = 1, Mid (texto, 2, 1) es igual a a. Añadimos una a reversedText que se convierte en la AR. Para i = 2, Mid (texto, 1, 1) es igual a C. Añadimos C a reversedText que se convierte rac.

  1. Por último, se muestra reversedText utilizando un MsgBox.

msgbox reversedText
  1. El programa de prueba.

Resultado:

Reverse String Result