#13エクセルVBA入門－if条件分岐

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 = “可”