Skip to content
AMDS Logo AMDS Logo
  • Home
  • Produtos e Soluções
    • Ficha Política
    • Gabinete Político
    • Mobile
    • Suporte Área Jurídica
    • Suporte Remoto
  • Serviços
  • Notícias
  • Sobre
  • Contato
+ 55 11 9 9764 8700
contato@amds.com.br

Função para remover acentos no Excel

Home/Dicas/Função para remover acentos no Excel

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 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

Após isso volte para a janela do Excel. Basta agora usar a função TiraAcento()

Inscrições Abertas – Curso de Excel
admin2021-03-30T14:34:37+00:00



© Copyright 2009 -    |  AMDS Soluções em Informática Ltda.