TextBox format?

  • Thread starter Thread starter Pas
  • Start date Start date
P

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?
 
Shouldn't that be

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "#,##0")
End Sub
 
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
 
Thanks guys, but I get a message as follows:
Can't find project or library. with Format highlighted
 
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.
 
Thanks Dave that works well now.


Dave Peterson said:
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.
Click to expand...
 
Back
Top