【ExcelVBA 演算子】比較演算子の使い方について知りたいです。教えて！

構文
使い方
プログラミング例
まとめ

構文

比較演算子は2つの値を比較して真偽値を返します。ExcelVBAでは、次の比較演算子が使用できます。

演算子	意味
=	等しい
<>	等しくない
>	大きい
<	小さい
>=	以上
<=	以下

比較演算子は、条件式の中で使用されます。条件式は、IF文やSELECT CASE文、WHILE文などで使用されます。次の例では、IF文での条件式の例を示します。

If a = b Then
' 条件が真の場合に実行する処理を記述
Else
' 条件が偽の場合に実行する処理を記述
End If

この場合、a = bは条件式であり、等しい演算子=が使用されています。条件式が真の場合は、IF文のブロック内のコードが実行されます。条件式が偽の場合は、ELSEブロック内のコードが実行されます。

使い方

比較演算子は、多くの場合、IF文、SELECT CASE文、WHILE文などで使用されます。条件式が成立する場合に実行されるコードブロックは、IF文やSELECT CASE文などで定義されます。以下は、IF文の使用例を示します。

Sub Compare()
Dim a As Integer
Dim b As Integer
a = 10
b = 20
If a > b Then
MsgBox "aはbより大きいです"
ElseIf a < b Then
MsgBox "aはbより小さいです"
Else
MsgBox "aとbは等しいです"
End If
End Sub

この例では、2つの整数型変数aとbを宣言し、それぞれに値を設定しています。次に、IF文を使用して、aとbの大小関係を比較し、メッセージを表示しています。

また、比較演算子は、条件式の中で複数回使用することができます。例えば、複数の条件を組み合わせて判断する場合は、論理演算子と組み合わせて使用することができます。

論理演算子は、複数の条件を組み合わせて評価するために使用されます。Excel VBAでは、次の論理演算子が使用できます。

演算子	意味
And	かつ
Or	または
Not	否定

次の例は、AND演算子を使用した例です。

Sub CompareWithAnd()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 10
b = 20
c = 30
If a < b And b < c Then
MsgBox "aはbより小さく、bはcより小さいです"
End If
End Sub

この例では、3つの整数型変数a、b、cを宣言し、それぞれに値を設定しています。次に、IF文を使用して、aがbより小さく、かつbがcより小さい場合に、メッセージを表示しています。この場合、AND演算子が使用されています。

プログラミング例

以下は、Excel VBAで比較演算子を使用したプログラミング例です。

1.数字の大小比較

Sub CompareNumbers()
Dim num1 As Integer
Dim num2 As Integer
num1 = InputBox("1つ目の数字を入力してください。")
num2 = InputBox("2つ目の数字を入力してください。")
If num1 > num2 Then
MsgBox num1 & "は" & num2 & "より大きいです。"
ElseIf num1 < num2 Then
MsgBox num1 & "は" & num2 & "より小さいです。"
Else
MsgBox num1 & "と" & num2 & "は等しいです。"
End If
End Sub

この例では、ユーザーに2つの数字を入力するように求め、比較演算子を使用して、数字の大小を比較しています。

2.文字列の比較

Sub CompareStrings()
Dim str1 As String
Dim str2 As String
str1 = InputBox("1つ目の文字列を入力してください。")
str2 = InputBox("2つ目の文字列を入力してください。")
If str1 = str2 Then
MsgBox "2つの文字列は等しいです。"
Else
MsgBox "2つの文字列は等しくありません。"
End If
End Sub

この例では、ユーザーに2つの文字列を入力するように求め、等しい演算子を使用して、文字列の等しさを比較しています。