Excel의 확인란 그룹에서 하나의 확인란 만 선택되도록 만드는 방법은 무엇입니까?

아래 스크린 샷과 같이 2 행에 나열된 확인란 그룹에 대해 하나의 확인란 만 선택하거나 선택하면 다른 확인란은 비활성화됩니다. 그것을 달성하는 방법? 이 기사의 VBA 코드가 도움이 될 수 있습니다.

VBA 코드로 하나의 확인란 만 선택하십시오.

VBA 코드로 하나의 확인란 만 선택하십시오.

아래 VBA 코드를 실행하여 한 번에 확인란 그룹에서 하나의 확인란 만 선택할 수 있습니다. 다음과 같이하십시오.

1. 먼저 필요에 따라 확인란을 삽입하십시오. 여기에 ActiveX 컨트롤 확인란 다음 스크린 샷과 같이 :

2. 그런 다음 다른 + F11 키를 동시에 열면 응용 프로그램 용 Microsoft Visual Basic 창.

3. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 클래스 모듈.

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 코드를 다시 실행하여 모든 체크 박스를 다시 활성화하십시오. 확인란 그룹에서 확인란을 삭제하면 코드도 다시 실행해야합니다.

R기쁜 기사:

• Excel의 확인란을 기반으로 데이터를 필터링하는 방법은 무엇입니까?
• Excel에서 행이 숨겨져있을 때 확인란을 숨기는 방법은 무엇입니까?
• Excel에서 확인란으로 셀 또는 행을 강조 표시하는 방법은 무엇입니까?
• Excel에서 여러 확인란이있는 드롭 다운 목록을 만드는 방법은 무엇입니까?
• Excel에서 확인란을 선택한 경우 날짜 스탬프를 셀에 삽입하는 방법은 무엇입니까?