Postada em 16/07/2016 13:48 hs
Private Sub txtBalanca_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 8, 48 To 57 ' {Backspace}, {0} a {9}, aceita estes caracteres. ' Continua
Case Else
KeyAscii = 0 ' Demais teclas, não aceita.
End Select
If Len(UserForm1.txtBalanca) >= 1 And Len(UserForm1.txtBalanca) < 2 Then
UserForm1.txtBalanca = Format(UserForm1.txtBalanca, "##")
ElseIf Len(UserForm1.txtBalanca) > 2 Then
UserForm1.txtBalanca = Format(UserForm1.txtBalanca, "##.#")
End If
End Sub
|
