Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Não digitar o nº 9 ...
 
Notifications
Clear all

Não digitar o nº 9 no início do telefone

 
2024 - VBA & Macros
Post Recente por rafaelp 7 anos atrás
5 Posts
3 Usuários
0 Reactions
1,012 Visualizações
RSS
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
Topic starter
 

Boa-tarde

Teria alguma forma de quando for digitar o telefone fixo no textbox não aceitar o primeiro nº "9" ?

Att,

Francisco

 
Postado : 17/05/2018 9:28 am
 rafaelp
(@rafaelp)
Posts: 89
Trusted Member
 

Boa tarde.

Seria mais ou menos isso?

    If Left(Trim(Me.tbTelefoneFixo), 1) = 9 Then
        
        MsgBox ("Digite um telefone fixo válido!")
        Me.tbTelefoneFixo = ""
        
    End If

Segue planilha como exemplo.

 
Postado : 17/05/2018 9:49 am
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
Topic starter
 

Obrigado Rafael...!

 
Postado : 17/05/2018 10:58 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

fcarlosc,

Boa tarde!

Deixa eu só fazer uma pequena modificação, aproveitando o exemplo do colega rafaelp.

Se o número fixo começar com 9? Então nunca vai dá certo... correto?

Dessa forma, é preciso verificar se o número digitado na caixa de texto tem mais de 8 caracteres. Segue nova versão.

Telefone.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 17/05/2018 11:00 am
 rafaelp
(@rafaelp)
Posts: 89
Trusted Member
 

Só complementando mais um pouco, da pra forçar a retirada do 9 do começo e continuar digitando normalmente depois.. através do evento KeyDown..
Eu faria assim rs

Private Sub tbTelefoneFixo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If Left(Trim(Me.tbTelefoneFixo), 1) = 9 Then
    
        Me.tbTelefoneFixo = ""
    
    End If

End Sub
 
Postado : 17/05/2018 11:08 am
Forum Jump:
  Tópico Anterior
Próximo Tópico