●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

<ざっくり解説>

合否判定ではなく、
点数によるランク判定などの
複数条件分岐に使用します。