For～Nextの使い方

質問

こんにちは

Range("B19").Value = Application.WorksheetFunction.Sum(Range("B4:B17"))
Range("B55").Value = Application.WorksheetFunction.Sum(Range("B40:B53"))
Range("B91").Value = Application.WorksheetFunction.Sum(Range("B76:B89"))
Range("B127").Value = Application.WorksheetFunction.Sum(Range("B112:B125"))

上記を参考書等で見ながらやって見たのですが 動作しません。
For～Nextの使い方を教えて下さい。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim x As Long, g As Long
For x = 19 To 127 Step 36
For g = 4 To 112 Step 36
Cells(x, "B").Value = Application.WorksheetFunction.Sum(Cells(g, "B"))
Exit For
Next
Next
End Sub

回答No.3

n-jun · ベストアンサー

＞Cells(x, "B").Value = Application.WorksheetFunction.Sum(Cells(g, "B"))
ってSUM関数でセル１個しか範囲としていませんよね？

Dim x As Long
For x = 19 To 127 Step 36
Cells(x, "B").Value = Application.WorksheetFunction.Sum(Range(Cells(x - 15, "B"), Cells(x - 2, "B")))
Next

とかではないの？

お礼

説明不十分にもかかわらず、ご理解下さり有り難うございます。
(Range(Cells(x - 15, "B"), Cells(x - 2, "B")))の
部分が大変勉強になりました。
有り難うございました。

回答No.2

mt2008

For～Next　以前に色々問題のあるマクロですが……。

まず、何をしようしていますか？
質問冒頭の
> Range("B19").Value = Application.WorksheetFunction.Sum(Range("B4:B17"))
と、その後で提示されているマクロの関連が良く判りません。

補足

説明不足ですみません。
Range("B19").Value にB4:B17合計を入れる
Range("B55").Value にB40:B53合計を入れる
Range("B91").Value にB76:B89合計を入れる
Range("B127").Value にB112:B125合計を入れる
規則性があるので、For～Nextで出来るのではないかと
思いました。
そもそも↓このコードが間違えなのでしょうか？
宜しくお願いします。
Range("B19").Value = Application.WorksheetFunction.Sum(Range("B4:B17"))

回答No.1

nattocurry

> 動作しません。

具体的にはどういうことですか？
実行されるけど思い通りの結果が得られないのか、実行されないのか、実行の途中でエラーで止まってしまうのか。

ちなみに、どうやって実行しようとしていますか？