A continuación veremos un programa en Excel VBA eso puede cuerdas inversas .
Situación:
cómo nombrar un rango de celdas en Excel
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.
NingunotextoComoString, reverseTextComo Cuerda, largoComo Entero, IComo 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.
cómo contar dígitos en Exceltext = InputBox ('Ingrese el texto que desea revertir')
longitud = Len (texto)
3. Comenzamos un ciclo For Next.
Parai = 0Paralongitud - 14. 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.
próximoIEjemplo: 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.
cómo escribir vlookup en Excel
6. Finalmente, mostramos invertedText usando un MsgBox.
msgbox reverseText7. Pruebe el programa.
Resultado:
Ir al capítulo siguiente: Fecha y hora
