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

【问题标题】：Sum a Range and Format the Sum Error对范围求和并格式化求和错误
【发布时间】：2014-11-03 06:36:03
【问题描述】：

我有这段不喜欢运行的代码：

Dim ConcTotal as Double

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

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

谢谢

【问题讨论】：

标签： vba excel compiler-errors sum range

【解决方案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

【讨论】：

我把代码写得更精确了，方便大家看懂。您可能需要刷新页面才能看到它
是的，我正在使用已经声明的rng。请参阅 3 Set 命令。
请不要编辑您的问题来提出新问题 :) 提出一个单独的问题 ;)