Cadenas inversas en Excel VBA

Buenos días, soy Miguel y durante el dia de hoy os traigo un nuevo post.

A continuación veremos un programa en Excel VBA eso puede cadenas inversas.

Localización:

Cadena inversa en Excel VBA

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.

Oscuro texto Cómo Cadena, texto invertido Cómo Cuerda, largo Cómo Entero, me Cómo 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)

Ingrese texto

3. Comenzamos un ciclo For Next.

Para i = 0 Para longitud - 1

4. Ahora viene el truco simple. Tomamos el último carácter del texto y lo colocamos delante 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.

Entonces me

Ejemplo: texto = "Coche". La longitud del texto es 3. Para i = 0 a 2, extraemos la subcadena del texto comenzando desde 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 (text, 2, 1) es igual a. Agregamos un texto inverso que se convierte en ra. Para i = 2, Mid (text, 1, 1) es igual a C. Agregamos C al texto inverso que se convierte en raC.

6. Finalmente, mostramos el texto inverso usando un MsgBox.

msgbox Texto invertido

7. Pruebe el programa.

Resultado:

Resultado de cadena inversa

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info