Como evitar a entrada de caracteres especiais no Excel?
Em alguns casos, queremos apenas inserir letras ou números nas células e evitar a digitação de caracteres especiais, como @ # $% & e assim por diante. Existe alguma função no Excel para evitar a inserção de caracteres especiais quando inserimos valores?
Impedir a entrada de caracteres especiais com a validação de dados
Impedir a entrada de caracteres especiais com o código VBA
Impedir a entrada de caracteres especiais com Kutools for Excel 
Impedir a entrada de caracteres especiais com a validação de dados
A validação de dados do Excel pode ajudar a permitir que você insira apenas os valores alfanuméricos. Faça o seguinte:
1. Selecione um intervalo que você deseja evitar a entrada de caracteres especiais.
2. Então clique Data > Validação de dados > Validação de dados, veja a captura de tela:
3. No Validação de dados caixa de diálogo, clique em Configurações guia e escolha Personalizadas do Permitir lista suspensa e, em seguida, insira esta fórmula =ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))) no Fórmula caixa de texto, veja a captura de tela:
Nota:A1 indica a primeira célula do intervalo selecionado (da esquerda para a direita).
4. Então clique OK para fechar esta caixa de diálogo, e agora, ao inserir valores que contêm os caracteres especiais na coluna especificada, você aplicou a opção, receberá a seguinte mensagem de aviso.
Impedir a entrada de caracteres especiais com o código VBA
O código VBA a seguir também pode ajudá-lo a evitar os caracteres especiais ao inserir os valores de texto.
1. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.
2. Em seguida, escolha a planilha usada à esquerda Explorador de Projetos, clique duas vezes para abrir o Móduloe, em seguida, copie e cole o seguinte código VBA no espaço em branco Módulo:
Código VBA: impede a entrada de caracteres especiais no Excel
Private Const FCheckRgAddress As String = "A1:A100"
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140905
Dim xChanged As Range
Dim xRg As Range
Dim xString As String
Dim sErrors As String
Dim xRegExp As Variant
Dim xHasErr As Boolean
Set xChanged = Application.Intersect(Range(FCheckRgAddress), Target)
If xChanged Is Nothing Then Exit Sub
Set xRegExp = CreateObject("VBScript.RegExp")
xRegExp.Global = True
xRegExp.IgnoreCase = True
xRegExp.Pattern = "[^0-9a-z]"
For Each xRg In xChanged
If xRegExp.Test(xRg.Value) Then
xHasErr = True
Application.EnableEvents = False
xRg.ClearContents
Application.EnableEvents = True
End If
Next
If xHasErr Then MsgBox "These cells had invalid entries and have been cleared:"
End Sub
Anote os: No código acima, você pode alterar o intervalo A1: A100 of Const FCheckRgAddress As String = "A1: A100" script para o seu próprio intervalo que você deseja evitar os caracteres especiais.
3. Em seguida, salve e feche esse código e, agora, ao inserir valores de texto com alguns caracteres especiais no intervalo A1: A100, seu valor será apagado imediatamente e você poderá obter a seguinte mensagem de aviso.
Impedir a entrada de caracteres especiais com Kutools for Excel
Na verdade, se você tiver Kutools for Excel - uma ferramenta útil e multifuncional, você pode evitar rapidamente digitar caracteres especiais em uma seleção com seu Impedir Digitação utilidade por um cheque.
| Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
Depois de instalar Kutools for Excel, faça como abaixo :(Download grátis Kutools for Excel Agora!)
1. Selecione uma seleção que você deseja evitar a digitação de caracteres especiais e clique em Kutools > Impedir Digitação > Impedir Digitação. Veja a imagem:
2. No Impedir Digitação diálogo, verificar Impedir tipo em caracteres especiais opção. Veja a imagem:
3. Clique Ok, e uma caixa de diálogo aparecerá para lembrá-lo de que removerá a Validação de Dados se aplicar este utilitário e clicar Sim para ir para o próximo diálogo, ele o lembrará de que o utilitário trabalhou na seção. veja a imagem:
4. Clique OK para fechar a caixa de diálogo e, a partir de agora, uma caixa de diálogo de aviso aparecerá quando você tentar inserir um caractere especial na seleção.
Impedir a inserção de caracteres especiais
Artigos relacionados:
Como evitar inserir valores com espaços no Excel?
Como evitar entradas duplicadas em uma coluna do Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com Kutools for Excele experimente eficiência como nunca antes. Kutools for Excel Oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab Traz a interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
