オブジェクトは、私はエラーを投げ続けて、次のコードを持っ式

Question

に追加するために、このプロパティまたはメソッドをサポートしていません：

オブジェクトはこのプロパティまたはメソッド

をサポートしていません

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

を私がしようとしています行が貼り付けられた後に式を追加することができます。私はこれをデバッグして印刷しますが、これは正しく表示され、混乱します。

このエラーの原因は何ですか？ expectedProjectWSを提供

Answer 1

は、ワークシートへの有効な参照で、lastAddressは、行番号、newrowは、あなただけのワード式の後=を置くことを忘れてしまった文字列としてセル参照です。

これにより、セルD7に式=SUM(D11:(OFFSET(D18,-1,0)))が配置されます。

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