| Pregunta: | 24491 - VBA-ELIMINAR ACENTOS DENTRO DE UNA CADENA |
| Autor: | Mario Jaraiz |
| HOLA ,ESTOY PROGRAMANDO EN VBA ,PERO NO CONTROLO MUCHO Y ME GUSTARIA SABER COMO PUEDO ELIMINAR LOS ACENTOS DENTRO DE UNA CADENA DE CARACTERES. | |
| Respuesta: | Agustín Dávila |
| Utiliza esta función:
Private Function Cadena(ByVal t As String) As String Dim i As Integer, s As String For i = 1 To Len(t) s = Mid(t, i, 1) If s = "á" Then Mid(t, i, 1) = "a" ElseIf s = "é" Then Mid(t, i, 1) = "e" ElseIf s = "í" Then Mid(t, i, 1) = "i" ElseIf s = "ó" Then Mid(t, i, 1) = "o" ElseIf s = "ú" Then Mid(t, i, 1) = "u" ElseIf s = "Á" Then Mid(t, i, 1) = "A" ElseIf s = "É" Then Mid(t, i, 1) = "E" ElseIf s = "Í" Then Mid(t, i, 1) = "I" ElseIf s = "Ó" Then Mid(t, i, 1) = "O" ElseIf s = "Ú" Then Mid(t, i, 1) = "U" End If Next i Cadena = t End Function | |
| Respuesta: | Onorio Palavicini |
| CadenaSinAcentos = Replace(CadenaConAcentos, \"´\",1) | |