B6に100未満の整数を発生させて、
B6の整数が60以上ならB8に合格と表示させ、
未満なら何もしないマクロ解答例
Private Sub CommandButton1_Click()
Cells(6, 2) = Int(100 * Rnd())
If Cells(6, 2) >= 60 Then
Cells(8, 2) = "合格"
End If
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
では、次話の課題です。
今作ったマクロは、６０以上なら合格と表示させ、
６０未満の場合は何もしませんでしたが、
６０未満の場合不合格と表示させるようにしましょう。
