invertir un texto

29/11/2007 - 01:52 por Peter Hiovany Fonseca Buitrago | Informe spam
Agradeciendo de antemano sy ayuda.
Necesito invertir un texto que tengo en una celda, si el texto es (pedro),
necesito que en la otra celda sea (ordep). Gracias.
 

Leer las respuestas

#1 David
29/11/2007 - 02:31 | Informe spam
Vas a tener que utilizar código.

Considera la siguiente función:

Function Invertir(texto As String)
Dim x As String, N As Long, j as long
N = Len(texto)
For j = 1 To N
x = Mid(texto, j, 1) & x
Next j
Invertir = x
End Function

Para implementarla, debes abrir el archivo donde la vas a utilizar. Haces
clic en "Herramientas" - "Macro" - "Editor de Visual Basic", y en la ventana
que aparezca, pulsas clic en el menú "Insertar" y luego en "Módulo". Por
último, pegas lo anterior, y cierras la ventana del Editor de Visual Basic.

Luego, para utilizarla, en alguna celda escribes:

=Invertir(A1)

(suponiendo que en A1 se encuentra el texto que deseas invertir), y es todo,
la función te devolverá el texto al revés.

Nota:
Para que no tengas problemas en el futuro, revisa la configuración de
seguridad de tu Excel: Haz clic en "Herramientas" - "Macro" - "Seguridad", y
selecciona "Medio".

Saludos.



"Peter Hiovany Fonseca Buitrago" escribió:

Agradeciendo de antemano sy ayuda.
Necesito invertir un texto que tengo en una celda, si el texto es (pedro),
necesito que en la otra celda sea (ordep). Gracias.

Preguntas similares