A continuación veremos un programa en Excel VBA que puede invertir cadenas .
Situación:
Coloca un botón de comando en tu hoja de trabajo y añade las siguientes líneas de código:
1. Primero, declaramos cuatro variables. Una variable llamada texto de tipo String, una variable llamada texto invertido también de tipo String, una variable llamada longitud de tipo Integer, y una variable llamada i de tipo Integer.
Texto oscuro como cadena, invertidoTexto como cadena, longitud como entero, i como entero
2. Inicializamos dos variables. Usamos la función InputBox para obtener una cadena de texto del usuario. Usamos la función Len en Excel VBA para obtener la longitud de una cadena.
text = InputBox(«Introduce el texto que quieres invertir») longitud = Len(texto)
3. Empezamos un bucle de For Next.
Para i = 0 A la longitud – 1
4. Ahora viene el simple truco. Tomamos el último personaje del texto y lo colocamos al frente de ReversedText. Podemos usar la función Mid en Excel VBA para extraer un carácter de una cadena. Usamos el operador & para concatenar (unir) dos cadenas.
reversedText = reversedText & Mid(texto, (longitud – i), 1)
5. No te olvides de cerrar el bucle.
Siguiente…
Ejemplo: texto = «Coche». La longitud del texto es 3. Para i = 0 a 2, extraemos la subcadena de texto comenzando en la posición longitud – i con longitud 1. Así, para i = 0, Mid(texto, 3, 1) es igual a r. Colocamos r en la primera posición del texto invertido. Para i = 1, Mid(texto, 2, 1) es igual a. Añadimos a al texto invertido que se convierte en ra. Para i = 2, Mid(texto, 1, 1) es igual a C. Añadimos C al texto invertido que se convierte en raC.
6. Finalmente, mostramos el texto invertido usando un MsgBox.
msgbox reversedText
7. Pruebe el programa.
Resultado:
