[VBA][Excel]比較演算子


※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

下記を実行すると

Private Sub CommandButton1_Click()

'補足:同じセルに値がセットされると後方の処理が優先・表示されます。
'下記の場合、1a がセットされた後に 1がセットされるので、表示は 1となります


Dim i As Integer


'Withステートメントにより Sheet1 は省略しています
With Sheet1

    For i = 1 To 10
    
        '4以下
        If i <= 4 Then
            .Cells(i, 1).Value = i & "a"
        End If
        
        '3より小さい
        If i < 3 Then
            .Cells(i, 1).Value = i
        End If

        '4より大きい
        If i > 4 Then
            .Cells(i, 1).Value = i & "b"
        End If
        
        '7以上
        If i >= 7 Then
            .Cells(i, 1).Value = i & "c"
        End If
        
        '9と等しい
        If i = 9 Then
            .Cells(i, 1).Value = i & "d"
        End If
        
        
    Next
    
    '10と等しくない
    If i <> 10 Then
        .Cells(i, 1).Value = i & "e"
    End If

End With


End Sub

このようになります。
vba-excel-hikaku-enzanshi