第５話 成績一覧表の国語の合計と平均を算出する
実行ボタンを押すと、
と国語の合計と平均が出て、
消去ボタンを押すと、
に戻るマクロのコード例
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 '国語平均の表示
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
参考ダウンロード添付ファイル
では、次の課題です。
実行ボタンを押すと、
と各教科の合計と平均が出て、
消去ボタンを押すと、
に戻るマクロを実現しましょう。
第４話へ 第６話へ
