Userform Text box Format to Currency

  • Thread starter Thread starter Dave M
  • Start date Start date
D

Dave M

Hello,

I have a userform that has appx. 60 textboxes. It is a form for entry of
different dollar values. Each textbox has a control source to a named range
on the excel sheet.

How can I set each textbox to a currency format when the user opens the
form?

Thanks

David Mongrain
 
The short answer is you can't. Means you have to format as necessary when
done, eg

Private mCur as Currency ' at module level

Private Sub TextBox1_AfterUpdate()
Dim s as String
On Error Resume Next
s = Replace(TextBox1.Text, "$", "")
mCur = Val(Replace(TextBox1.Text, "$", ""))
mCur = Round(mCur, 2)

TextBox1.Text = Format(mCur, "$#,##0.00")
End Sub

You might want to do more than that minimum

Regards,
Peter T
 
I found a way. On userform_activate, perform a loop of each contorl. If it
is a textbox, then set focus on it.

For each required textbox, have an onexit event, textbox1.value =
format(textbox1.value, "currency")


Thanks,

David
 
Back
Top