對象不支持此屬性或方法式

Question

加入我有以下的代碼，不斷拋出的錯誤：

對象不支持此屬性或方法

expectedProjectWS.Range("A" & lastAddress + 1).Offset(1, 3).Formula "=SUM(D11:(OFFSET(" & newrow & ",-1,0)))" 

我想在粘貼行後添加一個公式。我調試打印了這個，它的工作打印正確，這是令人困惑。

什麼可能導致此錯誤？

Answer 1

提供expectedProjectWS是一個工作表中的有效參考，lastAddress是行號和newrow是一個單元格引用爲一個字符串，然後你剛剛忘了把=字公式後。

這將把公式=SUM(D11:(OFFSET(D18,-1,0)))放置在單元格D7中。

Sub test() 

    Dim expectedProjectWS As Worksheet 
    Dim lastAddress As Long 
    Dim newrow As String 

    Set expectedProjectWS = ThisWorkbook.Worksheets("Sheet1") 
    lastAddress = 5 
    newrow = "D18" 

    expectedProjectWS.Range("A" & lastAddress + 1).Offset(1, 3).Formula = "=SUM(D11:(OFFSET(" & newrow & ",-1,0)))" 

End Sub