Private Sub CommandButton1_Click()
Dim w As Byte '変数の宣言
w = Cells(5, 2) 'エクセルシートB5から値の取得
'合否判定
If w >= 60 Then
Cells(5, 5) = "合格"
End If
If w < 60 Then
Cells(5, 5) = "不合格"
End If
End Sub
こうすればIf...Ese...文を使わなくても、
合格不合格の両方を表示させることができます。
Eseは否定文であり、否定文はわかりにくいので
すべて肯定文で表現する上のようなやり方の方がよいとする考え方もあるわけです。
ですが、私は好みの問題だと思います。
ですから、
If w >= 60 Then
Cells(5, 5) = "合格"
Else
Cells(5, 5) = "不合格"
End If
か
If w >= 60 Then
Cells(5, 5) = "合格"
End If
If w < 60 Then
Cells(5, 5) = "不合格"
End If
のどちらでもよいと思います。
自分がわかりやすいと思う方を採用すればよいのではないでしょうか。
さて、第３講第７話で完成させた『成績一覧表改良版』にIf文による合否判定を加えましょう。
合格条件は合計が３００以上とします。
合否の欄に合計が３００以上なら合格、３００未満なら不合格と表示できるようにコーティングしましょう。
解答例は３０行下。
コーティング例
Private Sub CommandButton1_Click()
・
・
・
'各生徒の合否判定
For i = 1 To 40
If Cells(6 + i, 7) >= 300 Then
Cells(6 + i, 9) = "合格"
Else
Cells(6 + i, 9) = "不合格"
End If
Next
End Sub
実行画面例
さらに、合否の右側に講評を付け加えます。
講評は、例えば
２００点未満なら『かなりのがんばりが必要です。』
２００以上３００未満なら『合格まで後一歩です。』
３００以上なら『おめでとう』
としましょう。３段階なら、点数の区分やコメントはこの通りにする必要はありません。
皆さんがいろいろ考えて遊びましょう。
さて、３段階にするにはどうしたらよいでしょうか。
実はIf文やIf...Esle...文は入れ子式に使うことが出来ます。
３段階は次のようにして可能です。
For i = 1 To 40
If Cells(6 + i, 7) >= 300 Then
Cells(6 + i, 10) = "おめどうとう"
Else
If Cells(6 + i, 7) >= 200 Then
Cells(6 + i,10) = "合格まで後一歩です。"
Else
Cells(6 + i, 10) = "かなりのがんばりが必要です。"
End If
End If
Next
では、
２００点未満なら『かなりのがんばりが必要です。』
２００以上３００未満なら『合格まで後一歩です。』
３００以上３５０点未満なら『おめでとう』
３８０以上『あなたはかなり優秀です。』
の４段階評価ならどうしたらよいでしょうか。
If文をさらに入れ子式に使います。
