条件分岐
●If文による条件分岐
'If文による合否判定(A1に入力された点数を判定)
If Sheets("Sheet1").Cells(1,1) >= 80 Then
'80点以上の場合はB1に合格と入力
Sheets("Sheet1").Cells(1,2)="合格"
Else
'それ以外の場合はB1に不合格と入力
Sheets("Sheet1").Cells(1,2)=不合格"
End If
<ざっくり解説>
条件を満たすときの処理と、
条件を満たさないときの処理の
2パターンを判別するときに使用します。
●Select Caseによる条件分岐
'Select Caseによるランク判定(A1に入力された点数を判定)
'ランク判定
Select Case Sheets("Sheet1").Cells(1,1)
Case Is>=80
Sheets("Sheet1").Cells(1,2)="Aランク"
Case Is>=70
Sheets("Sheet1").Cells(1,2)="Bランク"
Case Is>=60
Sheets("Sheet1").Cells(1,2)="Cランク"
Case Is>=50
Sheets("Sheet1").Cells(1,2)="Dランク"
Case Else
Sheets("Sheet1").Cells(1,2)="Eランク"
End Select
<ざっくり解説>
合否判定ではなく、
点数によるランク判定などの
複数条件分岐に使用します。
コメントを残す