Invertir una cadena de texto con VBA
La rutina de VBA a continuación permite al usuario ingresar una cadena, y luego se le presenta la misma cadena al revés. Por ejemplo, "Monday" se convierte en "yadnoM":
| 123456789101112131415161718192021222324252627282930313233343536 | Opción explícitaPrivado Sub CommandButton1_Click ()'Definir variablesDim Original_String como cadenaDim Reversed_String como cadenaAtenuar Next_Char como cadenaDim Longitud como enteroDim Pos As Integer'Obtener la cadena originalOriginal_String = InputBox ("Por favor ingrese la cadena original:")'Encuentra la longitud revisada de la cuerdaLongitud = Len (Original_String)'Configurar la cuerda invertidaReversed_String = ""'Progreso a través de la cadena carácter por carácter'Comenzando por el último personaje y yendo hacia el primer personajePara Pos = Longitud hasta 1 paso -1Next_Char = Mid (Cadena_original, Pos, 1)Reversed_String = Reversed_String y Next_CharSiguiente posMsgBox "La cadena invertida es" & Reversed_StringEnd Sub |
Las principales características del código son: -
• Necesita un botón de comando para activar el código - en el evento de clic
• Se configuran las siguientes variables: -
o Original_String: la cadena original que se invertirá ("Lunes")
o Reversed_String - la cadena invertida ("yadnoM")
o Next_Char: el siguiente carácter de la cadena que se invertirá
o Longitud: la longitud de la cuerda
o Pos - la posición actual en la cadena
• Un InputBox para capturar la cadena. Esto se almacena en la variable "Cadena original"
• La longitud de la cadena se calcula utilizando la función LEN y se almacena en la variable Longitud
• Un bucle FOR… NEXT está configurado para recorrer la cadena comenzando en el último carácter y trabajando hacia atrás un carácter a la vez.
• El siguiente carácter de la cadena original (trabajando hacia atrás) se agrega luego a la cadena invertida.
• Este bucle se repite hasta que hayamos atravesado toda la longitud de la cadena.
• La cadena invertida se muestra en un MsgBox.
Descarga el archivo de Excel aquí
