Conas gach bosca seiceála a dhísheiceáil nó a dhí-roghnú ag an am céanna in Excel?

Conas a d’fhéadfá na boscaí seiceála go léir a sheiceáil nó a dhí-roghnú ag an am céanna i mbileog oibre mar a thaispeántar an pictiúr a leanas? San Airteagal seo, labhróidh mé faoi roinnt cóid thapa chun é a réiteach.

boscaí seiceála doc uncheck 1

Díthiceáil nó díroghnaigh gach bosca seiceála le cód VBA

Díthiceáil nó díroghnaigh gach bosca seiceála le cód VBA

Díthiceáil nó díroghnaigh gach bosca seiceála seiceáilte (Rialuithe Foirme):

Más rialuithe foirme iad do bhosca seiceála, is féidir leat iad a dhísheiceáil ag an am céanna leis an gcód VBA seo a leanas:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Díthiceáil nó díroghnaigh gach bosca seiceála seiceáilte (Rialuithe Foirme):

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus dísheiceáladh gach bosca seiceála seiceáilte ag an am céanna sa bhileog oibre gníomhach.

Díthiceáil nó díroghnaigh gach bosca seiceála seiceáilte (Rialuithe ActiveX):

Más Rialuithe ActiveX iad na boscaí seiceála, cuir an cód VBA thíos i bhfeidhm:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Díthiceáil nó díroghnaigh gach bosca seiceála seiceáilte (Rialuithe 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. Ansin brúigh F5 eochair chun an cód seo a rith, agus rinneadh gach bosca seiceála a dhí-roghnú ag an mbileog oibre gníomhach ag an am céanna.

Cuir boscaí seiceála iolracha isteach i roghnúcháin ag an am céanna

Kutools le haghaidh Excel's Boscaí Seiceála Iontrála Baisc is féidir le fóntais cabhrú leat ilbhoscaí a chur isteach go tapa ag an am céanna. Cliceáil chun Kutools a íoslódáil le haghaidh Excel!

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...

Comments (14)

Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!

biqBob

thart ar 4 bliain ó shin

#25238

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

go raibh míle maith agat as an gcód vba seo, chabhraigh sé go mór.

FYI do dhaoine nach bhfuil á fháil ag obair ach F5 a bhualadh, go simplí :

tab forbróra > Macraí > roghnaigh an modúl díreach cruthaithe agus cliceáil ar roghanna > clóscríobh carachtar don aicearra, mar shampla ctrl+j nó ctrl+k.

Freagra

R. Rothman biqBob

thart ar 2 bliain ó shin

#25239

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Go raibh maith agat as do chabhair le seo. Tá sé an-bhuíoch. Tabhair do d’aire, áfach: TÁ AN Litriú Mícheart INA gCÓD DO CHÉIM #2. Cód VBA: Díthiceáil nó díroghnaigh gach ticbhosca ticeála (Rialuithe ActiveX):
Fo-bhosca seiceála()
'Updateby Extendoffcie
Dim c Mar Réad
Do Gach c In ActiveSheet.OLEOobjects
Má tá InStr(1, c.Name, "CheckBox") > 0 Ansin
c.Object.Value = Bréagach
Deireadh Má
Ar Aghaidh
Fo Deireadh

TABHAIR FAOI DEARA LE DO THOIL NACH bhfuil AN Focal "Extendoffcie" litrithe i gceart. NÍ CHÓIR É A bheith"Extendoffice"?? Mar sin féin, theastaigh ach é sin a chur amach ann

Freagra

Ariel

thart ar 3 bliain ó shin

#31682

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Cad a tharlóidh dá mbeinn ag iarraidh cnaipe a úsáid chun an macra a ghníomhachtú chun na boscaí a ghlanadh?

Freagra

spéireang Ariel

thart ar 3 bliain ó shin

#31683

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit, Ariel,
Chun cnaipe a úsáid chun an macra a ghníomhachtú, ar dtús, ba chóir duit cnaipe a chur isteach ón liosta anuas Cruthanna, agus ansin cliceáil ar dheis ar an gcnaipe, roghnaigh Assign Macro ón roghchlár comhthéacs, agus ansin roghnaigh an t-ainm macra sa bhosca dialóg Assign Macro . Ansin cliceáil OK, agus beidh an cód macra a nascadh leis an gcnaipe.
Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!

Féach ar na Ceangaltáin (1 / 5)

Freagra

Tuarascáil

meitheamh

thart ar 2 bliain ó shin

#33393

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Conas is féidir liom na boscaí i raon cille ar leith a dhíthiceáil ar an mbileog ghníomhach amháin? Tá 3 liostaí agam ar bhileog amháin (tascanna laethúla/seachtainiúla/míosúla) agus theastaigh uaim cnaipe “Clear All” a dhéanamh do gach liosta.

Freagra

Reika

thart ar 1 bhliain ó shin

#36759

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Cabhair mhór! go raibh maith agat!

Freagra

thart ar 1 bhliain ó shin

#36814

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

OMG Go raibh maith agat, IS SÁBHÁILTE SA LÁTHAIR SEO :)

