さらに実行ボタンを押すと、
を実現するプログラム例
Private Sub CommandButton1_Click()
Dim i As Integer, w As Integer
Cells(5, 7).Select
Selection.ClearContents
For i = 3 To 5
Cells(5, i) = Int(101 * Rnd)
Next
w = 0
For i = 3 To 5
w = w + Cells(5, i)
Next
Cells(5, 6) = w
If w >= 200 Then Cells(5, 7) = "合格"
Cells(1, 1).Select
End Sub
Private Sub CommandButton2_Click()
Range(Cells(5, 3), Cells(5, 7)).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
皆さん、今回は２００点未満のとき何もしませんでしたが、
２００点未満のときには、不合格と表示させるプログラムに変更して下さい。
第１話へ 第３話へ
