Hogyan távolíthatja el vagy törölje az összes jelölőnégyzet jelölését egyszerre az Excelben?

Hogyan távolíthatja el vagy törölheti az összes bejelölt jelölőnégyzet jelölését egy munkalapon, az alábbi képernyőkép szerint? Ebben a cikkben néhány gyors kódról fogok beszélni a megoldás érdekében.

Törölje az összes bejelölt jelölőnégyzet jelölését vagy törölje a jelölést a VBA kóddal

Törölje az összes bejelölt jelölőnégyzet jelölését vagy törölje a jelölést a VBA kóddal

Törölje az összes bejelölt jelölőnégyzet jelölését vagy törölje a jelölést (Form Controls):

Ha a jelölőnégyzetek űrlapvezérlők, akkor a következő VBA-kóddal egyszerre törölheti a jelölést:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Törölje az összes bejelölt jelölőnégyzet jelölését vagy törölje a jelölést (Form Controls):

Sub ClearCheckBoxes()
'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

3. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és az összes bejelölt jelölőnégyzetet egyszerre törölték az aktív munkalapon.

Törölje az összes bejelölt jelölőnégyzet jelölését vagy törölje a jelölést (ActiveX-vezérlők):

Ha a jelölőnégyzetek ActiveX-vezérlők, kérjük, alkalmazza az alábbi VBA-kódot:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: Törölje az összes bejelölt jelölőnégyzet jelölését vagy törölje a jelölést (ActiveX-vezérlők):

Sub clearcheckbox()
'Updateby Extendoffcie
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub

3. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és az összes bejelölt jelölőnégyzetet egyszerre törölték az aktív munkalapon.

Több jelölőnégyzetet helyezzen be egyszerre a kijelölésekbe

Kutools az Excel számára's Batch Insert jelölőnégyzetek segédprogram segítségével egyszerre több jelölőnégyzetet is gyorsan beilleszthet. Kattintson a Kutools for Excel letöltéséhez!