Excel에서 그룹 내 하나의 체크박스만 선택되도록 허용하려면 어떻게 해야 합니까?

아래 스크린샷에 표시된 바와 같이, 행 2에 나열된 체크박스 그룹에서 하나의 체크박스를 선택하거나 체크하면 다른 모든 체크박스가 자동으로 비활성화됩니다. 이를 어떻게 달성할 수 있을까요? 이 문서의 VBA 코드가 도움이 될 수 있습니다.

VBA 코드로 하나의 체크박스만 선택 가능하게 만들기

VBA 코드로 하나의 체크박스만 선택 가능하게 만들기

아래 VBA 코드를 실행하여 체크박스 그룹에서 한 번에 하나의 체크박스만 선택할 수 있습니다. 아래 단계를 따르세요.

1. 먼저 필요에 따라 체크박스를 삽입하세요. 여기서는 다음 스크린샷에 표시된 대로 ActiveX 컨트롤 체크박스를 삽입해야 합니다:

2. 그런 다음 Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

3. 열린 Microsoft Visual Basic for Applications 창에서 삽입 > 클래스 모듈을 클릭합니다.

4. 속성 창의 (이름) 상자에서 클래스 이름을 ClsChk로 변경하고, 아래 VBA 코드를 해당 코드 창에 복사하여 붙여넣습니다. 스크린샷 참조:

VBA 코드 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 코드를 모듈 창에 복사하여 붙여넣습니다.

VBA 코드 2: 한 번에 하나의 체크박스만 선택하기

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에서 체크박스를 기준으로 데이터를 필터링하려면 어떻게 해야 합니까?
• Excel에서 행이 숨겨질 때 체크박스를 숨기려면 어떻게 해야 합니까?
• Excel에서 체크박스로 셀 또는 행을 강조하려면 어떻게 해야 합니까?
• Excel에서 여러 체크박스가 포함된 드롭다운 목록을 생성하려면 어떻게 해야 합니까?
• Excel에서 체크박스를 선택했을 때 날짜 스탬프를 셀에 삽입하려면 어떻게 해야 합니까?