CBool Function

文字列や数値の比較演算結果、および単独の数値表式をブール型の表式に変換します。

構文:

CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) あるいは CBool (Number)

戻り値:

ブール型

パラメーター:

Expression1, Expression2: 比較する文字列および数値の表式。CBool 関数は、2 つの表式が一致すれば True を返し、それ以外の場合は False を返します。

Number: 変換させる数値表式。表式が 0 に等しい場合は False を返し、それ以外の場合は True を返します。

下記の例は、Instr 関数から返される値を、CBool 関数を使って評価させています。この関数は、ユーザーの入力する文字列の中に「and」という単語が含まれているかを判定します。

Error codes:

5 無効なプロシージャー呼び出しです

例:

Sub ExampleCBool

Dim sText As String

    sText = InputBox("Please enter a short sentence:")

    REM 入力した文字列中に「and」があるかを調べます。

    REM 通常こうした判定には下記のような IF 文を使います。

    REM If Instr(Input, "and")<>0 Then...

    REM ここではその代わりに CBool 関数を使って判定をしています。

    If CBool(Instr(sText, "and")) Then

        MsgBox "入力した文字列中に「and」があります。

    EndIf

End Sub