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 o Kutools para 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 Dados > 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 de 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:
NOTAA1 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
Nota: 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 o Kutools para 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 para Excel, faça o seguinte :(Baixe grátis o Kutools para 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?
As melhores ferramentas de produtividade para escritório
O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
- Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
- Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
- Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
- Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
- Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
- Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
- Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
- Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
Guia do Office traz 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!
