Nesse artigo você vai aprender como formatar uma text-box de modo que, quando digitarmos números, os caracteres sejam atribuídos automaticamente dentro das text-box. Para isso iremos usar o evento Keypress do Excel.

vamos abrir o editor de de códigos do Excel e adicionar um formulário com duas text-box duas Label e renomear as suas propriedades.

imagem 1imagem 2

imagem 3imagem 4imagem 5

Depois de renomear as propriedades ,vamos dar um duplo click dentro da text-box que renomeamos para Telefone fixo e no canto superior direito vamos muda o seu evento para keyPress, o mesmo procedimento será feito com a text-box que renomeamos para Telefone celular.

imagem 6

Agora cole o código a baixo dentro do evento keyPress da telefone fixo.

Select Case KeyAscii
 Case 8, 48 To 57
 Me.telefonefixo.MaxLength = 13
 If Len(telefonefixo) = 0 Then telefonefixo = telefonefixo + "("
 If Len(telefonefixo) = 3 Then telefonefixo = telefonefixo + ")"
 If Len(telefonefixo) = 8 Then telefonefixo = telefonefixo + "-"
 Case Else
 KeyAscii = 0
 End Select

Esse código dentro do evento KeyPress Telefone celular

Select Case KeyAscii
        Case 8, 48 To 57
                Me.telefonecelular.MaxLength = 14
                If Len(telefonecelular) = 0 Then telefonecelular = telefonecelular + "("
                If Len(telefonecelular) = 3 Then telefonecelular = telefonecelular + ")"
                If Len(telefonecelular) = 9 Then telefonecelular = telefonecelular + "-"
        Case Else
            KeyAscii = 0
    End Select

imagem 7

Basta agora executa o trabalho e já estará funcionado

imagem 8

Teve duvidas? baixe a planilha de referencia desse artigo

→Cliquei Nesse Link Para Baixar O Projeto

Tags:

Sobre o Autor

Welisson Silva
Welisson Silva

Analista de Sistemas, trabalha com TI desde 2014. Especializado em Vendas Online, desenvolvedor, programador, guitarrista e entusiasta de tudo que envolva tecnologia.

8 Comentários

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *