Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

¿Qué es un Palíndromo?

| Sin comentarios

¿Qué es un palíndromo?

Una palabra o frase que se lee igual de izquierda a derecha que de derecha a izquierda.
Esto es un palíndromo:

            "Dábale arroz a la zorra el abad"

Prueba a leerlo de derecha a izquierda… ¿Lo ves?
Un número también puede ser un palíndromo, pero en ese caso hablamos de números capicúa: 34.443, 181, 2442…

¿Como crear una macro que verifique que la palabra es palíndromo?

Digitamos la siguiente macro, creando un modulo nuevo:

Sub palindromo()
Dim palabras As String
Dim invertida As String

palabra = Cells(6, 2)
invertida = StrReverse(palabra)

If palabra = invertida Then
Cells(6, 3) = "Si es palíndromo"
Else
Cells(6, 3) = "No es palíndromo"
End If

End Sub

a) A continuación, se explicará cada parte de este módulo:

palabra = Cells(6, 2): obtenemos el dato de la celda que está en la fila 6 y columna B, a este valor le colocamos palabra.
invertida = StrReverse(palabra): utilizamos la función StrReverse, que devuelve una cadena cuyos caracteres están en orden inverso de la variable palabra.
If palabra = invertida Then Cells(6, 3) = "Si es palíndromo": si la variable palabra e invertida son iguales, entonces "Si es palíndromo", el cual será colocado en la celda de la fila 6 y columna C.
Else Cells(6, 3) = "No es palíndromo" End If: de lo contrario "No es palíndromo", el cual será colocado en la celda de la fila 6 y columna C.

 

b) En la siguiente Imagen, observamos que se colocó la palabra ana. Y al hacer click en Verificar texto, obtenemos en la celda C6 que "Si es palíndromo".

Que es Palíndromo

Deja un comentario

Los campos requeridos estan marcados con *.