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

Sut i ddad-dicio neu ddad-ddewis pob blwch gwirio ar unwaith yn Excel?

Sut allech chi ddad-dicio neu ddad-ddewis yr holl flychau gwirio a wiriwyd ar unwaith mewn taflen waith fel y dangosir y screenshot canlynol? Yn yr erthygl hon, byddaf yn siarad am rai codau cyflym i'w datrys.

blychau gwirio doc dad-wirio 1

Dad-diciwch neu ddad-ddewiswch bob blwch gwirio sydd wedi'i wirio â chod VBA


swigen dde glas saeth Dad-diciwch neu ddad-ddewiswch bob blwch gwirio sydd wedi'i wirio â chod VBA

Dad-diciwch neu ddad-ddewiswch bob blwch gwirio a wiriwyd (Rheolaethau Ffurflen):

Os yw eich blychau gwirio yn rheolyddion ffurf, gallwch eu dad-wirio ar unwaith gyda'r cod VBA canlynol:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Dad-diciwch neu ddad-ddewiswch yr holl flychau gwirio a wiriwyd (Rheolaethau Ffurflen):

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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae'r holl flychau gwirio wedi'u gwirio wedi'u dad-wirio ar unwaith yn y daflen waith weithredol.


Dad-diciwch neu ddad-ddewiswch bob blwch gwirio a wiriwyd (Rheolaethau ActiveX):

Os yw'r blychau gwirio yn Rheolaethau ActiveX, cymhwyswch y cod VBA isod:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Dad-diciwch neu ddad-ddewiswch yr holl flychau gwirio sydd wedi'u gwirio (Rheolaethau 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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae'r holl flychau gwirio wedi'u gwirio wedi'u dad-ddethol ar unwaith mewn taflen waith weithredol.


Mewnosodwch flychau gwirio lluosog mewn detholiadau ar unwaith

Kutools ar gyfer Excel's Mewnosod Swp Blychau Gwirio gall cyfleustodau eich helpu chi i fewnosod blychau gwirio lluosog yn gyflym ar unwaith. Cliciwch i lawrlwytho Kutools ar gyfer Excel!


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (11)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
llawer o ddiolch am y cod vba hwn, wedi helpu'n fawr.

FYI ar gyfer pobl nad ydynt yn ei gael i'r gwaith trwy daro F5, yn syml :

tab datblygwr > macros > dewiswch y modiwl sydd newydd ei greu a chliciwch ar yr opsiynau > teipiwch nod ar gyfer y llwybr byr, fel ctrl+j neu ctrl+k.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich help gyda hyn. Mae'n cael ei werthfawrogi'n fawr. Fodd bynnag, nodwch: MAE'R SILLARU YN ANGHYWIR YN Y COD AR GYFER CAM #2. Cod VBA: Dad-diciwch neu ddad-ddewis pob blwch ticio (Rheolaethau ActiveX):
Is-blwch ticio clir()
'Updateby Extendoffcie
Dim c Fel Gwrthrych
Am Bob c Mewn ActiveSheet.OLEOobjects
Os yw InStr(1, c.Name, "CheckBox") > 0 Yna
c.Object.Value = Gau
Gorffennwch Os
Digwyddiadau
Is-End

SYLWCH NAD YW'R GAIR "Extendoffcie" wedi'i sillafu'n GYWIR. NI DDYLAI FOD "Extendoffice"?? Beth bynnag, dim ond eisiau rhoi hynny allan yna
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth pe bawn i eisiau defnyddio botwm i actifadu'r macro i glirio'r blychau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Ariel,
I ddefnyddio botwm i actifadu'r macro, yn gyntaf, dylech fewnosod botwm o'r gwymplen Shapes, ac yna de-gliciwch ar y botwm, dewiswch Assign Macro o'r ddewislen cyd-destun, ac yna dewiswch yr enw macro yn y blwch deialog Assign Macro . Yna cliciwch OK, a bydd y cod macro yn gysylltiedig â'r botwm.
Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae dad-dicio dim ond y blychau mewn ystod celloedd penodol yn y ddalen weithredol? Mae gen i 3 rhestr mewn un ddalen (tasgau Dyddiol / Wythnosol / Misol) ac roeddwn i eisiau gwneud botwm "Clear All" ar gyfer pob rhestr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Help mawr! Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
OMG DIOLCH, MAE'R WEFAN HON YN ARBED BYWYD :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
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 cases (en guise de réinitialisation du formulaire) et je ne trouvais pas (à part avec la modh "Dewis" qui 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.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
bonjour Lindas,
Je vous en prie. Heureux que cela aide. Arllwyswch gwestiwn toute, n'hésitez pas à nous contacter. Pasio une bonne journée.
Yn gywir,
Mandy
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 nicht aktiviet sein

Is-Flwch Ticio Preifat2_Cliciwch()
Os CheckBox2 = Gwir Yna
CheckBox1 = Gau
Gorffennwch Os
Is-End
Is-Flwch Ticio Preifat1_Cliciwch()
Os CheckBox1 = Gwir Yna
CheckBox2 = Gau
Gorffennwch Os
Is-End

Diolch am eich help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Siegfried
Os ydych chi am wirio un ac analluogi un arall, defnyddiwch y cod isod:
Nodyn: Y blwch ticio yma dylech ddefnyddio'r blwch gwirio 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

Rhowch gynnig arni, gobeithio y gall eich helpu!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir