Como permitir que apenas números sejam inseridos em uma caixa de texto?

No Excel, podemos aplicar a função 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, assim 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 sinal negativo apenas em uma caixa de texto; por favor, faça o seguinte:

1. Crie uma caixa de texto clicando em Desenvolvedor > Inserir > Caixa de Texto (Controle ActiveX) e, em seguida, 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 Visualizar Código no menu de contexto para abrir a janela Microsoft Visual Basic for Applications e 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. Depois, 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 em uma caixa de texto?

Como alterar a cor da caixa de texto com base no valor no Excel?

Como inserir uma imagem em uma caixa de texto?

Como definir um valor padrão em uma caixa de texto?