Excelのチェックボックスのグループで選択されるチェックボックスをXNUMXつだけにする方法は？

以下のスクリーンショットに示すように、行2にリストされているチェックボックスのグループで、XNUMXつのチェックボックスのみを選択またはチェックすると、他のチェックボックスは無効になります。 それを達成する方法は？ この記事のVBAコードは役に立ちます。

VBAコードで選択するチェックボックスをXNUMXつだけ作成します

VBAコードで選択するチェックボックスをXNUMXつだけ作成します

以下のVBAコードを実行して、チェックボックスグループで一度にXNUMXつのチェックボックスのみを選択できます。 次のようにしてください。

1.まず、必要に応じてチェックボックスを挿入してください。 ここに、を挿入する必要があります ActiveXコントロールのチェックボックス 次のスクリーンショットのように：

2.次にを押します 他の + F11キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

3.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > クラスモジュール.

4.クラス名をに変更します Clsチェック の中に （名前）の箱 プロパティ ペインをクリックし、以下のVBAコードをコピーして対応するものに貼り付けます Code 窓。 スクリーンショットを参照してください：

VBAコード1：一度にXNUMXつのチェックボックスのみを選択します

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コードをコピーして貼り付けます モジュール 窓。

VBAコード2：一度にXNUMXつのチェックボックスのみを選択します

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 コードを実行するためのキー。

これ以降、ワークシートのチェックボックスのいずれかをオンにすると、他のチェックボックスが自動的に無効になり、チェックを外してすべてのチェックボックスを再度アクティブにすることができます。

Note：チェックボックスグループに新しいチェックボックスが追加された場合は、VBAコードを再実行して、すべてのチェックボックスを再度アクティブにしてください。 チェックボックスグループからチェックボックスを削除すると、コードも再実行する必要があります。

R高揚した記事:

• Excelのチェックボックスに基づいてデータをフィルタリングするにはどうすればよいですか？
• Excelで行が非表示になっているときにチェックボックスを非表示にするにはどうすればよいですか？
• Excelのチェックボックスでセルまたは行を強調表示するにはどうすればよいですか？
• Excelで複数のチェックボックスを含むドロップダウンリストを作成するにはどうすればよいですか？
• Excelのチェックボックスをオンにした場合、セルに日付スタンプを挿入するにはどうすればよいですか？