A continuación, veremos un programa en Excel VBA eso puede cuerdas inversas.
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.
Atenuar texto como cadena, texto inverso 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 ("Ingrese el texto que desea invertir")
longitud = Len (texto)
3. Comenzamos un ciclo For Next.
Para i = 0 hasta la longitud - 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 (texto, (longitud - i), 1)
5. No olvide cerrar el ciclo.
Siguiente yo
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 la 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 reverseText
7. Pruebe el programa.
Resultado:
