Excel Avanzado

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

Excel Avanzado
ICONO 150x150, ¿Qué es un Palíndromo?

¿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 un palíndromo 1, ¿Qué es un Palíndromo?

Que es Palíndromo

Deja un comentario

Los campos requeridos estan marcados con *.