Currency format for combo box in a user form

[Jennifer]

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

[Kro]

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

[Jennifer]

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

[Fadi Chalouhi]

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

[Jennifer]

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
>
>