前 実行ボタンを押すと、
消去ボタンを押すと、
を実現するするプログラム例Private Sub CommandButton1_Click()
Dim a As Integer, i As Integer
a = 0
For i = 5 To 10
a = a + Cells(i, 3)
Next
Cells(11, 3) = a
a = 0
For i = 5 To 10
a = a + Cells(i, 4)
Next
Cells(11, 4) = a
a = 0
For i = 5 To 10
a = a + Cells(i, 4)
Next
Cells(11, 5) = a
a = 0
For i = 3 To 5
a = a + Cells(5, i)
Next
Cells(5, 6) = a
a = 0
For i = 3 To 5
a = a + Cells(6, i)
Next
Cells(6, 6) = a
a = 0
For i = 3 To 5
a = a + Cells(7, i)
Next
Cells(7, 6) = a
a = 0
For i = 3 To 5
a = a + Cells(8, i)
Next
Cells(8, 6) = a
a = 0
For i = 3 To 5
a = a + Cells(9, i)
Next
Cells(9, 6) = a
a = 0
For i = 3 To 5
a = a + Cells(10, i)
Next
Cells(10, 6) = a
a = 0
For i = 3 To 5
a = a + Cells(11, i)
Next
Cells(11, 6) = a
End Sub
Private Sub CommandButton2_Click()
Range("C11:E11").Select
Selection.ClearContents
Range("F5:F11").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
大分コードが長くなってしまいました。
実は、２次元For文を使えばそれぞれを５行でまとめられるのですが、
いきなり２次元For文をやると頭が混乱しますから、
とりあえずは、これで満足することにしましょう。
では、皆さん次の参考ダウンロード添付ファイルを開き、
実行ボタンを押すと、その答がE4に示され、
消去ボタンを押すとE4が消えるプログラムを組んで下さい。
第４話へ 第６話へ
