Como permitir que apenas números sejam inseridos na caixa de texto?
No Excel, podemos aplicar a função de validação de dados para permitir que apenas números sejam inseridos nas células, mas, às vezes, quero que apenas números sejam digitados em uma caixa de texto, bem como nas células. Como aceitar apenas números em uma caixa de texto no Excel?
Divida um intervalo de células por um número com a função Colar especial
Divida um intervalo de células por um número com a função Colar especial
O seguinte código VBA pode ajudá-lo a inserir números, ponto (.) E um sinal negativo apenas em uma caixa de texto, faça o seguinte:
1. Crie uma caixa de texto clicando em Developer > inserção > Caixa de texto (controle ActiveX)e desenhe uma caixa de texto conforme necessário, veja a captura de tela:
2. Em seguida, clique com o botão direito na caixa de texto e selecione Ver código do menu de contexto para abrir o Microsoft Visual Basic para Aplicações janela e, em seguida, substitua o código original pelo seguinte código VBA no módulo em branco:
Código VBA: permitir que apenas números sejam inseridos na caixa de texto:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
If KeyAscii = Asc("-") Then
If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
Me.TextBox1.SelStart > 0 Then KeyAscii = 0
ElseIf KeyAscii = Asc(".") Then
If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
Else
KeyAscii = 0
End If
End If
End Sub
3. Em seguida, salve e feche a janela de código e saia do Modo de design, agora, apenas números, símbolo de ponto e sinal negativo podem ser inseridos na caixa de texto, veja a captura de tela:
Artigos relacionados:
Como aplicar a verificação ortográfica na caixa de texto?
Como alterar a cor da caixa de texto com base no valor no Excel?
Como inserir uma imagem na caixa de texto?
Como definir um valor padrão em uma caixa de texto?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para 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 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!
