Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

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

No Excel, podemos aplicar a função Validação de Dados para permitir que somente números sejam inseridos nas células, mas, às vezes, eu quero apenas números a serem digitados em uma caixa de texto, bem como em 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 Função especial Paste


arrow blue right bubble Divida um intervalo de células por um número com Função especial Paste


O código VBA a seguir pode ajudá-lo a inserir números, período (.) E um sinal negativo apenas em uma caixa de texto, faça o seguinte:

1. Crie uma caixa de texto clicando Desenvolvedor > inserção > Caixa de texto (controle ActiveX), e então desenhe uma caixa de texto conforme você precisa, veja a captura de tela:

Doc texto apenas números 1

2. Em seguida, clique com o botão direito na caixa de texto e selecione Ver código no 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 somente 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

Doc texto apenas números 2

3. Salve e feche a janela de código e saia do Modo de design, agora, somente números, símbolo de período e sinal negativo podem ser inseridos na caixa de texto, veja a captura de tela:

Doc texto apenas números 3


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 a imagem na caixa de texto?

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



Ferramentas de produtividade recomendadas para o Excel

Kutools for Excel ajuda você a concluir o trabalho antes do tempo e se destacar da multidão

  • Mais do que poderosos recursos avançados do 300, projetados para cenários de trabalho 1500, aumentando a produtividade em 70%, você tem mais tempo para cuidar da família e aproveitar a vida.
  • Não precisa mais memorizar fórmulas e códigos VBA, dê um descanso a seu cérebro a partir de agora.
  • Torne-se um especialista em Excel em minutos 3, operações complicadas e repetidas podem ser feitas em segundos,
  • Reduza milhares de operações de teclado e mouse todos os dias, diga adeus às doenças ocupacionais agora.
  • 110,000 pessoas altamente eficazes e escolha de empresas de renome mundial 300 +.
  • 60-day full features versão de avaliação gratuita. Garantias de devolução do dinheiro 60. 2 anos de atualização e suporte gratuitos.

Traz navegação com guias e edição para o Microsoft Office, muito mais poderosa do que as guias do navegador

  • A guia Office foi projetada para Word, Excel, PowerPoint e outros aplicativos do Office: 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!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.