If then 構文
例文:
A1セルの値が80以上であれば B1セルに 優。70~79であれば 良。
60~69であれば 可。 59以下の場合は 不可を入れる。
Sub 優良可不可()
If Range("A1") >= 80 Then
Range("B1") = "優"
ElseIf Range("A1") >= 70 Then
Range("B1") = "良"
ElseIf Range("A1") >= 60 Then
Range("B1") = "可"
Else
Range("B1") = "不可"
End If
End Sub

コメント