O Excel é uma planilha eletrônica muito boa, com ele é possível fazer coisas inacreditáveis. Uma das coisas que precisei recentemente é remover acentuação de um texto.
Então abaixo demonstro como fazer isso.
Exemplo:
Preciso transformar a seguinte célula A para B:
Então para incluir uma função vai ser da seguinte forma:
1º Clicar com o Botão direito sobre a aba de qualquer planilha e depois clicar na opção (Exibir Código)
2º - Clicar com o botão direito no nome do arquivo e depois inserir um módulo.
irá aparecer logo abaixo o módulo
3º Clicar duas vezes no Módulo 1, irá abrir uma janela onde será adicionada a função desejada.
Função Remove Acentuação do Excel.
Function RemoveAcento(caract)
'Acentos e caracteres especiais que serão buscados na string
'Você pode definir outros caracteres nessa variável, mas
' precisará também colocar a letra correspondente em codiB
codiA = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ'"
'Letras correspondentes para substituição
codiB = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN "
'Armazena em temp a string recebida
temp = caract
'Loop que irá de andará a string letra a letra
For i = 1 To Len(temp)
'InStr buscará se a letra indice i de temp pertence a
' codiA e se existir retornará a posição dela
p = InStr(codiA, Mid(temp, i, 1))
'Substitui a letra de indice i em codiA pela sua
' correspondente em codiB
If p > 0 Then Mid(temp, i, 1) = Mid(codiB, p, 1)
Next
'Retorna a nova string
RemoveAcento = temp
End Function
4º Depois é necessário salvar o documento em formato (.xlsm)
Pronto! Criamos um Excel com uma função.
Depois para usar é simples:
Na célula desejada coloca assim:
Nenhum comentário:
Postar um comentário