Excel VBA Textbox Number Format

[Michaels]

Hello !

I am trying to change the format of textbox1 on userform1 as below:


Private Sub Textbox1_Change()

Textbox1.Text = Format$(TB1.Text, "0.00")

End Sub
The above code is not working.

What I need is like this:

When the userform initializes, the number format (or the numbers) in textbox on userform1 is 0.000. When my cursor reaches inside the textbox, and I type a number, say 25000, and press tab to move to the next textbox, the number in textbox1 changes to 25,000

You help is highly appreciated in this regard.

Thank you

 

[dmt32]

Hi,
see if this approach helps:

Private Sub TextBox1_AfterUpdate()
With Me.TextBox1

    If IsNumeric(.Value) Then .Value = Format(.Value, "0.00")

End With
End Sub


Private Sub UserForm_Initialize()
With Me.TextBox1
    .Value = 0
    .Value = Format(.Value, "0.00")
End With
End Sub

Adjust code to meet specific project need as required.

Dave

 

[Michaels]

Hi,
see if this approach helps:

Private Sub TextBox1_AfterUpdate()
With Me.TextBox1

    If IsNumeric(.Value) Then .Value = Format(.Value, "0.00")

End With
End Sub


Private Sub UserForm_Initialize()
With Me.TextBox1
    .Value = 0
    .Value = Format(.Value, "0.00")
End With
End Sub

Adjust code to meet specific project need as required.

Dave

Thank you for your help Dave.

Now, when I press tab (to move to next textbox), it does this: 25000.00 (not 25,000.00 <-- this format is required)

Thank you

 

[Michaels]

Thanks Dave, it works now as I changed it to:

Private Sub Reg8_AfterUpdate()
With UserForm1.Reg8


    If IsNumeric(.Value) Then .Value = Format(.Value, "#,##0.00")


End With
End Sub

Thank you very much for your help. So nice of you