vba - 对范围求和并格式化求和错误

Question

我有一些不喜欢运行的代码:

Dim ConcTotal as Double

ConcTotal = Workbooks("MW_vs_RF.xls").Sheets(wbkTwo).Format$(Sum(Range("C4:C14")), "0.0000")

其中wbkTwo是该xls工作表中的特定选项卡。我只是想在另一个工作表中求和一个范围并将其分配给ConcTotal。每次运行此命令时，我都会收到一条错误消息，提示“编译错误:未定义子函数或函数”，并在上面的代码中突出显示了“和”。我没有看到任何有关代码或其编写方式的问题，对于我为什么收到此错误的任何帮助，我们深表感谢。

谢谢

Answer 1

使用Application.Worksheetfuntion.Sum()而不是Sum()
这是您要尝试的吗？

Sub Sample()
    Dim ConcTotal As Double
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range

    Set wb = Workbooks("MW_vs_RF.xls")
    Set ws = wb.Sheets(1) '~~> For testing purpose, replaced `wbkTwo`
    Set rng = ws.Range("C4:C14")

    ConcTotal = Format(Application.WorksheetFunction.Sum(rng), "0.0000")

    Debug.Print ConcTotal
End Sub