Formulário_Textbox

Formulários

Post Recente por Fernando Fernandes 12 anos atrás

2 Posts

2 Usuários

0 Reactions

1,009 Visualizações

RSS

Miguexcel

(@miguexcel)

Posts: 167

Estimable 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.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 04/02/2013 6:54 pm