为什么当我使用"格式(string_variable，"###.#")并且string_variable的值设置为0.0时，VBA会引发"类型不匹配"错误

Question

我的库存交易代码格式的价格更改（单个变量）将传输到我的手机并限制微不足道的数字数量。当价格变化为零时，模块会引起"类型不匹配"错误。所有非零值都可以正常工作。我写了一个简单的模块，展示了这种行为。

Sub test_format()
    Dim test_single As Single, output As String
    test_single = 0#
    output = Str(Format(test_single, "###.#"))
    Debug.Print test_single; output
End Sub

Answer 1

您需要删除str（）函数

Sub test_format()
    Dim test_single As Single, output As String
    test_single = 112.25
    output = Format(test_single, "##0.0")
    Debug.Print output
End Sub

我的输出：

112.3

编辑：将格式更新为" ## 0.0"。现在，如果您获得了0.0的值，它不会仅仅返回"。"。