Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Currency format for combo box in a user form
Hi,
I have a combo box on a user form and when someone types the price, say 60 I want it to be displayed as $60.00 not 60. Can anyone help? Thank you in advance. -- Though daily learning, I LOVE EXCEL! Jennifer |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Currency format for combo box in a user form
Try this:
comboboxname.value=FormatCurrency(conboboxname,0) "Jennifer" wrote: Hi, I have a combo box on a user form and when someone types the price, say 60 I want it to be displayed as $60.00 not 60. Can anyone help? Thank you in advance. -- Though daily learning, I LOVE EXCEL! Jennifer |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Currency format for combo box in a user form
I tried this and I am getting a yellow error line:
1st: I miss spoke it is a text box 2nd: I put the following in the UserForm Initialize syntax, is this correct? Me.txtPrice.Value = FormatCurrency(Me.txtPrice, 0) "Kro" wrote: Try this: comboboxname.value=FormatCurrency(conboboxname,0) "Jennifer" wrote: Hi, I have a combo box on a user form and when someone types the price, say 60 I want it to be displayed as $60.00 not 60. Can anyone help? Thank you in advance. -- Though daily learning, I LOVE EXCEL! Jennifer |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Currency format for combo box in a user form
Hi Jennifer,
(1) you need to select a format to apply to the currency : for example, if you want the currency to be formatted as : 1,234.56, then your code should be : Me.txtPrice.Value = FormatCurrency(Me.txtPrice, "#,###,###.00") (2) the code above does not apply a permanent format to the text box, instead it just modifies the string inside the text box. (3) move the code from the initialize procedure to the textbox Enter and Exit procedures to get a consistent currency format: Private Sub txtPrice_Enter() txtPrice.Value = Format(Me.txtPrice.Value, "") End Sub Private Sub txtPrice_Exit(ByVal Cancel As MSForms.ReturnBoolean) txtPrice.Value = Format(Me.txtPrice.Value, "#,###,###.00") End Sub this automatically modifies the format of the text box as soon as it loses focus, and automatically formats it back to an "editable" format when you enter the text box again. HTH Fadi www.chalouhis.com/XLBLOG |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Currency format for combo box in a user form
Thank you, it works great! Thank you also for explaining it so clearly, very
helpful. Regards, Jennifer "Fadi Chalouhi" wrote: Hi Jennifer, (1) you need to select a format to apply to the currency : for example, if you want the currency to be formatted as : 1,234.56, then your code should be : Me.txtPrice.Value = FormatCurrency(Me.txtPrice, "#,###,###.00") (2) the code above does not apply a permanent format to the text box, instead it just modifies the string inside the text box. (3) move the code from the initialize procedure to the textbox Enter and Exit procedures to get a consistent currency format: Private Sub txtPrice_Enter() txtPrice.Value = Format(Me.txtPrice.Value, "") End Sub Private Sub txtPrice_Exit(ByVal Cancel As MSForms.ReturnBoolean) txtPrice.Value = Format(Me.txtPrice.Value, "#,###,###.00") End Sub this automatically modifies the format of the text box as soon as it loses focus, and automatically formats it back to an "editable" format when you enter the text box again. HTH Fadi www.chalouhis.com/XLBLOG |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Adding items to a combo box on a user form | Excel Discussion (Misc queries) | |||
Date format changes when inputed from user form | Excel Discussion (Misc queries) | |||
How do I hide zero values but keep currency format in P.O. form? | New Users to Excel | |||
Patrick -- 424 Combo Box User Form | Excel Programming | |||
Run Time Error 424 Combo Box User Form | Excel Programming |