Excel Sanear Texto (Sustituir caracteres especiales texto)

Sencilla utilidad gratuita de JuanmaBlog.tk para sustituir automáticamente vocales acentuadas y eñes del texto introducido mediante una macro de MS Excel. Al abrir el libro se muestra la advertencia de seguridad de que contiene macros, que se debe validar para que la utilidad quede operativa. Es desaconsejable autorizar macros de libros de MS Excel de autoría desconocida. El contenido de la macro que crea la función SANEAR(), cuyo único argumento es la cadena a tratar, puede consultarse mediante la combinación de teclas Alt+F11 y es el siguiente:
Function SANEAR(cadena As String) As String
 Dim posicion As Long
 Const conAcento As String = “áéíóúÁÉÍÓÚüÜñÑ”
 Const sinAcento As String = “aeiouAEIOUuUnN”
 For i = 1 To Len(conAcento)
  cadena = Replace(cadena, Mid(conAcento, i, 1), Mid(sinAcento, i, 1))
 Next i
 SANEAR = cadena
End Function
Descarga: Sanear Texto
Anuncios

Acerca de jmlopezmartinez

Informatico
Esta entrada fue publicada en Sin categoría. Guarda el enlace permanente.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.