Question

我有一些不想运行的代码：

Dim ConcTotal as Double

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

其中wbkTwo是该xls工作表中的特定选项卡。我只是想在另一张表中对一个范围求和并将其分配给ConcTotal。每次我运行这个时都会收到一条错误消息，提示＆＃34;编译错误：Sub或Function not defined＆＃34;它突出了＆＃34; Sum＆＃34;在我上面的代码中。我没有看到代码有任何问题或如何编写代码，对于我收到此错误的原因有任何帮助。

由于

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

求和范围并格式化和误差

1 个答案: