| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
change format
What code do i need to cahnge the value in the code below to 2 decimal places
and starting with a £ sign Sheets("RENTAL COSTS").Select Me.TextBox1.Value = Range("B9").Value |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
change format
If the value in B9 is already formatted nicely:
Me.TextBox1.Value = Activesheet.Range("B9").Text If it isn't formatted nicely, then something like: Me.TextBox1.Value = format(Activesheet.Range("B9").Value,"£#,##0.00") Woodi2 wrote: What code do i need to cahnge the value in the code below to 2 decimal places and starting with a £ sign Sheets("RENTAL COSTS").Select Me.TextBox1.Value = Range("B9").Value -- Dave Peterson |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
change format
Try this.
Me.TextBox1.Value = Format(Range("B9").Value, Chr(163) & "###,##0.00") "Woodi2" wrote in message ... What code do i need to cahnge the value in the code below to 2 decimal places and starting with a £ sign Sheets("RENTAL COSTS").Select Me.TextBox1.Value = Range("B9").Value |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
change format
Thanks Dave. It is formatted nicely, knew it had tobe simple.
"Dave Peterson" wrote: If the value in B9 is already formatted nicely: Me.TextBox1.Value = Activesheet.Range("B9").Text If it isn't formatted nicely, then something like: Me.TextBox1.Value = format(Activesheet.Range("B9").Value,"£#,##0.00") Woodi2 wrote: What code do i need to cahnge the value in the code below to 2 decimal places and starting with a £ sign Sheets("RENTAL COSTS").Select Me.TextBox1.Value = Range("B9").Value -- Dave Peterson |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
change format
You can enter the £ character directly into the format string and save the
Chr function call. To do this, press Alt+0163 from the **number pad** (not the main keyboard). Me.TextBox1.Value = Format(Range("B9").Value, "£###,##0.00") -- Rick (MVP - Excel) "JLGWhiz" wrote in message ... Try this. Me.TextBox1.Value = Format(Range("B9").Value, Chr(163) & "###,##0.00") "Woodi2" wrote in message ... What code do i need to cahnge the value in the code below to 2 decimal places and starting with a £ sign Sheets("RENTAL COSTS").Select Me.TextBox1.Value = Range("B9").Value |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Lock Cell Format - Allow copy and paste of data without format change | Excel Worksheet Functions | |||
| Change Date Format to Specific Text Format When Copying | Excel Discussion (Misc queries) | |||
| Change cell colour on formula result change, no conditional format | Excel Programming | |||
| Use date modified to change format & create filter to track change | Excel Worksheet Functions | |||
| excel numbers in general format i cant add cant change format | Excel Worksheet Functions | |||
Linear Mode
