Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
formatting text in TextBox in UserForm
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
formatting text in TextBox in UserForm
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" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
formatting text in TextBox in UserForm
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 "Kevin" wrote in message ... 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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
userform textbox | Excel Worksheet Functions | |||
Calculating a textbox on a userform | Excel Programming | |||
Retaining text formatting in TextBox | Excel Programming | |||
UserForm TextBox to ActiveSheet TextBox over 256 characters | Excel Programming | |||
Populating Textbox in UserForm | Excel Programming |