如何將一系列單元格的總和存儲在變量中？

Question

我試圖將一系列單元格的總和存儲在一個變量中。

Sub obtainhours()

Dim Total As Integer

Worksheets("22012017").Activate
Total = WorksheetFunction.Sum(Range("D2,D50"))

End Sub

Answer 1

首先，您應該聲明Total As Long ，因為它能夠存儲大於Integer ( >32767 ) 的數值。

還有為什么使用 Long 而不是 Integer

您應該避免使用Activate因為它會減慢代碼的運行時間，而是通過實現With語句使用完全限定的對象。

Sub obtainhours()

Dim Total As Long

With Worksheets("22012017")
    ' Option 1: get the Sum of cells "D2" and "D50" only
    Total = WorksheetFunction.Sum(.Range("D2,D50"))

    ' Option 2: get the Sum of cells "D2 through cell "D50"
    Total = WorksheetFunction.Sum(.Range("D2:D50"))
End With

End Sub