Fóruns
Microsoft Excel - 2...
Formulários
Formulário_Textbox
 
Notifications
Clear all

Formulário_Textbox

 
Formulários
2 Posts
2 Usuários
0 Reactions
955 Visualizações
RSS
 Miguexcel
(@miguexcel)
Posts: 167
Reputable Member
Topic starter
 

Boa noite,

Acabei de construir um formulário apenas com uma entrada de dados. Nessa textbox, pretendo fazer o seguinte:

1) Apenas permitir digitar números
1) Apenas permitir digitar 4 digitos.

Meu código até ao momento está assim:

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = Worksheets("Análises")


If Trim(Me.TextBox1.Value) = "" Then
Me.TextBox1.SetFocus
MsgBox "Por favor, insira um número de proposta"
Exit Sub
End If

ws.Range("N7").Value = Me.TextBox1.Value

Me.TextBox1.Value = ""

End Sub


Private Sub CommandButton2_Click()

Unload Me
Call ReporValores

End Sub

Alguém me saber dizer como faço o código?

 
Postado : 04/02/2013 6:40 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Tente adaptar

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With Me.TextBox1
        If Len(.Value) > 4 Then
            .Value = Empty
            .SetFocus
            Exit Sub
            End If
        End With
Call SoNumeros
End Sub

Private Sub SoNumeros()
    test$ = ActiveControl.Value
    With Me.ActiveControl
        For i = 1 To Len(test$)
            If Not IsNumeric(Mid(test$, i, 1)) Then
                .Value = Left(test$, Len(test$) - 1)
            End If
        Next i
    End With
End Sub

Obs: Ao digitar uma quantidade maior a textbox1, será limpa e receberá o foco.

 
Postado : 04/02/2013 6:54 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico