remove acentos excel
'ALT+F11 -> Inserir Módulo
Function TiraAcento(Palavra)
CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ"
SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
Texto = ""
if Palavra <> "" then
For X = 1 to Len(Palavra)
Letra = mid(Palavra,X,1)
Pos_Acento = inStr(CAcento,Letra)
if Pos_Acento > 0 then
Letra = mid(SAcento,Pos_Acento,1)
end if
Texto = Texto & Letra
next
TiraAcento = Texto
end if
end function
Function VerificaPalavra(atributo)
Dim i
Dim id
Dim Auxiliar
Dim Resultado
Auxiliar = Split(Atributo, " ", - 1, vbBinaryCompare)
For i = LBound(Auxiliar) To Ubound(Auxiliar)
Resultado = Resultado & " " & TiraAcento(Auxiliar(i))
Next
VerificaPalavra = Trim(Resultado)
end function
Are there any code examples left?
New code examples in category Other
-
Other 2023-03-27 22:50:10 how to select the whole line in vscode with keyboard shortcut
-
Other 2022-03-27 22:45:24 income of a web developer
-
Other 2022-03-27 22:35:01 \pyrcc_main.py: File does not exist 'resources.qrc'
-
Other 2022-03-27 22:30:45 rick roll embed code
-
Other 2022-03-27 22:20:08 Circuit_04_Potentiometer
-
Other 2022-03-27 22:20:05 iterative power
-
Other 2022-03-27 22:15:11 flutter run all
-
Other 2022-03-27 22:10:05 when is karlson release
-
Other 2022-03-27 22:10:02 wp .htaccess example
-
Other 2022-03-27 22:00:08 bash pause in file read line by line