Ինչպե՞ս ջնջել կամ ապանշել բոլոր վանդակները միանգամից Excel- ում:

Ինչպե՞ս կարող եք միանգամից հանել կամ ապանշել բոլոր ստուգված վանդակները աշխատանքային թերթում, ինչպես ցույց է տրված հետևյալ նկարը: Այս հոդվածում ես կխոսեմ այն ​​լուծելու համար մի քանի արագ ծածկագրերի մասին:

Ապանշեք կամ ապանշեք VBA կոդով նշված բոլոր վանդակները

Ապանշեք կամ ապանշեք VBA կոդով նշված բոլոր վանդակները

Ապանշել կամ ապանշել բոլոր ստուգված վանդակները (Ձևի կառավարման սարքեր).

Եթե ​​ձեր վանդակները ձևի կառավարիչներ են, կարող եք միանգամից հանել դրանք ՝ հետևյալ VBA կոդով.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Ապանշեք կամ ապանշեք բոլոր նշված վանդակները (Ձևի կառավարման սարքեր).

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, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և բոլոր նշված վանդակները միանգամից հանվել են ակտիվ աշխատանքային թերթում:

Ապանշեք կամ ապանշեք բոլոր ստուգված վանդակները (ActiveX կառավարման սարքեր).

Եթե ​​վանդակները ActiveX հսկիչներ են, ապա կիրառեք ստորև նշված VBA կոդը:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Ապանշեք կամ ապանշեք բոլոր ստուգված վանդակները (ActiveX հսկիչ):

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, Դրանից հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և բոլոր նշված վանդակները միանգամից ապընտրվել են ակտիվ աշխատանքային թերթում:

Տեղադրեք միանգամից բազմաթիվ վանդակներ ընտրության մեջ

Excel- ի համար նախատեսված գործիքներ's Ներդրեք խմբաքանակի վանդակները օգտակար ծրագիրը կարող է օգնել ձեզ միանգամից տեղադրել բազմաթիվ վանդակներ: Կտտացրեք Excel- ի համար Kutools ներբեռնելու համար: