在MsgBox中将数字格式设置为货币格式

Question

我有一个在论坛上找到的以下代码，并且已针对我的应用程序进行了改装。它在__init__中显示结算成本表。我想将数值格式设置为货币，但不知道代码中的位置或方式。过去，我曾使用以下代码将变量格式化为货币，但实际上并不知道如何在代码中应用。

这是我用来格式化为货币的内容：

MsgBox

这是我正在使用的FormattedClosingVolume = Format(ClosingVolume, "#,##0") 代码；我想将MsgBox列的格式设置为货币，以显示在AO中。

MsgBox

Answer 1

考虑：

Sub Macro1()
    Dim n As Double, s As String
    n = 1234.56
    s = Format(n, "$#,##0.00")
    MsgBox s
End Sub

EDIT＃1：

要在您的代码中应用此代码，例如：

xStr = xStr & vbTab & xRg.Cells(xRow, xCol).Value

将替换为：

xStr = xStr & vbTab & Format(xRg.Cells(xRow, xCol).Value, "$#,##0.00")

（未经测试）