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.
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!
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
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á!