Note: The other languages of the website are Google-translated. Back to English

Kako počistite ali počistite vsa potrditvena polja hkrati v Excelu?

Kako lahko na delovnem listu počistite ali počistite vsa potrditvena polja hkrati, kot je prikazano na spodnji sliki zaslona? V tem članku bom govoril o nekaterih hitrih kodah za njegovo rešitev.

doc počistite potrditvena polja 1

Počistite ali počistite vsa potrjena polja s kodo VBA


puščica modri desni mehurček Počistite ali počistite vsa potrjena polja s kodo VBA

Počistite ali počistite vsa potrjena polja (kontrolniki obrazca):

Če so vaša potrditvena polja kontrolniki obrazcev, jih lahko takoj počistite z naslednjo kodo VBA:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Počistite ali počistite vsa potrjena polja (kontrolniki obrazca):

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. Nato pritisnite F5 ključ za zagon te kode in vsa potrjena polja so bila na aktivnem delovnem listu hkrati odznačena.


Počistite ali počistite vsa potrjena polja (kontrolniki ActiveX):

Če so potrditvena polja kontrolniki ActiveX, uporabite spodnjo kodo VBA:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Počistite ali počistite vsa potrjena polja (kontrolniki 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. Nato pritisnite F5 ključ za zagon te kode in vsa potrjena polja so bila na aktivnem delovnem listu takoj odstranjena.


V izbore hkrati vstavite več potrditvenih polj

Kutools za Excel's Potrditvena polja za serijsko vstavljanje pripomoček vam lahko pomaga hitro vstaviti več potrditvenih polj hkrati. Kliknite za prenos Kutools za Excel!


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (14)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
najlepša hvala za to vba kodo, v veliko pomoč.

FYI za ljudi, ki ne začnejo delovati s pritiskom na F5, preprosto:

zavihek razvijalec > makri > izberite pravkar ustvarjen modul in kliknite možnosti > vnesite znak za bližnjico, na primer ctrl+j ali ctrl+k.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za vašo pomoč pri tem. To je zelo cenjeno. Vendar upoštevajte: ČROPOVANJE JE NAPAČNO V KODI ZA KORAK #2. Koda VBA: počistite ali počistite vsa potrjena potrditvena polja (ActiveX Controls):
Podčisti potrditveno polje()
'Posodobitev z Extendoffcie
Dim c kot objekt
Za vsak c v ActiveSheet.OLEobjects
Če je InStr(1, c.Name, "CheckBox") > 0 Potem
c.Object.Value = False
Konec Če
Naslednji
End Sub

Upoštevajte, da BESEDA "Extendoffcie" NI PRAVILNO črkovana. ALI NE BI BILO"Extendoffice"?? Kakorkoli že, samo to sem hotel objaviti
Ta komentar je moderator na spletnem mestu minimiziral
Kaj pa, če bi želel uporabiti gumb za aktiviranje makra, da počistim polja?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Ariel,
Če želite uporabiti gumb za aktiviranje makra, najprej vstavite gumb s spustnega seznama Oblike, nato z desno miškino tipko kliknite gumb, v kontekstnem meniju izberite Dodeli makro in nato izberite ime makra v pogovornem oknu Dodeli makro. . Nato kliknite V redu in koda makra bo povezana z gumbom.
Prosim poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Kako počistim samo polja v določenem obsegu celic na aktivnem listu? Na enem listu imam 3 sezname (dnevna/tedenska/mesečna opravila) in za vsak seznam sem želel narediti gumb »Počisti vse«.
Ta komentar je moderator na spletnem mestu minimiziral
Velika pomoč! Hvala vam!
Ta komentar je moderator na spletnem mestu minimiziral
OMG HVALA, TA SPLETNA STRAN JE REŠUJŠA ŽIVLJENJA :)
Ta komentar je moderator na spletnem mestu minimiziral
Merci beaucoup d'avoir partage 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 "Select" 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.
Ta komentar je moderator na spletnem mestu minimiziral
Bonjour Lindas,
Je vous en prie. Heureux que cela aide. Pour toute vprašanje, n'hésitez pas à nous contacter. Passe une bonne journée.
iskrenost,
Mandy
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni,
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 nicht aktiviert sein

Zasebno pod potrditveno polje2_Klik()
If CheckBox2 = True Potem
CheckBox1 = False
Konec Če
End Sub
Zasebno pod potrditveno polje1_Klik()
If CheckBox1 = True Potem
CheckBox2 = False
Konec Če
End Sub

Hvala za vašo pomoč
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Siegfried
Če želite označiti eno in onemogočiti drugo, uporabite spodnjo kodo:
Opombe: Potrditveno polje tukaj morate uporabiti potrditveno polje 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

Prosimo, poskusite, upam, da vam bo pomagalo!
Ta komentar je moderator na spletnem mestu minimiziral
Kako bi počistil vsa potrditvena polja na vseh delovnih listih?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Ramon

Če želite počistiti vsa potrditvena polja na vseh listih, uporabite spodnje kode:
Počistite vsa potrditvena polja na vseh listih (Kontrolniki obrazca):
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


Počistite vsa potrditvena polja na vseh listih (kontrolniki ActiveX):
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


Poskusite, upam, da vam bo to pomagalo!
Ta komentar je moderator na spletnem mestu minimiziral
Kako naj počistim vsa potrditvena polja na vseh delovnih listih?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL