前話問題解答例
Private Sub CommandButton1_Click()
Dim w As Byte, i As Byte
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 1)
Next
Cells(13, 1) = w
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 2)
Next
Cells(13, 2) = w
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 3)
Next
Cells(13, 3) = w
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 4)
Next
Cells(13, 4) = w
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 5)
Next
Cells(13, 5) = w
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 6)
Next
Cells(13, 6) = w
w = 0
For i = 0 To 5
w = w + Cells(7, 1 + i)
Next
Cells(7, 7) = w
w = 0
For i = 0 To 5
w = w + Cells(8, 1 + i)
Next
Cells(8, 7) = w
w = 0
For i = 0 To 5
w = w + Cells(9, 1 + i)
Next
Cells(9, 7) = w
w = 0
For i = 0 To 5
w = w + Cells(10, 1 + i)
Next
Cells(10, 7) = w
w = 0
For i = 0 To 5
w = w + Cells(11, 1 + i)
Next
Cells(11, 7) = w
w = 0
For i = 0 To 5
w = w + Cells(12, 1 + i)
Next
Cells(12, 7) = w
End Sub
上のプログラムは、もちろん良いプログラムとはいえません。
理由はお分かりですね。
同じことをなんかも繰り返しているからです。
もちろん、これを解消する方法はあります。
その方法は、For文を入れ子式に２回使う方法です。
入れ子式に２回使う方法を２次元ループといいます。
２次元ループは後の講の課題ですので、
しばらくは、このできの悪いコードで我慢するしかありません。
Private Sub CommandButton2_Click()
Range("A13:F13").Select
Selection.ClearContents
Range("G7:G12").Select
Selection.ClearContents
Range("A1").Select
End Sub
