ExcelVBA CBool関数 Boolean型に変換します

Excel VBAの「CBool 関数」について解説します。

CBool 関数とは
構文（引数と戻り値）
解説（使用例）
1. CBool 関数の引数と戻り値を確認するサンプル
おわりに
VBAサンプルファイルダウンロードページのご案内

CBool 関数とは

Excel VBA の CBool 関数は、引数をブール(Boolean)型に変換して返します。

CBool 関数は、引数を特定のデータ型に強制的に変換するデータ型変換関数のひとつです。

では、CBool 関数の構文や引数の設定と実際の使い方について具体的に解説していきたいと思います。

CBool 関数(Visual Basic for Applications リファレンス)

構文（引数と戻り値）

Excel VBAの関数を使いこなすには、関数の構文を正しく理解しておくことが重要です。

構文

CBool(expression)

引数

引数	説明
expression	【必須】任意の文字列式または数式を指定します

戻り値

戻り値	説明
Boolen型の結果	Boolean は True または False を返します【引数が数式の場合】・結果が 0 なら False、0 以外は True 【引数が文字列式の場合】・”True” なら True、”False” なら False ・数値と認識できる値なら数式の場合と同じ・それ以外はエラー13 が発生します

解説（使用例）

CBool 関数のサンプルコードを使って解説します。

CBool 関数の引数と戻り値を確認するサンプル

CBool 関数のいろいろな引数とその戻り値をイミディエイトに表示して確認するサンプルです。

'■CBool関数サンプル
Sub CBool_Sample()
  Dim v As Variant
  On Error GoTo ErrH
  v = 0       '数値「0」
  Debug.Print CBool(v) & _
              " ← CBool(" & v & ")"
  v = 0.1     '数値（小数値）
  Debug.Print CBool(v) & _
              " ← CBool(" & v & ")"
  v = -12     '数値（マイナス値）
  Debug.Print CBool(v) & _
              " ← CBool(" & v & ")"
  v = "1２"   '文字列の数字
  Debug.Print CBool(v) & _
              " ← CBool(""" & v & """)"
  v = "true"  '文字列 "true"
  Debug.Print CBool(v) & _
              " ← CBool(""" & v & """)"
  v = "false" '文字列 "false"
  Debug.Print CBool(v) & _
              " ← CBool(""" & v & """)"
  v = "2024/1/1"  '日付文字列
  Debug.Print CBool(v) & _
              " ← CBool(""" & v & """)"
  v = CDate("2024/1/1") 'Date値
  Debug.Print CBool(v) & _
              " ← CBool(" & v & ")"
  v = "十二"
  Debug.Print CBool(v) & _
              " ← CBool(""" & v & """)"
  Exit Sub
ErrH:
  Debug.Print "エラー" & _
            " ← CBool(""" & v & """)"
  Resume Next
End Sub

このコードを実行したイミディエイト画像がこちらです。