が、私はこのコードを持っている範囲VBAで

Question

を変数のすべてのインスタンスを合計：I17：

Sub yeartest() 
Dim cell As Range 
storeval = 0 
For Each cell In Range("I7:I17") 
If cell.Value = "THISVALUE" Then 

Let storeval = cell.Offset(-1, 0).Value 


End If 

Range("Q18").Activate 
ActiveCell.Formula = "=SUM(storeval)" 
Next cell 
End Sub 

コードは何をすべきことは、範囲I7を分析しています。値がTHISVALUEのこの範囲のセルが検出されるたびに、セルが1つ右に移動してその値を格納する必要があります。全範囲を分析した後、THISVALUEの右にあるすべてのセルの合計をセルQ18に出力する必要があります。

現在、セルQ18は、マクロを実行すると#NONAME値を表示します。

Answer 1

Sub yeartest() 
    Dim cll As Range 
    storeval = 0 
    For Each cll In Range("I7:I17") 
     If cell.Value = "THISVALUE" Then 
      storeval = storeval + cell.Offset(-1, 0).Value 
     End If 
    Next cll 
    Range("Q18")=storeval 
End Sub