VBA エクセル 合計
皆様、こんにちは。
それぞれの値が入っている会計シート（シートの形式は同じ）を一つの合計シートに合計しようとしていますが、うまくいきません。具体的に、数値の合計ができません。
例えば、ある項目に対して、シートAに100が入力され、シートBには230が入力されているとすれば、合計シートに100+230=330を入力したいです。なお、全ての会計シートは"Form"というエクセルシートにあり、その数をユーザが決めますので、検索しなければいけません。そして、合計シートは"Result"にあります。
以下のように書いてみましたが、間違っているようです。
Worksheets("Result").Activate
Dim SR As Integer
Dim SC As Integer
'SR is start row
'SC is start column
SR = 6
SC = 2
Worksheets("Form").Activate
Dim i As Integer
i = 68
Do While 1 = 1
If Selection.Cells(i, 4).Value = "" Then
Exit Do
End If
i = i + 49
Loop
Sum = 0
Sum = Sum + Selection.Cells(i, 4)
Worksheets("Result").Activate
Cells(SR + 5, SC + 2) = Sum
詳しい方に教えていただければ非常に助かります。
どうぞよろしくお願いします。
お礼
みんなありがとう