A continuación, veremos un programa en Excel VBA que puede invertir cadenas .
Situación:
Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:
1. Primero, declaramos cuatro variables. Una variable llamada texto de tipo String, una variable llamada reversedText también de tipo String, una variable llamada longitud de tipo Integer y una variable llamada i de tipo Integer.
Dim text As String, reversedText As String, length As Integer, i As Integer
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("Enter the text you want to reverse")
length = Len(text)
3. Comenzamos un ciclo For Next.
For i = 0 To length - 1
4. Ahora viene el truco simple. Tomamos el último carácter 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(text, (length - i), 1)
5. No olvide cerrar el ciclo.
Next i
Ejemplo: texto = "Coche". La longitud del texto es 3. Para i = 0 a 2, extraemos la subcadena de texto que comienza en la longitud de la posición - i con longitud 1. Por lo tanto, para i = 0, Mid (text, 3, 1) es igual a r. Colocamos r en la primera posición de reverseText. Para i = 1, Mid (texto, 2, 1) es igual a a. Agregamos un a reverseText que se convierte en ra. Para i = 2, Mid (text, 1, 1) es igual a C. Agregamos C a reverseText que se convierte en raC.
6. Finalmente, mostramos invertedText usando un MsgBox.
msgbox reversedText
7. Pruebe el programa.
Resultado:
3/5 Completado! Obtenga más información sobre la manipulación de cadenas>
Siguiente capítulo: fecha y hora