Como procurar nomes sem se importar com nomes acentuados

Question

Pessoal

Numa tabela tem váriuos nomes de pessoas. Alguns acentuados e outros não, mesmo quando semelhantes. Como: Dênis e Denis, Ângela e Angela, Márcia e Marcia - Sobrenosmes como Alcântaea e Alcantara e assim por diante.

Como fazer a busca usando procv sem que estes acentos inibam a busca ou retornem valores que não são tão exatos?

Gostaria de procuram Márcia e encontrar tanto com e sem acento.

grato

---

tack så mycket

Answer 1

Pode também criar uma função em VBA para fazer isso.

1. Criar um novo módulo em VBA e copiar esta função para lá:

Function REMOVERACENTOS(ByVal texto As String) As String

    Dim novoTexto As String

    novoTexto = texto

    'Remove os acentos possíveis para a letra "A"...

    novoTexto = Replace(novoTexto, "á", "a")

    novoTexto = Replace(novoTexto, "à", "a")

    novoTexto = Replace(novoTexto, "â", "a")

    novoTexto = Replace(novoTexto, "ã", "a")

    novoTexto = Replace(novoTexto, "ä", "a")

    novoTexto = Replace(novoTexto, "Á", "A")

    novoTexto = Replace(novoTexto, "À", "A")

    novoTexto = Replace(novoTexto, "Â", "A")

    novoTexto = Replace(novoTexto, "Ã", "A")

    novoTexto = Replace(novoTexto, "Ä", "A")

    'Remove os acentos possíveis para a letra "E"...

    novoTexto = Replace(novoTexto, "é", "e")

    novoTexto = Replace(novoTexto, "è", "e")

    novoTexto = Replace(novoTexto, "ê", "e")

    novoTexto = Replace(novoTexto, "ë", "e")

    novoTexto = Replace(novoTexto, "É", "E")

    novoTexto = Replace(novoTexto, "È", "E")

    novoTexto = Replace(novoTexto, "Ê", "E")

    novoTexto = Replace(novoTexto, "Ë", "E")

    'Remove os acentos possíveis para a letra "I"...

    novoTexto = Replace(novoTexto, "í", "i")

    novoTexto = Replace(novoTexto, "ì", "i")

    novoTexto = Replace(novoTexto, "î", "i")

    novoTexto = Replace(novoTexto, "ï", "i")

    novoTexto = Replace(novoTexto, "Í", "I")

    novoTexto = Replace(novoTexto, "Ì", "I")

    novoTexto = Replace(novoTexto, "Î", "I")

    novoTexto = Replace(novoTexto, "Ï", "I")

    'Remove os acentos possíveis para a letra "O"...

    novoTexto = Replace(novoTexto, "ó", "o")

    novoTexto = Replace(novoTexto, "ò", "o")

    novoTexto = Replace(novoTexto, "ô", "o")

    novoTexto = Replace(novoTexto, "ö", "o")

    novoTexto = Replace(novoTexto, "Ó", "O")

    novoTexto = Replace(novoTexto, "Ò", "O")

    novoTexto = Replace(novoTexto, "Ô", "O")

    novoTexto = Replace(novoTexto, "Ö", "O")

    'Remove os acentos possíveis para a letra "U"...

    novoTexto = Replace(novoTexto, "ú", "u")

    novoTexto = Replace(novoTexto, "ù", "u")

    novoTexto = Replace(novoTexto, "û", "u")

    novoTexto = Replace(novoTexto, "ü", "u")

    novoTexto = Replace(novoTexto, "Ú", "u")

    novoTexto = Replace(novoTexto, "Ù", "E")

    novoTexto = Replace(novoTexto, "Û", "E")

    novoTexto = Replace(novoTexto, "Ü", "E")

    'Devolve textos sem os acentos e caracteres especiais

    REMOVERACENTOS = novoTexto

End Function

2. Depois pode usar essa função =REMOVERACENTOS(colocar a referência da célula onde está o nome com acento) e devolverá o nome sem acentos. Pode também usar está função combinada com outras como o PROCV.

Cumprimentos,

Maria Proiete

---

Maria Proiete     

Microsoft MCT e MCAS (Excel e Access) 

http://www.mariaproiete.com

Answer 2

Manipular a base é criar uma nova base tratada, com as equivalências que vc quer. Criar uma função é fazer o seu próprio PROCV. Veja este post para um exemplo:

http://social.microsoft.com/Forums/pt-BR/excelbr/thread/ece325ea-6a37-4ec0-9afb-2824f42950c9

Answer 3

Estou procurando resposta para a questão principal (busca independente de acento), mas como contribuição para quem passar nesta página, segue opção para função remove acento que encontrei:

Function removeAcento(ByVal nome As String) As String

    Dim i As Integer

    Dim p As Integer

    Dim com As String

    Dim sem As String

    com = "àáâãäèéêëìíîïòóôõöùúûüçñÀÁÂÃÄÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜÇÑ"

    sem = "aaaaaeeeeiiiiooooouuuucnAAAAAEEEEIIIIOOOOOUUUUCN"

    ' verifica cada letra de nome

    For i = 1 To Len(nome)

        ' se existir em <com>, retornará a posição dela

        p = InStr(com, Mid(nome, i, 1))

        ' substituindo a letra encontrada pela sua correspondente em <sem>

        If p > 0 Then Mid(nome, i, 1) = Mid(sem, p, 1)

    Next

    removeAcento = nome

End Function

Answer 4

Olá

Maria

Obrigado mas a sua eu não poderei usar, pois eu não quero retirar os acentos.

Quero que ele ignore simplesmente na busca , na procura a existÊncia ou não de acento no nome.

Exemplo

se eu pedir para procurar o aluno José Celestino Alcântara ele acha mesmo que eu digite Jose Celestino Alcantara (sem acento).

Era isso

grato

---

tack så mycket

Answer 5

Vc deve manipular a base e o valor procurado para fazer isto. Só com o procv do jeito que é não dá. VC também poderia tentar criar um procv especial (uma função customizada) que fizesse isso.