Freagra

Linds

thart ar 1 bhliain ó shin

#37278

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Merci beaucoup d'avoir partagé le code pour décocher des éléments "CheckBox", mar sin de mo stór ! :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 (à cuid avec la modh "Roghnaigh" qui est, comme nous le savons tous, à bannir), tout simplement car :=> la propriété".CheckBoxes" n'existe pas en proprieté d'une "Bileog Oibre" !=> l'Objet"CheckBoxes" ne figure pas non plus dans l'explorateur d'objets !C'est lunaire cette histoire...Alors merci énormément.Bien à vous.

Freagra

MandyZhou Linds

thart ar 10 mhí ó shin

#37279

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Bonjour Lindas,
Tá tú ag prie. Heureux que cela aide. Doirt ceist toute, n'hésitez pas à nous contacter. Pas une bonne journée.
Le meas,
Mandy

Freagra

Tuarascáil

Pfleger Siegfried

thart ar 4 mhí ó shin

#39962

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit,
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 nicht aktiviert sein

Fobhosca Príobháideach 2_Cliceáil()
Má tá CheckBox2 = Fíor Ansin
CheckBox1 = Bréagach
Deireadh Má
Fo Deireadh
Fobhosca Príobháideach 1_Cliceáil()
Má tá CheckBox1 = Fíor Ansin
CheckBox2 = Bréagach
Deireadh Má
Fo Deireadh

Go raibh maith agat as do chabhair

Freagra

spéireang Pfleger Siegfried

thart ar 4 mhí ó shin

#39993

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit, Siegfried
Más mian leat ceann amháin a sheiceáil agus ceann eile a dhíchumasú, cuir an cód thíos i bhfeidhm le do thoil:
nótaí: An ticbhosca anseo ba cheart duit an ticbhosca ActiveX Control a úsáid.

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

Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!

Freagra

Tuarascáil

Ramon Torres

thart ar 1 mhí ó shin

#41951

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Conas a ghlanadh na ticbhosca ar gach bileog oibre?

Freagra

spéireang Ramon Torres

thart ar 1 mhí ó shin

#42031

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit, Ramon

Chun na ticbhoscaí ar fad a ghlanadh trasna na bileoige go léir, cuir na cóid thíos i bhfeidhm le do thoil:
Díthiceáil gach ticbhosca ó gach bileog (Rialuithe Foirme):

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

Díthiceáil gach ticbhosca ó gach bileog (Rialuithe 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

Bain triail as, le do thoil, tá súil gur féidir leis seo cabhrú leat!

Freagra

Tuarascáil

Ramon Torres

thart ar 1 mhí ó shin

#41952

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Conas a ghlanfainn gach ticbhosca ar gach bileog oibre?

Freagra

Níl aon tráchtanna curtha suas anseo go fóill

Fág do chuid tuairimí

Ag postáil mar Aoi

Ainm (Riachtanach)

Ríomhphost (riachtanach)

Ráta an post seo:

athshocrú

0 Carachtair

Aontaím leis an téarmaí agus riocht