if文を使い、点数に応じて判定するプログラムを作ります。
80以上なら「優」、60以上なら「良」、それ以下は「可」となるようにします。
Sub IfTestプロシージャと名付けます。
プログラムの中身は、
１）80以上のみ
もしA1の値が80以上ならば
If Range(“A1”).Value >= 80 Then
B1の値が「優」になります 。
Range(“B1”).Value = “優”
以下のように記入します。
出来上がったら、F5で実行します。
２）80以下を追加
IfTest に追加で、80以下の場合は「良」と出るようにします。
IfTest2と名付けます。
それ以外の場合は（80未満）
Else
B1の値が「良」になります 。
Range(“B1”).Value = “良”
80の場合と、50の場合で結果が異なることを確認してみます。
３）60以下を追加
さらに、60以下の場合は「可」となるように追加します。
IfTest3と名付けます。
「良」の場合を変更します
Else → ElseIf
A1が80未満で60以上の場合
ElseIf Range (“A1”).Value >= 60 Then
Range(“B1”).Value = “良”
その他（A1が60未満の場合）
Else
Range(“B1”).Value = “可”
コメント