在 VBA MsgBox 中显示货币格式的最佳方式是什么？

如何解决在 VBA MsgBox 中显示货币格式的最佳方式是什么？

我在 MsgBox 上显示了连接文本和一些基本计算。如何让数字以货币格式显示？我在计算之前放置了一个美元符号，但如果它具有带有 2 位小数的正确货币格式会更好。 1050.00 美元

MsgBox "Total Cost is $" & (QuoteInput * 3 + QuoteInputTwo * 5 + 670),vbOKOnly,"White glove Service"

解决方法

也许你会阅读你的问题的所有评论。我只是发布与评论相同的答案。试试下面的方法，让我们知道您的进一步反馈。

Sub FormatCurrency()
    MsgBox "Total Cost is " & Format$(QuoteInput * 3 + QuoteInputTwo * 5 + 670,"$#.00"),vbOKOnly,"White Glove Service"
End Sub

,

使用 Format 和神奇的格式字符串“Currency”，这正是为此：

MsgBox "Total Cost is " & Format(QuoteInput * 3 + QuoteInputTwo * 5 + 670,"Currency"),"White Glove Service"