VBA 对一系列单元格求和

Question

我正在尝试编写一个简单的 VBA 宏，它将采用事件单元格的列和用户的输入来将一系列单元格添加到单行上。通过将用户输入的整数添加到事件列(即结束列)来计算范围。问题是它给了我运行时错误“424”并告诉我“需要对象”。当我运行它时，并对总和行感到愤怒。

这是我的代码。我刚刚开始使用 VBA，所以它不会那么难......对吗？

Sub Food()
Dim first As Variant
Dim last As Integer
Dim days As Integer
Dim month As Variant
Dim total As Double
first = ActiveCell.Column
days = InputBox("Days in the month?")
last = first + days
month = Range(Cells(first, 4), Cells(last, 4))
total = Excel.WorksheetFunction.Sum(Report.Range(month))
Worksheets(1).Cells(1, 13).Value = total
End Sub

Answer 1

错误在于您尝试对范围求和的方式。尝试这样:

total = WorksheetFunction.Sum(month)

每当您在 VBA 中发现问题时，请尝试隔离它并单独解决它。例如，在您的情况下，作为隔离示例，类似这样的事情会有所帮助:

Option Explicit

Sub TestMe()

    Dim rngRange As Range
    Set rngRange = Range("A1:A5")

    'Any of these is ok:
    Debug.Print WorksheetFunction.Sum(rngRange)
    Debug.Print WorksheetFunction.Sum(Range("A1:A5"))
    Debug.Print WorksheetFunction.Sum(1, 2, 3)
    Debug.Print WorksheetFunction.Sum(Array(1, 2, 3))
    Debug.Print WorksheetFunction.Sum(Array(1, 1, 545), Array(-2))

End Sub