| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Userform with currency format
Hi,
I cant get the userform to show arspremie in the right format. I want to show it in currency, do anyone know how to do this? My code a Private Sub UserForm_Activate() Application.OnTime Now + _ TimeValue("00:00:05"), "KillTheForm" Dim namn As String Dim antal As String Dim arspremie As Currency namn = Application.UserName Label2 = namn antal = Sheets("Uppföljning").Range("S4") Label4 = antal & " st" arspremie = Sheets("Uppföljning").Range("L3") Label5 = arspremie Format (arspremie, "Currency") End Sub -- Best regards Mia |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Userform with currency format
Label5 = Format(arspremie, "Currency")
you have to format variable before you use it. "Mia" wrote in message ... | Hi, | | I cant get the userform to show arspremie in the right format. | I want to show it in currency, do anyone know how to do this? | | My code a | | Private Sub UserForm_Activate() | Application.OnTime Now + _ | TimeValue("00:00:05"), "KillTheForm" | Dim namn As String | Dim antal As String | Dim arspremie As Currency | | namn = Application.UserName | Label2 = namn | | | antal = Sheets("Uppföljning").Range("S4") | Label4 = antal & " st" | | arspremie = Sheets("Uppföljning").Range("L3") | Label5 = arspremie | Format (arspremie, "Currency") | | End Sub | | | | -- | Best regards | Mia |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Userform with currency format
Hi,
Thank you for your help but it doesen't work. -- Best regards Mia "Homey" skrev: Label5 = Format(arspremie, "Currency") you have to format variable before you use it. "Mia" wrote in message ... | Hi, | | I cant get the userform to show arspremie in the right format. | I want to show it in currency, do anyone know how to do this? | | My code a | | Private Sub UserForm_Activate() | Application.OnTime Now + _ | TimeValue("00:00:05"), "KillTheForm" | Dim namn As String | Dim antal As String | Dim arspremie As Currency | | namn = Application.UserName | Label2 = namn | | | antal = Sheets("Uppföljning").Range("S4") | Label4 = antal & " st" | | arspremie = Sheets("Uppföljning").Range("L3") | Label5 = arspremie | Format (arspremie, "Currency") | | End Sub | | | | -- | Best regards | Mia . |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Formatting
arspremie.value = Sheets("Uppf??ljning").Range("L3")
Label5.Caption = Format (arspremie, "? #,##0.00") Cheers Mia wrote: Hi,Thank you for your help but it doesen't work.--Best regardsMia"Homey" skrev: 20-Jan-10 Hi, Thank you for your help but it doesen't work. -- Best regards Mia "Homey" skrev: Previous Posts In This Thread: On Wednesday, January 20, 2010 5:21 AM Mia wrote: Userform with currency format Hi, I cant get the userform to show arspremie in the right format. I want to show it in currency, do anyone know how to do this? My code a Private Sub UserForm_Activate() Application.OnTime Now + _ TimeValue("00:00:05"), "KillTheForm" Dim namn As String Dim antal As String Dim arspremie As Currency namn = Application.UserName Label2 = namn antal = Sheets("Uppf??ljning").Range("S4") Label4 = antal & " st" arspremie = Sheets("Uppf??ljning").Range("L3") Label5 = arspremie Format (arspremie, "Currency") End Sub -- Best regards Mia On Wednesday, January 20, 2010 6:40 AM Homey wrote: Label5 = Format(arspremie, "Currency")you have to format variable before you Label5 = Format(arspremie, "Currency") you have to format variable before you use it. | Hi, | | I cant get the userform to show arspremie in the right format. | I want to show it in currency, do anyone know how to do this? | | My code a | | Private Sub UserForm_Activate() | Application.OnTime Now + _ | TimeValue("00:00:05"), "KillTheForm" | Dim namn As String | Dim antal As String | Dim arspremie As Currency | | namn = Application.UserName | Label2 = namn | | | antal = Sheets("Uppf??ljning").Range("S4") | Label4 = antal & " st" | | arspremie = Sheets("Uppf??ljning").Range("L3") | Label5 = arspremie | Format (arspremie, "Currency") | | End Sub | | | | -- | Best regards | Mia On Wednesday, January 20, 2010 7:36 AM Mia wrote: Hi,Thank you for your help but it doesen't work.--Best regardsMia"Homey" skrev: Hi, Thank you for your help but it doesen't work. -- Best regards Mia "Homey" skrev: Submitted via EggHeadCafe - Software Developer Portal of Choice More Fun with Fluent NHibernate Automapping http://www.eggheadcafe.com/tutorials...uent-nhib.aspx |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Formatting
arspremie = Format(Sheets("Uppf??ljning").Range("L3"),"Currenc y")
Label5.Text = arspremie Or instead of "Currency" use "$###,##0.00" wotj cirremcy sympbol of choice, of course. Possibly Kr? <Gokhan Erdem wrote in message ... arspremie.value = Sheets("Uppf??ljning").Range("L3") Label5.Caption = Format (arspremie, "? #,##0.00") Cheers Mia wrote: Hi,Thank you for your help but it doesen't work.--Best regardsMia"Homey" skrev: 20-Jan-10 Hi, Thank you for your help but it doesen't work. -- Best regards Mia "Homey" skrev: Previous Posts In This Thread: On Wednesday, January 20, 2010 5:21 AM Mia wrote: Userform with currency format Hi, I cant get the userform to show arspremie in the right format. I want to show it in currency, do anyone know how to do this? My code a Private Sub UserForm_Activate() Application.OnTime Now + _ TimeValue("00:00:05"), "KillTheForm" Dim namn As String Dim antal As String Dim arspremie As Currency namn = Application.UserName Label2 = namn antal = Sheets("Uppf??ljning").Range("S4") Label4 = antal & " st" arspremie = Sheets("Uppf??ljning").Range("L3") Label5 = arspremie Format (arspremie, "Currency") End Sub -- Best regards Mia On Wednesday, January 20, 2010 6:40 AM Homey wrote: Label5 = Format(arspremie, "Currency")you have to format variable before you Label5 = Format(arspremie, "Currency") you have to format variable before you use it. | Hi, | | I cant get the userform to show arspremie in the right format. | I want to show it in currency, do anyone know how to do this? | | My code a | | Private Sub UserForm_Activate() | Application.OnTime Now + _ | TimeValue("00:00:05"), "KillTheForm" | Dim namn As String | Dim antal As String | Dim arspremie As Currency | | namn = Application.UserName | Label2 = namn | | | antal = Sheets("Uppf??ljning").Range("S4") | Label4 = antal & " st" | | arspremie = Sheets("Uppf??ljning").Range("L3") | Label5 = arspremie | Format (arspremie, "Currency") | | End Sub | | | | -- | Best regards | Mia On Wednesday, January 20, 2010 7:36 AM Mia wrote: Hi,Thank you for your help but it doesen't work.--Best regardsMia"Homey" skrev: Hi, Thank you for your help but it doesen't work. -- Best regards Mia "Homey" skrev: Submitted via EggHeadCafe - Software Developer Portal of Choice More Fun with Fluent NHibernate Automapping http://www.eggheadcafe.com/tutorials...uent-nhib.aspx |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Formatting
Should be:
Label5.Caption = arspremie "JLGWhiz" wrote in message ... arspremie = Format(Sheets("Uppf??ljning").Range("L3"),"Currenc y") Label5.Text = arspremie Or instead of "Currency" use "$###,##0.00" wotj cirremcy sympbol of choice, of course. Possibly Kr? <Gokhan Erdem wrote in message ... arspremie.value = Sheets("Uppf??ljning").Range("L3") Label5.Caption = Format (arspremie, "? #,##0.00") Cheers Mia wrote: Hi,Thank you for your help but it doesen't work.--Best regardsMia"Homey" skrev: 20-Jan-10 Hi, Thank you for your help but it doesen't work. -- Best regards Mia "Homey" skrev: Previous Posts In This Thread: On Wednesday, January 20, 2010 5:21 AM Mia wrote: Userform with currency format Hi, I cant get the userform to show arspremie in the right format. I want to show it in currency, do anyone know how to do this? My code a Private Sub UserForm_Activate() Application.OnTime Now + _ TimeValue("00:00:05"), "KillTheForm" Dim namn As String Dim antal As String Dim arspremie As Currency namn = Application.UserName Label2 = namn antal = Sheets("Uppf??ljning").Range("S4") Label4 = antal & " st" arspremie = Sheets("Uppf??ljning").Range("L3") Label5 = arspremie Format (arspremie, "Currency") End Sub -- Best regards Mia On Wednesday, January 20, 2010 6:40 AM Homey wrote: Label5 = Format(arspremie, "Currency")you have to format variable before you Label5 = Format(arspremie, "Currency") you have to format variable before you use it. | Hi, | | I cant get the userform to show arspremie in the right format. | I want to show it in currency, do anyone know how to do this? | | My code a | | Private Sub UserForm_Activate() | Application.OnTime Now + _ | TimeValue("00:00:05"), "KillTheForm" | Dim namn As String | Dim antal As String | Dim arspremie As Currency | | namn = Application.UserName | Label2 = namn | | | antal = Sheets("Uppf??ljning").Range("S4") | Label4 = antal & " st" | | arspremie = Sheets("Uppf??ljning").Range("L3") | Label5 = arspremie | Format (arspremie, "Currency") | | End Sub | | | | -- | Best regards | Mia On Wednesday, January 20, 2010 7:36 AM Mia wrote: Hi,Thank you for your help but it doesen't work.--Best regardsMia"Homey" skrev: Hi, Thank you for your help but it doesen't work. -- Best regards Mia "Homey" skrev: Submitted via EggHeadCafe - Software Developer Portal of Choice More Fun with Fluent NHibernate Automapping http://www.eggheadcafe.com/tutorials...uent-nhib.aspx |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Userform Text box Format to Currency | Excel Programming | |||
| TextBox on a userform - format to currency & percent | Excel Discussion (Misc queries) | |||
| UserForm TextBoxes - Is there a way to format as currency or perce | Excel Discussion (Misc queries) | |||
| Currency Format on UserForm when opened! | Excel Discussion (Misc queries) | |||
| Currency Format for label in UserForm | Excel Programming | |||
Hybrid Mode
