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

Question

在使用 MsgBox 和/或串联文本字符串显示相关数字时，我想使用 VBA 和单元格格式。

我已尝试使用单元格的 NumberFormat 属性，但得到的结果无法使用...

例如以下示例代码应该告诉用户对标价高出 150% 的柠檬水收取 4.50 美元...

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

...导致...

显示的场景有两种：第一种是无格式单元格；第二个是货币格式的单元格。我希望我的代码能够适应任何有效的数字格式，包括自定义格式。

Answer 1

只要你使用美国区域设置，你可以使用Application.Text而不是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

例如。如果您没有美国设置，您仍然需要解决任何本地化货币格式。