使用Excel 2007+ VBA和单元格的NumberFormat属性设置数字文本的格式

Question

I would like to use VBA and a cell's format when displaying related numbers with MsgBox and/or in concatenated text strings.

I have tried using the cell's NumberFormat property but get unusable results...

eg the following sample code should tell a user to charge $4.50 for lemonade that is marked up 150% above cost...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox "I should charge " & Format(Range("a3").Value * 1.5, Range("a3").NumberFormat) & " for this lemonade."
End Sub

...results in...

There are two scenarios displayed: the first is an unformatted cell; the second is a currency-formatted cell. I would like my code to accommodate any valid number format, including custom formats.

Answer 1

As long as you use US regional settings, you can use Application.Text instead of Format :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox "I should charge " & Application.Text(Range("a3").Value * 1.5, Range("a3").NumberFormat) & " for this lemonade."
End Sub

for example. If you don't have US settings, you'll still need to work around any localised currency formats.