UserForm Textbox Format For Numbers

gsandy · Apr 22nd 2008

Hi,

I have a textbox in an excel userform and want the display to be formatted. When "9.1" is entered "9.100" shows either before or after going to the next textbox on userform.

The code below is not working.

Code

Private Sub UserForm_Initialize()


txtWaste = Format(Me.txtWaste, "00.000")


End Sub

Thanks Sandy

Simon Lloyd · Apr 23rd 2008

Re: Textbox Format In Userform

I think it should look like htis:

Code

Private Sub UserForm_initialize()
Me.txtWaste.Text = Format(Number, "00.000")
End Sub

gsandy · Apr 23rd 2008

Re: Textbox Format In Userform

Hi Simon,

Tried that code thanks, but it did not work. I entered 9.1 and it showed 9.1 not 9.100.

It should be like a formatted cell in the spreadsheet, where all the zeros are added after hitting the enter key or if more than 3 decimals are entered the display rounds off.

Any other suggestions?

Sandy

Dave Hawley · Apr 23rd 2008

Re: Textbox Format In Userform

The use of the UserForm_initialize will ONLY work if the TextBox has a default value set. To format the numbers after entry, use the Exit Event of the TextBox.

gsandy · Apr 23rd 2008

Re: UserForm Textbox Format For Numbers

Thanks Dave,

I use the code below, but still not working?

Code

Private Sub txtWaste_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.txtWaste.Text = Format(Number, "00.000")
End Sub

Sandy

Dave Hawley · Apr 23rd 2008

Re: UserForm Textbox Format For Numbers

Not suprised as "number" has no meaning.

Code

Private Sub txtWaste_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.txtWaste.Value = Format([B]txtWaste[/B], "#0.000")
End Sub

gsandy · Apr 23rd 2008

Re: UserForm Textbox Format For Numbers

Thanks Dave, works well.

Sandy

UserForm Textbox Format For Numbers

Participate now!

Share