を実現するプログラム例
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 >= 200 Then Cells(5, 7) = "合格" Else Cells(5, 7) = "不合格"
w = 0
For i = 3 To 5
w = w + Cells(6, i)
Next
Cells(6, 6) = w
If w >= 200 Then Cells(6, 7) = "合格" Else Cells(6, 7) = "不合格"
w = 0
For i = 3 To 5
w = w + Cells(7, i)
Next
Cells(7, 6) = w
If w >= 200 Then Cells(7, 7) = "合格" Else Cells(7, 7) = "不合格"
w = 0
For i = 3 To 5
w = w + Cells(8, i)
Next
Cells(8, 6) = w
If w >= 200 Then Cells(8, 7) = "合格" Else Cells(8, 7) = "不合格"
w = 0
For i = 3 To 5
w = w + Cells(9, i)
Next
Cells(9, 6) = w
If w >= 200 Then Cells(9, 7) = "合格" Else Cells(9, 7) = "不合格"
w = 0
For i = 3 To 5
w = w + Cells(10, i)
Next
Cells(10, 6) = w
If w >= 200 Then Cells(10, 7) = "合格" Else Cells(10, 7) = "不合格"
w = 0
For i = 3 To 5
w = w + Cells(11, i)
Next
Cells(11, 6) = w
If w >= 200 Then Cells(11, 7) = "合格" Else Cells(11, 7) = "不合格"
w = 0
For i = 3 To 5
w = w + Cells(12, i)
Next
Cells(12, 6) = w
If w >= 200 Then Cells(12, 7) = "合格" Else Cells(12, 7) = "不合格"
Cells(1, 1).Select
End Sub
Private Sub CommandButton2_Click()
Range(Cells(5, 3), Cells(13, 7)).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
皆さん、今回は２００点以上か２００未満の２分岐でしたが、
０点以上１００点未満
１００点以上２００点未満
２００点以上３００点以下
のように３分岐させるにはどうしたらよいでしょうか。
実は、If文は入れ子式に出来るのです。
If w>=200 Then
A
Else
If w>=100 Then
B
Else
C
End If
End If
とすると２００点以上のときは、命令Aを実行し、
２００点未満のときには
If w>=100 Then
B
Else
C
End If
の実行を命じています。
If w>=100 Then
B
Else
C
End If
は１００点以上なら、Bの実行を命じていますが、
すでに２００点未満の条件がありますから、
１００点以上２００点未満のときに命令Bを実行せよになるわけです。
そして、
Else
C
では、１００点以上の否定＝１００点未満ならCを実行せよとなります。
結局、
０点以上１００点未満のとき 命令C
１００点以上２００点未満 命令B
２００点以上３００点以下 命令A
が実行されることがお分かりでしょうか。
では、If文を入れ子式に使うことによって、
を実現しましょう。
ただし、合格条件は１５０点以上、
３区分は、
１２０点未満
１２０点以上１８０点未満
１８０点以上
にしてあります。
第３話へ 第５話へ
