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?

Un Palíndromo es una palabra o frase que se lee igual de izquierda a derecha, que de derecha a izquierda, se suelen omitir los espacios en blanco, considerar las mayúsculas y minúsculas como iguales, y los acentos suelen ser considerados equivalentes a las vocales sin acento al momento de determinar si un texto es un Palíndromo.

Ejemplos de Palíndromo:

            "Somos"

            "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…

¿Cómo crear una macro que verifique que la palabra es palíndromo?

Empecemos con la siguiente macro para resolver los casos sencillos, en un modulo use:

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 un palíndromo 1 Que es un palíndromo 1

Que es Palíndromo

Deja una respuesta

Los campos requeridos estan marcados con *.