Problem with Formatting Textboxes

G

Guest

I have several userforms built with about 60 textboxes. I have the textboxes
bound to cells on a worksheet usung the controlsource property. I have also
created a class module for all the textboxes so that events can occurr inside
of one code for all of them. In the class moduel I have the textboxes
formatted with the Change event with the following code:

Public WithEvents textgroup As MSForms.TextBox

Private Sub textgroup_Change()
textgroup.Value = Format(textgroup.Value, "Standard")
End Sub

This works fine when the form first loads, the values from the linked cells
load into the form and they are formatted properly. However, when the user
goes to change a value it will only let them enter 3 digits. The format seems
to only allow entry of numbers after the decimal point. I've tried using
other events to handle the format such as AfterUpdate and Exit and they
either do not work or they are unavailable to the new class. Is there any
way to make this work? The only other way that I can think of is to write a
separate format code for each textbox, and needless to say that would take a
while and make the code rather sloppy. I would greatly appreciate any help
anyone can offer.

Thanks

Henry
 
B

BrianB

Have you tried something like :-
textgroup.Value = Format(textgroup.Value, "###,###.00"
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Editing Textbox After Format?? 3
formatting textboxes 1
Redim Preserve question 11
Dynamic Event handler wanted. 1
Textbox and SpinControl - Class 8
WithEvents problem 4
Check all textboxes 5
Excel crashes 1

Top