Note: The other languages of the website are Google-translated. Back to English
Մուտք Գրանցում

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

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

փաստաթուղթը հանել նշված վանդակները 1

Ապանշեք կամ ապանշեք 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 ներբեռնելու համար:

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
Հները `սկզբում
Նորերը `սկզբում
մեկնաբանություններ (14)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
biqBob
biqBob
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շատ շնորհակալություն այս vba կոդի համար, շատ օգնեց:

FYI այն մարդկանց համար, ովքեր չեն կարողանում այն ​​աշխատել՝ սեղմելով F5, պարզապես.

մշակողի ներդիր > մակրոներ > ընտրեք նոր ստեղծված մոդուլը և սեղմեք «Ընտրանքներ» > մուտքագրեք նիշ դյուրանցման համար, օրինակ՝ ctrl+j կամ ctrl+k:
պատասխանել
0
0
Ռ.Ռոթման
Ռ.Ռոթման     biqBob
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս հարցում ձեր օգնության համար: Դա շատ է գնահատվում։ Այնուամենայնիվ, խնդրում ենք նկատի ունենալ. ՔԱՅԼ թիվ 2-ի օրենսգրքում ուղղագրությունը սխալ է: VBA կոդ. հանեք կամ ապաընտրեք բոլոր նշված վանդակները (ActiveX Controls):
Ենթակետի մաքրման տուփ ()
«Update by Extendoffcie
Dim c Որպես օբյեկտ
Յուրաքանչյուր c-ի համար ActiveSheet.OLEObjects-ում
Եթե ​​InStr(1, c.Name, «CheckBox») > 0 Այնուհետեւ
c.Object.Value = False
Վերջ: Եթե
հաջորդ
Վերջ Sub

ԽՆԴՐՈՒՄ ԵՆՔ ՈՒՇԱԴՐԵԼ, «Extendoffcie» ԲԱՌԸ ՃԻՇՏ ՉԻ ԳՐԱԾՎԱԾ: ՉՊԵՏՔ ԼԻՆԻ»Extendoffice«Համենայնդեպս, ուղղակի ուզում էի դա այնտեղ դնել
պատասխանել
0
0
Ariel
Ariel
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իսկ եթե ես ուզենայի օգտագործել կոճակը մակրո ակտիվացնելու համար վանդակները մաքրելու համար:
պատասխանել
0
0
skyyang
skyyang     Ariel
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Արիել,
Մակրոն ակտիվացնելու համար կոճակ օգտագործելու համար նախ պետք է կոճակ մտցնեք Shapes բացվող ցանկից, այնուհետև սեղմեք աջ կոճակի վրա, ընտրեք Assign Macro համատեքստի ընտրացանկից և ընտրեք մակրոյի անունը Assign Macro երկխոսության վանդակում: . Այնուհետև սեղմեք OK, և մակրո կոդը կկապվի կոճակին:
Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:
Դիտել հավելվածները (1 / 5)
պատասխանել
հաշվետվություն
0
0
Հունիս
Հունիս
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս ջնջել ակտիվ թերթի միայն որոշակի բջիջների տիրույթի վանդակները: Ես ունեմ 3 ցուցակ մեկ թերթիկում (Օրական/շաբաթական/ամսական առաջադրանքներ) և ցանկանում էի յուրաքանչյուր ցուցակի համար «Մաքրել բոլորը» կոճակը:
պատասխանել
0
0
ռեյկա
ռեյկա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մեծ օգնություն: շնորհակալություն!
պատասխանել
0
0
JL
JL
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՕՄԳ ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ, ԱՅՍ ԿԱՅՔԸ ԿՅԱՆՔ Է ՓՐԿՈՒՄ :)
պատասխանել
0
0
Լինդս
Լինդս
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Merci beaucoup d'avoir partagé le code pour décocher des éléments "CheckBox", cela m'a sauvé ! :o)En effet, en codant un formulaire de saisie fait dans une feuille, je cherchais à trouver un moyen de décocher les case (en guise de réinitialisation du formulaire) et je ne trouvais pas (à part avec la méthode "S. est, comme nous le savons tous, à bannir), tout simplement car :=> la propriété ".Checkboxes" n'existe pas en propriété d'une "Worksheet" !=> l'Objet "Checkboxes" ne figure pas non plus dans l'explorateur d'objets !C'est lunaire cette histoire...Alors merci énormément.Bien à vous.
պատասխանել
0
0
MandyZhou
MandyZhou     Լինդս
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բոնժուր Լինդաս,
Je vous en prie. Heureux que cela օգնական. Pour toute question, n'hésitez pas à nous contacter. Passe une bonne journée.
Անկեղծություն,
Mandy
պատասխանել
հաշվետվություն
0
0
Պֆլեգեր Զիգֆրիդ
Պֆլեգեր Զիգֆրիդ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 nicht aktiviert sein

Մասնավոր ենթակետի վանդակ2_Click()
Եթե ​​CheckBox2 = True Ապա
CheckBox1 = Սխալ
Վերջ: Եթե
Վերջ Sub
Մասնավոր ենթակետի վանդակ1_Click()
Եթե ​​CheckBox1 = True Ապա
CheckBox2 = Սխալ
Վերջ: Եթե
Վերջ Sub

շնորհակալություն օգնության համար
պատասխանել
0
0
skyyang
skyyang     Պֆլեգեր Զիգֆրիդ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Զիգֆրիդ
Եթե ​​ցանկանում եք ստուգել մեկը և անջատել մյուսը, խնդրում ենք կիրառել ստորև նշված կոդը.
ՆշումԱյստեղ նշման տուփը պետք է օգտագործեք ActiveX Control վանդակը:
Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
End Sub

Խնդրում ենք փորձել, հուսով եմ, որ դա կարող է օգնել ձեզ:
պատասխանել
հաշվետվություն
0
0
Ռամոն Տորես
Ռամոն Տորես
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս մաքրել բոլոր վանդակները բոլոր աշխատաթերթերում:
պատասխանել
0
0
skyyang
skyyang     Ռամոն Տորես
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ռամոն

Բոլոր թերթերի բոլոր վանդակները մաքրելու համար խնդրում ենք կիրառել ստորև նշված կոդերը.
Անջատեք բոլոր վանդակները բոլոր թերթերից (Ձևի վերահսկում).
Sub Uncheckallcheckboxes()
    Dim sh As Worksheet
    For Each sh In Sheets
        On Error Resume Next
            sh.CheckBoxes.Value = False
        On Error GoTo 0
    Next sh
End Sub


Անջատեք բոլոր վանդակները բոլոր թերթերից (ActiveX Controls):
Sub uncheck_all_ActiveX_checkboxes()
    Dim ws As Worksheet
    Dim xbox As OLEObject
    For Each ws In ThisWorkbook.Worksheets
        For Each xbox In ws.OLEObjects
            ws.OLEObjects(xbox.Name).Object.Value = False
        Next
    Next
End Sub


Խնդրում ենք փորձել, հուսով եմ, որ սա կօգնի ձեզ:
պատասխանել
հաշվետվություն
0
0
Ռամոն Տորես
Ռամոն Տորես
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս մաքրեմ բոլոր աշխատաթերթերի բոլոր վանդակները:
պատասխանել
0
0
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հյուր
Հրապարակում որպես հյուր
Մուտք
×
Գնահատեք այս գրառումը.
Նորից դնել
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից