第４話 成績一覧表に講評を加える
～
を実現するプログラム例
Private Sub CommandButton1_Click()
CommandButton2_Click 'シートのB4からH11までを消去させる
Dim w As Integer, i As Byte, j As Byte
'以下国語などの表示
Cells(4, 3) = "国語"
Cells(4, 4) = "数学"
Cells(4, 5) = "英語"
Cells(4, 6) = "合計"
Cells(4, 7) = "平均"
Cells(4, 8) = "合否"
Cells(4, 9) = "講評"
Cells(45, 2) = "合計"
Cells(46, 2) = "平均"
For i = 1 To 40 '出席番号の表示
Cells(4 + i, 2) = i
Next
For i = 0 To 39 '100点以下のランダムな得点の入力
For j = 0 To 2
Cells(5 + i, 3 + j) = Int(101 * Rnd)
Next
Next
For i = 0 To 39
w = 0 '0への初期化
For j = 0 To 2 '横（各生徒）合計算出
w = w + Cells(5 + i, 3 + j)
Next
Cells(5 + i, 6) = w '横（各生徒）合計算表示
Cells(5 + i, 7) = w / 3 '横（各生徒）平均表示
If w >= 150 Then Cells(5 + i, 8) = "合格" Else Cells(5 + i, 8) = "不合格"
If w >= 180 Then
Cells(5 + i, 9) = "優秀です"
Else
If w >= 120 Then
Cells(5 + i, 9) = "普通です"
Else
Cells(5 + i, 9) = "不出来です"
End If
End If
Next
For i = 0 To 4
w = 0 '0への初期化
For j = 0 To 39 '縦（各教科）合計算出
w = w + Cells(5 + j, 3 + i)
Next
Cells(45, 3 + i) = w '縦（各教科）合計表示
Cells(46, 3 + i) = w / 40 '縦（各教科）平均表示
Next
End Sub
Private Sub CommandButton2_Click()
Range("B4:I46").Select
Selection.ClearContents 'B4からI46までのセルの消去
Range("A1").Select
End Sub
参考ダウンロード添付ファイル
次の課題は教科数を５教科にして、
～
を実現することです。
合否基準と講評基準は、
250点以上合格
250点未満不合格
300点以上「優秀です」
300点未満200点以上「普通です」
200点未満「不出来です」
とします。
第３話へ 第５話へ
