Text Box Format

[gregork]

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

 

[Frank Kabel]

Hi
one way:
textbox1.value=format(activesheet.range("A1").value,"0.00")

 

[Robert Bradshaw]

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

 

[gregork]

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

 

[Dave Peterson]

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]

Thanks Dave. Problem solved.

Cheers
Greg

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