Format number in text box as typed

[brianburen]

I have a userform with a text box

the user enters any number from 4.500 to 16.000

I want the box to format the text entered to have the 3 decimal places as its typed.


How do i do this?
I've tried the putting .... format (textbox1.text, ("0.000"))
in the textbox1_change()

but it doesnt work

 

[mikerickson]

In the AfterUpdate event you could put

TextBox1.Text = Format(Val(TextBox1.Text,), "0.000")

note that TextBox1.Text is always a string and that
Format("abc", "0.000") = "abc" and
Format("1.2", "0.000") = "1.2"

 

[brianburen]

Thank you it works except:


if i put 5500 in the box it will say 5500.000

i wanted it to say 5.500

 

[mikerickson]

Try this

Private Sub TextBox1_AfterUpdate()
    With TextBox1
        .Text = Format(Val(.Text) / 1000, "0.000")
    End With
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not Chr(KeyAscii) Like "[0-9]" Then
        KeyAscii = 0
    End If
End Sub

 

[brianburen]

works like a charm!


Thank you!!

 

[brianburen]

If i have a userform with say 20 textboxes on it, do i have to do this for every one of them? or is there a way to group them?