【VBA】シート上のチェックボックスを使いこなす！主要プロパティ解説 (Caption, Value)

2025年8月16日

はじめに

Excelのシート上に配置できる「フォームコントロール」のチェックボックスは、タスクの完了確認や、オプションのオン/オフを切り替える際に非常に便利なUI（ユーザーインターフェース）です。

VBAでこのチェックボックスを操作するためには、その基本的なプロパティを理解することが不可欠です。この記事では、シート上のチェックボックスを扱う上で最も重要となる、以下の2つのプロパティについて、それぞれの役割と使い方をサンプルコード付きで分かりやすく解説します。

Caption: チェックボックスの横に表示されるテキスト
Value: チェックの状態（オン/オフ/混合）

1. `Caption` プロパティ

チェックボックスの横に表示される**説明文（ラベルテキスト）**を取得、または設定します。

サンプルコード

' 特定のチェックボックスのキャプションを変更する
Sub ChangeCheckBoxCaption()
    Dim targetCheckBox As CheckBox
    
    ' "ConfirmCheck" という名前のチェックボックスを取得
    Set targetCheckBox = ActiveSheet.CheckBoxes("ConfirmCheck")
    
    ' .Caption プロパティで表示テキストを変更
    targetCheckBox.Caption = "最終確認済み"
    
    ' 現在のキャプションをメッセージボックスに表示
    MsgBox "キャプションを「" & targetCheckBox.Caption & "」に変更しました。"
End Sub

解説: .Caption プロパティに文字列を代入することで、表示テキストを自由に変更できます。

2. `Value` プロパティ

チェックボックスの現在の状態を取得、または設定します。このプロパティが返す値は、以下の3種類のいずれかです。

状態	VBA定数	値	説明
オン	`xlOn`	1	チェックが入っている状態
オフ	`xlOff`	-4146	チェックが外れている状態（デフォルト）
混合	`xlMixed`	2	複数のセルにリンクし、状態が混在している場合

サンプルコード

以下のコードは、シート上にある全てのチェックボックスをループ処理で確認し、それぞれの名前と状態（オン/オフ）をイミディエイトウィンドウに出力します。

' シート上の全てのチェックボックスの状態を確認する
Sub CheckAllCheckBoxValues()
    Dim chkBox As CheckBox
    Dim statusText As String
    
    Debug.Print "--- チェックボックスの状態一覧 ---"
    
    ' CheckBoxesコレクションで、シート上の全てのチェックボックスをループ
    For Each chkBox In ActiveSheet.CheckBoxes
        ' .Value プロパティの値に応じて、状態を示す文字列を決定
        Select Case chkBox.Value
            Case xlOn
                statusText = "オン"
            Case xlOff
                statusText = "オフ"
            Case Else
                statusText = "混合"
        End Select
        
        ' チェックボックスの名前（Caption）と状態を出力
        Debug.Print chkBox.Caption & ": " & statusText
    Next chkBox
End Sub

解説: For Each ループでシート上の全てのチェックボックス（ActiveSheet.CheckBoxes）を順番に調べ、.Value プロパティを評価して、現在のチェック状態を判定しています。