を実現するプログラム例
Private Sub CommandButton1_Click()
Dim i As Integer, w As Integer
Range(Cells(5, 7), Cells(5, 12)).Select
Selection.ClearContents
For i = 3 To 5
Cells(5, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(6, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(7, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(8, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(9, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(10, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(11, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(12, i) = Int(101 * Rnd)
Next
w = 0
For i = 3 To 5
w = w + Cells(5, i)
Next
Cells(5, 6) = w
If w >= 150 Then Cells(5, 7) = "合格" Else Cells(5, 7) = "不合格"
If w >= 200 Then
Cells(5, 8) = "あなたは天才級です。"
Else
If w >= 150 Then
Cells(5, 8) = "あなたは優秀です。"
Else
If w >= 100 Then
Cells(5, 8) = "まあまあの成績ですね。"
Else
Cells(5, 8) = "非人間的な成績です。"
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(6, i)
Next
Cells(6, 6) = w
If w >= 150 Then Cells(6, 7) = "合格" Else Cells(6, 7) = "不合格"
If w >= 200 Then
Cells(6, 8) = "あなたは天才級です。"
Else
If w >= 160 Then
Cells(6, 8) = "あなたは優秀です。"
Else
If w >= 100 Then
Cells(6, 8) = "まあまあの成績ですね。"
Else
Cells(6, 8) = "非人間的な成績です。"
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(7, i)
Next
Cells(7, 6) = w
If w >= 150 Then Cells(7, 7) = "合格" Else Cells(7, 7) = "不合格"
If w >= 200 Then
Cells(7, 8) = "あなたは天才級です。"
Else
If w >= 170 Then
Cells(7, 8) = "あなたは優秀です。"
Else
If w >= 100 Then
Cells(7, 8) = "まあまあの成績ですね。"
Else
Cells(7, 8) = "非人間的な成績です。"
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(8, i)
Next
Cells(8, 6) = w
If w >= 150 Then Cells(8, 7) = "合格" Else Cells(8, 7) = "不合格"
If w >= 200 Then
Cells(8, 8) = "あなたは天才級です。"
Else
If w >= 180 Then
Cells(8, 8) = "あなたは優秀です。"
Else
If w >= 100 Then
Cells(8, 8) = "まあまあの成績ですね。"
Else
Cells(8, 8) = "非人間的な成績です。"
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(9, i)
Next
Cells(9, 6) = w
If w >= 150 Then Cells(9, 7) = "合格" Else Cells(9, 7) = "不合格"
If w >= 200 Then
Cells(9, 8) = "あなたは天才級です。"
Else
If w >= 190 Then
Cells(9, 8) = "あなたは優秀です。"
Else
If w >= 100 Then
Cells(9, 8) = "まあまあの成績ですね。"
Else
Cells(9, 8) = "非人間的な成績です。"
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(10, i)
Next
Cells(10, 6) = w
If w >= 150 Then Cells(10, 7) = "合格" Else Cells(10, 7) = "不合格"
If w >= 200 Then
Cells(10, 8) = "あなたは天才級です。"
Else
If w >= 1100 Then
Cells(10, 8) = "あなたは優秀です。"
Else
If w >= 100 Then
Cells(10, 8) = "まあまあの成績ですね。"
Else
Cells(10, 8) = "非人間的な成績です。"
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(11, i)
Next
Cells(11, 6) = w
If w >= 150 Then Cells(11, 7) = "合格" Else Cells(11, 7) = "不合格"
If w >= 200 Then
Cells(11, 8) = "あなたは天才級です。"
Else
If w >= 1110 Then
Cells(11, 8) = "あなたは優秀です。"
Else
If w >= 100 Then
Cells(11, 8) = "まあまあの成績ですね。"
Else
Cells(11, 8) = "非人間的な成績です。"
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(12, i)
Next
Cells(12, 6) = w
If w >= 150 Then Cells(12, 7) = "合格" Else Cells(12, 7) = "不合格"
If w >= 200 Then
Cells(12, 8) = "あなたは天才級です。"
Else
If w >= 1120 Then
Cells(12, 8) = "あなたは優秀です。"
Else
If w >= 100 Then
Cells(12, 8) = "まあまあの成績ですね。"
Else
Cells(12, 8) = "非人間的な成績です。"
End If
End If
End If
Cells(1, 1).Select
End Sub
Private Sub CommandButton2_Click()
Range(Cells(5, 3), Cells(13, 8)).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
さらに、もう一段入れ子式に使うことによって、
講評を
９０点未満
９０点以上１３０点未満
１３０点以上１７０点未満
１７０点以上２１０点未満
２１０点以上
の５区分に変更しましょう。
それぞれのコメントは皆さんにお任せします。
第５話へ 第７話へ
