formatting text in TextBox in UserForm

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I'd like users to be able to enter single digit numbers into a TextBox but have the code format this as a four-character text string, e.g., "0000". Is this possible?

Thanks.


Kevin
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1.Value) Then
If Len(Trim(TextBox1.Value)) = 1 Then
TextBox1.Value = Format(CLng(TextBox1.Value), "0000")
Else
MsgBox "Single Digit Numbers only"
TextBox1.Value = ""
Cancel = True
End If
Else
MsgBox "Entry must be numeric and single digit"
TextBox1.Value = ""
Cancel = True
End If
End Sub

--
Regards,
Tom Ogilvy

Kevin said:
I'd like users to be able to enter single digit numbers into a TextBox but
Click to expand...
have the code format this as a four-character text string, e.g., "0000". Is
this possible?
 
Thanks Tom. It works like a charm.

Kevin
-----Original Message-----
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1.Value) Then
If Len(Trim(TextBox1.Value)) = 1 Then
TextBox1.Value = Format(CLng (TextBox1.Value), "0000")
Else
MsgBox "Single Digit Numbers only"
TextBox1.Value = ""
Cancel = True
End If
Else
MsgBox "Entry must be numeric and single digit"
TextBox1.Value = ""
Cancel = True
End If
End Sub

--
Regards,
Tom Ogilvy

into a TextBox but
have the code format this as a four-character text string, e.g., "0000". Is
this possible?


.
Click to expand...
 
Back
Top