第４話 a＋（ａ＋ｄ）＋（ａ＋２＊ｄ）＋・・・＋ｌを求めるソフト
C3に初項、F3に末項、I3に公差を入力して実行ボタンを押すと、
となり、消去ボタンを押すと
を実現するプログラム例
Private Sub CommandButton1_Click()
Dim w As Long, a As Integer, i As Integer, l As Integer, d As Byte
a = Cells(3, 3)
l = Cells(3, 6)
d = Cells(3, 9)
w = 0 'wを0に初期化する
For i = a To l Step d 'aから始めてdずつ変化させてlまで繰り返す。
w = w + i
Next
Cells(5, 2) = w
End Sub
Private Sub CommandButton2_Click()
Range("C3,F3,I3,B5").Select
Selection.ClearContents
Range("A1").Select
End Sub
参考ダウンロード添付ファイル
では、課題です。次の
添付ファイルを開いて、
実行ボタンを押すと、
と国語の合計と平均が出て、
消去ボタンを押すと、
に戻るマクロを組んで下さい。
ただし、消去は合計欄と平均欄がすべてクリア（空）になるように組むものとしましょう。
第３話へ 第５話へ
