第６話 成績一覧表に数学・英語の合計と平均を算出するを加える
実行ボタンを押すと、
と各教科の合計と平均が出て、
消去ボタンを押すと、
に戻るマクロのコード例
Private Sub CommandButton1_Click()
Dim w As Integer, i As Byte
w = 0 'wを0に初期化
For i = 0 To 4 '国語の合計を算出
w = w + Cells(5 + i, 3)
Next
Cells(10, 3) = w '国語合計の表示
Cells(11, 3) = w / 5 '国語平均の表示
w = 0 'wを0に初期化
For i = 0 To 4 '数学の合計を算出
w = w + Cells(5 + i, 4)
Next
Cells(10, 4) = w '数学合計の表示
Cells(11, 4) = w / 5 '数学平均の表示
w = 0 'wを0に初期化
For i = 0 To 4 '英語の合計を算出
w = w + Cells(5 + i, 5)
Next
Cells(10, 5) = w '英語合計の表示
Cells(11, 5) = w / 5 '英語平均の表示
End Sub
Private Sub CommandButton2_Click()
Range("C10:G11").Select
Selection.ClearContents 'C10からG11までのセルの消去
Range("F5:G9").Select
Selection.ClearContents 'F5からG9までのセルの消去
Range("A1").Select
End Sub
参考ダウンロード添付ファイル
次の課題は、
実行ボタンを押すと、
（生徒の平均は÷３となりますので、小数第２位以下が表示されてしまいますが、
シートのセル側で小数第１位までしか表示されないようにして下さい。）
と各教科の合計と平均に加えて各生徒の合計と平均が表示され、
消去ボタンを押すと、
に戻るマクロを組んで下さい。
第５話へ 第７話へ
