爲什麼我總是得到「無法獲取WorksheetFunction類的屬性」錯誤

Question

即使我想總結一行值。我試過worksheetfunction.mmult但我得到同樣的錯誤。我是否需要向Excel中添加更多參考？所有的在線解決方案都不適合我。

Sub GetObj() 
Dim Obj As Double 
Dim VB1, VB2, AESum As Double 
Dim range1, range2, cell1, cell2 As Range 

With Worksheets("Result") 
    AESum = Application.WorksheetFunction.Sum("B2:F2") 
End With 

End Sub 

Answer 1

在它自己的"B2:F2"只是一個字符串。如果你想使用它作爲範圍，那麼你將不得不專門指定。

變化

AESum = Application.WorksheetFunction.Sum("B2:F2") 

到

AESum = Application.WorksheetFunction.Sum(.Range("B2:F2")) 

Answer 2

代替Application.WorksheetFunction.Sum("B2:F2")使用Application.WorksheetFunction.Sum(.Range("B2:F2"))！

Answer 3

您可以更改

AESum = Application.WorksheetFunction.Sum("B2:F2") 

到

AESum = Application.WorksheetFunction.Sum(.Range("B2:F2")) 

你也可以評估表達式：

AESum = [Sum(Result!B2:F2)] 

Answer 4

Excel.WorksheetFunction.Sum(Range("J7:J8")) 

這對我的作品！