Quitar Acentos

15/07/2004 - 07:12 por Javier Leal | Informe spam
Buenos días grupo, espero que se encuentren bien, existe alguna función que
me regrese un texto sin acentos?

Si tengo:
ADIÓS que me regrese ADIOS??

Saludos!
Javier Leal.
 

Leer las respuestas

#1 Héctor Miguel
15/07/2004 - 08:22 | Informe spam
hola, Javier !

... alguna función que me regrese un texto sin acentos?
Si tengo: ADIÓS que me regrese ADIOS??



1.- usando funciones de hoja de calculo ???
[la mas 'sencilla de usar' que conozco es...] =Sustituir(donde,buscar_que,sustituir_con)
=> aunque... es 'sensible' a la escritura [mayusculas y/o minusculas] <= ... por lo cual 'habria que...'
'usar' DIEZ funciones [por 5 vocales acentuadas mayusculas y 5 mas por las minusculas] 'pero...'
como NO se pueden 'anidar' las diez a un tiempo... tendrias que 'separarlas' [al menos...] en dos celdas :(
o... 'forzar' a una 'comparacion' [p.e.] 'exclusivamente' =>en minusculas<= ;)
- suponiendo que la celda 'a devolver' es 'A1'
a) si quieres 'obtener' [sin acentos] el texto 'exacto' [tal como esta] en la celda 'A1'...
[B1] =sustituir(sustituir(sustituir(sustituir(sustituir(a1,"á","a"),"é","e"),"í","i"),"ó","o"),"ú","u")
[C1] =sustituir(sustituir(sustituir(sustituir(sustituir(b1,"Á","A"),"É","E"),"Í","I"),"Ó","O"),"Ú","U")
=>habra ocasiones en que sea 'suficiente' con la celda 'B1'... otras, 'hasta' la celda 'C1' :((
b) si quieres 'forzar' [la 'devolucion'] p.e. a =>todas en mayusculas<= ...
[x_celda]
=mayusc(sustituir(sustituir(sustituir(sustituir(sustituir(minusc(a1),"á","a"),"é","e"),"í","i"),"ó","o"),"ú","u"))
c) si 'necesitas' que la 'devolucion' sea en otro 'formato' ...
cambia [al inicio de la formula] =>mayusc<= por =>minusc<= o... =>nompropio<2.- si es por entrada 'directa' del usuario... podrias 'impedir' que se introduzcan palabras acentuadas
[en la/s celda/s 'originales'] por medio de reglas de validacion [p.e.]...
selecciona la celda 'A1' [o un rango de celdas que 'inicie' en la celda 'A1'] y...
- [menu] datos / validacion -> [configuracion] permitir -> personalizada
+ en el campo de la formula 'introduce'... =>OJO que debe ser UNA SOLA LINEA<
=y(eserror(encontrar("á",minusc(a1))),eserror(encontrar("é",minusc(a1))),eserror(encontrar("í",minusc(a1))),eserror(encontrar("ó",mi
nusc(a1))),eserror(encontrar("ú",minusc(a1))))
+ 'asegurate' de usar en el apartado de 'mensaje de error'... un 'estilo' de =>limite< + puedes 'personalizar' los mensajes para 'advertir' al usuario que NO debe usar palabras acentuadas :))
3.- otra posibilidad mas, seria usando macros [probablemente el evento '_change' de 'la hoja'] =>¿comentas?<
saludos,
hector.

p.e. te recuerdo que 'mi' separador de argumentos es la coma ',' NO el punto y coma ';' ;)

Preguntas similares