Renefgj: /* Função para remover acentos no Excel */

2023-04-22T14:48:49Z

Função para remover acentos no Excel

Renefgj: Criou página com '=Função para remover acentos no Excel= Para criar uma nova função, que remove acentos no Excel, pressione em seu teclado ALT + F11.
Surgirá uma nova janela (editor Vi...'

2023-04-22T14:48:19Z

Criou página com '=Função para remover acentos no Excel= Para criar uma nova função, que remove acentos no Excel, pressione em seu teclado ALT + F11.<br> Surgirá uma nova janela (editor Vi...'

Página nova

=Função para remover acentos no Excel=
Para criar uma nova função, que remove acentos no Excel, pressione em seu teclado ALT + F11.<br>
Surgirá uma nova janela (editor Visual Basic). No menu acesse INSERIR/MÓDULO, e cole o texto abaixo:

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

← Edição anterior		Edição das 14h48min de 22 de abril de 2023
Linha 33:		Linha 33:
	VerificaPalavra = Trim(Resultado)		VerificaPalavra = Trim(Resultado)
	end function		end function
		+
		+	Fonte: [https://amds.com.br/funcao-para-remover-acentos-no-excel/]

Excel:TiraAcento - Histórico de revisão

Renefgj: /* Função para remover acentos no Excel */

Renefgj: Criou página com '=Função para remover acentos no Excel= Para criar uma nova função, que remove acentos no Excel, pressione em seu teclado ALT + F11. Surgirá uma nova janela (editor Vi...'

Renefgj: Criou página com '=Função para remover acentos no Excel= Para criar uma nova função, que remove acentos no Excel, pressione em seu teclado ALT + F11.
Surgirá uma nova janela (editor Vi...'