Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Text Box Format
Thanks for the help guys. I have used Robert's code and it works fine except
for when the text box value = "", then I get a type mismatch error. Any suggestions how to prevent this from happening? Regards Greg "Robert Bradshaw" wrote in message ... gregork wrote: I have a textbox on a user form that displays data from a worksheet. How can I format the text box so that it only displays a number to 2 decimal places? Cheers Greg or in the lostfocus code for the textbox: Private Sub TextBox1_LostFocus() TextBox1.Value = Round(TextBox1.Value, 2) End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Text Box Format
How about something like:
Option Explicit Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With Me.TextBox1 If IsNumeric(.Value) Then .Value = Round(.Value, 2) Else .Value = "Numeric Please" .SelStart = 0 .SelLength = Len(.Value) Beep Cancel = True End If End With End Sub gregork wrote: Thanks for the help guys. I have used Robert's code and it works fine except for when the text box value = "", then I get a type mismatch error. Any suggestions how to prevent this from happening? Regards Greg "Robert Bradshaw" wrote in message ... gregork wrote: I have a textbox on a user form that displays data from a worksheet. How can I format the text box so that it only displays a number to 2 decimal places? Cheers Greg or in the lostfocus code for the textbox: Private Sub TextBox1_LostFocus() TextBox1.Value = Round(TextBox1.Value, 2) End Sub -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Text Box Format
Thanks Dave. Problem solved.
Cheers Greg "Dave Peterson" wrote in message ... How about something like: Option Explicit Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With Me.TextBox1 If IsNumeric(.Value) Then .Value = Round(.Value, 2) Else .Value = "Numeric Please" .SelStart = 0 .SelLength = Len(.Value) Beep Cancel = True End If End With End Sub gregork wrote: Thanks for the help guys. I have used Robert's code and it works fine except for when the text box value = "", then I get a type mismatch error. Any suggestions how to prevent this from happening? Regards Greg "Robert Bradshaw" wrote in message ... gregork wrote: I have a textbox on a user form that displays data from a worksheet. How can I format the text box so that it only displays a number to 2 decimal places? Cheers Greg or in the lostfocus code for the textbox: Private Sub TextBox1_LostFocus() TextBox1.Value = Round(TextBox1.Value, 2) End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need help with converting CUSTOM format/TEXT format to DATE format | Excel Worksheet Functions | |||
Change Date Format to Specific Text Format When Copying | Excel Discussion (Misc queries) | |||
Convert numbers from text format to number format | Excel Discussion (Misc queries) | |||
Change number (in text format) to numeric format | Excel Discussion (Misc queries) | |||
how to format excel format to text format with separator "|" in s. | New Users to Excel |