次のコードは2列目から５列目まで、各列ごとの数値を合計し、その値を合計行に入力するマクロである。
以下の空欄に入る適切な語句を解答しなさい。
Sub Exam1()
Dim total As Long
Dim i As Long, j As Long
For j = 2 To 5
total = 【 ① 】
For i = 2 To 8
total = total + Cells【 ② 】
Next i
Cells(9, j) = total
Next j
End Sub
正解
【 ① 】0 【 ② 】(i, j)
解説
【2章 変数の活用】
A = A + Cells(i, j)の記述では変数Aにセルの値を繰り返し加算しています。
●またtotal = 0で変数の値をリセットして、次の列以降の計算を行います。
【コード解説】
Sub Exam1()
Dim total As Long
' 長整数型の変数 total を宣言する。
Dim i As Long, j As Long
' 長整数型の変数 i と j を宣言する。
②For j = 2 To 5
' 3列目から5列目までループ処理をする。
total = 0
' 次の列の計算用に変数 total を 0 にリセットする。
⓵For i = 2 To 8
' 2行目から8行目までループ処理をする。
total = total + Cells(i, j)
' 変数 total に各セルの値を加算する。
Next i
'⓵に戻り変数iを開始値から終了値の間で繰り返し処理をする。
Cells(9, j) = total
' 合計値を9行目の各列に入力する。
Next j
'②に戻り変数jを開始値から終了値の間で繰り返し処理をする。
End Sub
