第４講 ２次元ループに挑戦しよう。
第３話 第２話解答解説
① 表のすべてのセルの合計を出すプログラムを考えましょう。
① 解答
実行プログラム
Private Sub CommandButton1_Click()
Dim wa As Integer, i As Integer, j As Integer
wa = 0
For i = 1 To 3
For j = 5 To 8
wa = wa + Cells(j, i)
Next
Next
Cells(10, 1) = "表のすべてのセルの合計＝"
Cells(10, 4) = wa
End Sub
wa = 0でwaの初期値を０としています。
（ただし、この1行は省略可です。
変数についてなにも書いてない場合は、
Visual Basic方で初期値は０と判断するからです。）
For i = 1 To 3
For j = 5 To 8
wa = wa + Cells(j, i)
Next
Next
では、(ｊ、i）は次のように動きます。
（５，１）→（６，１）→（７，１）→（８，１）→（５，２）→（６，２）→（７，２）→（８，２）→（５，３）→（６，３）→（７，３）→（８，３）
表は次のようになっていますから
| 2 | 3 | 4 | |
| 5 | 17 | 66 | 88 |
| 6 | 63 | 30 | 45 |
| 7 | 65 | 8 | 47 |
| 8 | 48 | 95 | 78 |
（２３４は何列目かを表し、５６７８は何行目かを示す。）
wa = wa + Cells(j, i)の動きは、
１７←０＋１７
８０←１７＋６３
１４５←８０＋６５
１９３←１４５＋４８
２５９←１９３＋６６
２８９←２５９＋３０
２９７←２８９＋８
３９２←２９７＋９５
４８０←３９２＋８８
５２５←４８０＋４５
５７２←５２５＋４７
６５０←５７２＋７８
となり、１７＋６３＋６５＋４８＋６６＋３０＋８＋９５＋８８＋４５＋４７＋７８の計算ができるわけです。
何度も書いてきましたが、
＝は←と捉えると理解しやすいですよ。
wa = wa + Cells(j, i)は本来は
wa ← wa + Cells(j, i)です。
