TextBox format?

[Pas]

I am trying to format a textbox and I'm using to following code:

Private Sub TextBox1_Change
TextBox1.Value = Format (TextBox1.Value, "###0")
End Sub

But nothing happens......Any ideas?

 

[Bob Phillips]

Shouldn't that be

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "#,##0")
End Sub

 

[Gary''s Student]

If your textbox contains 35, the following:

Sub dural()
Dim i As Integer, s As String
ActiveSheet.Shapes("Text Box 1").Select
With Selection.Characters
s = Selection.Characters.Text
i = CInt(s)
s = Format(i, "xxx0")
.Text = s
End With
End Sub


will update to:
xxx35

 

[Pas]

Thanks guys, but I get a message as follows:
Can't find project or library. with Format highlighted

 

[Dave Peterson]

This is built into excel's VBA. It should not cause an error.

So if you're getting an error message on that statement, it usually means that
you have an invalid reference in that workbook's project.

Open excel and your workbook
Open the VBE and select your workbook's project.
Then click on: Tools|References
Look for MISSING reference.

Uncheck that missing reference.

The missing reference may not (usually doesn't) have anything to do with the
line that caused the error.

 

[Pas]

Thanks Dave that works well now.

This is built into excel's VBA. It should not cause an error.

So if you're getting an error message on that statement, it usually means that
you have an invalid reference in that workbook's project.

Open excel and your workbook
Open the VBE and select your workbook's project.
Then click on: Tools|References
Look for MISSING reference.

Uncheck that missing reference.

The missing reference may not (usually doesn't) have anything to do with the
line that caused the error.