Cum să permiteți selectarea unei singure casete dintr-un grup în Excel?

După cum se arată în captura de ecran de mai jos, pentru un grup de casete de selectare enumerate în rândul 2, atunci când selectați sau bifați o casetă de selectare, toate celelalte sunt dezactivate automat. Cum se realizează? Codul VBA din acest articol vă poate ajuta.

Bifați o singură casetă de selectare pentru a fi selectată cu codul VBA

Bifați o singură casetă de selectare pentru a fi selectată cu codul VBA

Puteți rula codurile VBA de mai jos pentru a selecta o singură casetă de selectare dintr-un grup de casete de selectare de fiecare dată. Vă rugăm să faceți următoarele.

1. În primul rând, introduceți casetele de selectare după cum aveți nevoie. Aici, ar trebui să introduceți fișierul Casete de selectare ActiveX Control după cum se arată în următoarea captură de ecran:

2. Apoi apăsați Alt + Tastele F11 simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. În deschidere Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Modulul clasei.

4. Schimbați numele clasei în ClsChk în (Nume) caseta din Proprietăţi , apoi copiați și lipiți codul VBA de mai jos în cel corespunzător Cod fereastră. Vedeți captura de ecran:

Cod VBA 1: bifați o singură casetă de selectare de fiecare dată

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. Acum faceți clic pe Insera > Module, apoi copiați și lipiți codul VBA de mai jos în Module fereastră.

Cod VBA 2: bifați o singură casetă de selectare de fiecare dată

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. apasă pe F5 tasta pentru a rula codul.

De acum înainte, când bifați oricare dintre casetele de selectare din foaia de lucru, toate celelalte casete de selectare sunt dezactivate automat și o puteți debifa pentru a activa din nou toate casetele de selectare.

notițe: Dacă se adaugă o nouă casetă de selectare la grupul de casete de selectare, rulați din nou codul VBA pentru a activa din nou toate casetele de selectare. Ștergerea casetei de selectare din grupul de casete de selectare trebuie să reexecute și codul.

Articole pe aceeași temă:

• Cum se filtrează datele pe baza casetei de selectare din Excel?
• Cum se ascunde caseta de selectare atunci când rândul este ascuns în Excel?
• Cum să evidențiați celula sau rândul cu caseta de selectare în Excel?
• Cum se creează o listă derulantă cu mai multe casete de selectare în Excel?
• Cum să inserați ștampila de dată într-o celulă dacă bifați o casetă de selectare în Excel?