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

著者Siluvia変更日2025-07-24

一部のExcel アプリケーションでは、ユーザーがチェックボックスのグループから常に1 つだけを選択できるようにする必要があります。これは、ラジオボタンと同様の動作を再現するもので、たとえば以下のスクリーンショットのように、行2 にあるいずれかのチェックボックスをオンにすると、グループ内の他のすべてのチェックボックスが即座にオフになります。この仕組みは、アンケートフォームや単一回答が必要な選択リスト、複数回答を防ぎたいダッシュボードなどに最適です。Excel でこのような「単一選択」機能を実現するには、VBA コードなど特定の手法が必要です。本記事では、Excel のチェックボックスを使ってこの効果を実装するための実用的な解決策を、ステップ・バイ・ステップの手順と実際の使用時に押さえておきたい重要なポイントとともにご紹介します。

Excel で一度に1つだけ選択可能なチェックボックスのグループのスクリーンショット

VBA コードでチェックボックスを1 つだけ選択可能にする

VBA コードでチェックボックスを1 つだけ選択可能にする

次の VBA アプローチを使えば、グループ内のチェックボックスを一度に1 つだけ選択できるようになります。この方法は、シームレスで自動的な操作性が求められる場面——特に複雑なテンプレートや有効／無効の制御ロジックが重要なケースに最適です。

1。まず、単一選択を強制したい場所にチェックボックスを挿入します。この方法では、ActiveX コントロールのチェックボックスを使用する必要があります。なぜなら、フォームコントロールのチェックボックスは、直接有効/無効の制御に対応していないからです。ActiveX チェックボックスを挿入するには、開発タブ＞挿入＞ActiveX コントロール＞チェックボックスをクリックし、以下のように目的のグループ内にすべてのチェックボックスを配置します。

Excel で ActiveX コントロールのチェックボックスを挿入している様子のスクリーンショット

2。Alt＋F11キーを同時に押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

3。エディターウィンドウで、挿入＞クラスモジュールをクリックします。これにより新しいクラスモジュールが作成され、複数のチェックボックスのイベント処理が可能になります。クラスモジュールを使えば、チェックボックスの数にかかわらず、それぞれのクリックイベントに個別に対応できます。

Excel VBA でクラスモジュールを挿入するオプションを示すスクリーンショット

4。左側の（通常表示される）プロパティペインで新しいクラスモジュールを見つけ、クリックして、()名前)ボックス内のデフォルト名（例：Class1）をClsChkに変更します。その後、このクラスモジュールのコードウィンドウに以下のコードをコピー＆ペーストしてください。参考までに、スクリーンショットもご確認ください。

クラス名を ClsChk に変更するための VBA プロパティペインのスクリーンショット

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キーを押してコードを実行し、チェックボックスグループに単一選択ロジックを適用してください。いずれかのチェックボックスをオンにして動作を確認すると、他のすべてのチェックボックスが即座にオフになり、無効になるはずです。現在選択されているチェックボックスをオフにすると、すべてのチェックボックスが再び有効になり、別の選択が可能になります。

VBA コード実行後に Excel のチェックボックスのうち1つだけが有効になっているスクリーンショット

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

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

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！