Excelでグループ内のチェックボックスを1つだけ選択可能にするにはどうすればよいですか？

Author Siluvia Last modified 2025-08-26

一部のExcelアプリケーションでは、ユーザーがチェックボックスのグループから1つのオプションのみを選択できるようにする必要がある場合があります。これはラジオボタンの動作を模倣したものです。例えば、以下のスクリーンショットのように、行2のチェックボックスをオンにすると、グループ内の他のすべてのチェックボックスが即座に無効になり、一度に1つの選択肢しか選べないようにします。この制限は、アンケートフォームや単一回答選択リスト、ダッシュボードなどで複数回答を防ぎたい場合に便利です。この機能をExcelで直接実現するには、VBAコードを使用するなど特定の技術が必要です。本記事では、Excelでのチェックボックスを使用して「単一選択」効果を有効にするための実践的なソリューションを提供し、ステップバイステップの手順と実際の使用における重要な考慮事項を含みます。

A screenshot of a group of checkboxes in Excel where only one can be selected at a time

VBAコードを使用して1つのチェックボックスのみを選択可能にする

VBAコードを使用して1つのチェックボックスのみを選択可能にする

次のVBAアプローチを使用することで、グループ内のチェックボックスを同時に1つだけ選択可能にできます。このソリューションは、シームレスで自動化された体験が必要な場合、特に複雑なテンプレートや有効/無効のロジックを管理することが重要な場合に最適です。

1. まず、単一選択を適用したい場所にチェックボックスを挿入します。このソリューションでは、フォームコントロールのチェックボックスでは直接有効/無効メカニズムをサポートしていないため、ActiveXコントロールのチェックボックスを使用する必要があります。ActiveXチェックボックスを挿入するには、「開発」タブ → 「挿入」 → 「ActiveXコントロール」 → 「チェックボックス」に進みます。以下のように、目的のグループ内にすべてのチェックボックスを配置してください：

A screenshot showing the insertion of ActiveX Control checkboxes in Excel

2. Alt + F11キーを同時に押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

3. エディター画面で、「挿入」 → 「クラスモジュール」をクリックします。このステップでは、複数のチェックボックスのイベントを処理するために必要な新しいクラスモジュールを作成します。クラスモジュールを使用することで、存在するチェックボックスの数に関係なく、個々のチェックボックスがクリックされるたびに応答することが可能になります。

A screenshot showing the option to insert a Class Module in Excel VBA

4. プロパティペイン（通常は左側）で新しく作成されたクラスモジュールを見つけ、それをクリックして (名前) ボックスでデフォルトの値（例: Class1）から ClsChk に名前を変更します。その後、次のコードをこのクラスモジュールのコードウィンドウにコピー＆ペーストしてください。参考としてスクリーンショットをご覧ください：

A screenshot of the Properties pane in VBA for renaming the class to ClsChk

VBAコード1：一度に1つのチェックボックスのみを選択可能にする

Option Explicit
Public WithEvents Chk As MSForms.CheckBox
Private Sub Chk_Click()
Call SelOneCheckBox(Chk)
End Sub

Sub SelOneCheckBox(Target As Object)
Dim xObj As Object
Dim I As String
Dim n As Integer
If Target.Object.Value = True Then

    I = Right(Target.Name, Len(Target.Name) - 8)
    For n = 1 To ActiveSheet.OLEObjects.Count
      If n <> Int(I) Then
        Set xObj = ActiveSheet.OLEObjects.Item(n)
        xObj.Object.Value = False
        xObj.Object.Enabled = False
      End If
    Next
Else
    I = Right(Target.Name, Len(Target.Name) - 8)
    For n = 1 To ActiveSheet.OLEObjects.Count
      If n <> Int(I) Then
        Set xObj = ActiveSheet.OLEObjects.Item(n)
        xObj.Object.Enabled = True
      End If
    Next
End If
End Sub

5. 次に、「挿入」→「モジュール」をクリックして標準コードモジュールを追加します。次のコードをモジュールウィンドウにコピー＆ペーストします。このコードは、すべてのチェックボックスを上記で定義されたイベントハンドラに初期化および「リンク」します：

VBAコード2：一度に1つのチェックボックスのみを選択可能にする

Dim xCollection As New Collection
Public Sub ClsChk_Init()
Dim xSht As Worksheet
Dim xObj As Object
Dim xChk As ClsChk
   Set xSht = ActiveSheet
   Set xCollection = Nothing
    For Each xObj In xSht.OLEObjects
        If xObj.Name Like "CheckBox**" Then
            Set xChk = New ClsChk
            Set xChk.Chk = CallByName(xSht, xObj.Name, VbGet)
            xCollection.Add xChk
        End If
    Next
    Set xChk = Nothing
End Sub

6. F5キーを押してコードを実行すると、チェックボックスグループに対する単一選択ロジックがアクティブになります。任意のチェックボックスを選択して動作をテストしてください。他のすべてのチェックボックスは即座に未選択かつ無効状態になります。現在の選択を解除すると、すべてのチェックボックスが再度有効となり、別の選択を行うことができます。

A screenshot of checkboxes in Excel where only one is enabled at a time after VBA code execution

注意：グループ内のチェックボックスを追加または削除した場合は、初期化VBAを再実行する必要があります。これは、コードが実行されるたびにイベントハンドラが更新され、コントロールグループへの変更がVBAによって適切に認識されるためです。

この方法の利点には、完全な自動化が含まれており、ユーザーが誤って複数のオプションを選択することはありません。ただし、この方法はActiveXコントロールでのみ動作し、Excelバージョンによっては制限される可能性があり、マクロを有効にする必要があります。また、ActiveXコントロールやマクロを含むワークブックを他のユーザーに配布する際には、追加のセキュリティ許可が必要になる場合があります。

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数