ExcelVBAのWorksheetFunctionオブジェクトで使用するAnd関数の使い方

構文

構文は以下の通りです。

WorksheetFunction.And(条件1, 条件2, ...)

解説

WorksheetFunctionは、ExcelVBAの組み込みオブジェクトで、Excelのワークシート関数をVBAから呼び出す際に使用します。And関数は、複数の条件がすべて「はい」（真）かどうかを調べます。条件1, 条件2, ...には、調べたいルールや条件を入れます。

プログラミング例

具体的なプログラミング例を紹介します。

Sub 両方の条件をチェック()
    Dim 年齢 As Integer
    Dim 点数 As Integer
    Dim 判定結果 As Boolean
    年齢 = 12
    点数 = 80
    判定結果 = WorksheetFunction.And(年齢 >= 10, 点数 >= 70)
    If 判定結果 = True Then
        MsgBox "合格です。おめでとう。"
    Else
        MsgBox "残念ながら不合格です。もう一度がんばろう。"
    End If
End Sub

上記のプログラムは、And関数を使って「年齢が10以上」かつ「点数が70以上」かをチェックします。両方の条件が「はい」なら、メッセージボックスで「合格です。おめでとう。」と出ます。

まとめ

And関数を使うと、いくつかの条件が全部そろっているかどうかを一度に調べることができます。