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

Conas ticbhosca eile a dhíthiceáil nuair a dhéantar ticbhosca a sheiceáil in Excel?

Mar a léirítear sa gif thíos, is dócha go bhfuil liosta ceannaigh ann nach mór duit a thabhairt chun críche. Agus an liosta á sheiceáil agat, feiceann tú go bhfuil na míreanna seiceáilte i gcatagóirí áirithe os cionn an bhuiséid agus gur gá iad a athroghnú. Ós rud é go bhfuil an liosta ró-fhada, teastaíonn bealach níos éifeachtaí chun an ticbhosca bunaidh a dhíthiceáil go huathoibríoch nuair a dhéantar ticbhosca nua a sheiceáil i gcatagóir. Léiríonn an rang teagaisc seo an modh céim ar chéim chun cabhrú leat é a dhéanamh.

Díthiceáil ticbhosca eile nuair a dhéantar ticbhosca nua a sheiceáil le cód VBA


Díthiceáil ticbhosca eile nuair a dhéantar ticbhosca nua a sheiceáil le cód VBA

Mar a thaispeántar sa taispeántas thuas, deich ticbhosca ainmnithe ticbhosca1, ticbhosca2, ticbhosca3, ..., ticbhosca10 roinnte i 3 ghrúpa agus atá lonnaithe i gcatagóirí éagsúla sa tábla.

Sa sampla seo, tá Checkbox1, 2, 3 i ngrúpa amháin, tá Checkbox4, 5, 6, 7 i ngrúpa amháin, agus tá Checkbox8, 9,10 sa ghrúpa céanna. I ngach grúpa, ní cheadaítear ach ticbhosca amháin a sheiceáil ag an am céanna. Nuair a dhéantar ticbhosca, díothaítear ticbhosca eile go huathoibríoch.

Anois, déanaimis a fheiceáil conas an cód VBA seo a leanas a chur i bhfeidhm chun an fhadhb seo a réiteach.

1. Cliceáil ar dheis ar an táb bileog agus cliceáil Féach an cód ón roghchlár comhthéacs.

2. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog , greamaigh an cód VBA seo a leanas isteach sa Bileog (Cód) fhuinneog.

Cód VBA: Díthiceáil ticbhosca eile nuair a bhíonn ticbhosca nua á sheiceáil

Dim xBol As Boolean
'Updated by Extendoffice 20220816
Private Sub CheckBox1_Change()
SetCheckBoxes "CheckBox1"
End Sub

Private Sub CheckBox2_Change()
SetCheckBoxes "CheckBox2"
End Sub

Private Sub CheckBox3_Change()
SetCheckBoxes "CheckBox3"
End Sub

Private Sub CheckBox4_Change()
SetCheckBoxes "CheckBox4"
End Sub

Private Sub CheckBox5_Change()
SetCheckBoxes "CheckBox5"
End Sub

Private Sub CheckBox6_Click()
SetCheckBoxes "CheckBox6"
End Sub

Private Sub CheckBox7_Click()
SetCheckBoxes "CheckBox7"
End Sub
Private Sub CheckBox8_Click()
SetCheckBoxes "CheckBox8"
End Sub
Private Sub CheckBox9_Click()
SetCheckBoxes "CheckBox9"
End Sub
Private Sub CheckBox10_Click()
SetCheckBoxes "CheckBox10"
End Sub

Private Function SetCheckBoxes(mCheckBoxName As String)
Dim x As Long
Dim xAllArr
Dim xArrItem
Dim xI, xJ
If Not xBol Then Exit Function
'In the following line, the checkboxes enclosed in double quotes belong to the same group, and each checkbox is separated by a comma. To add more checkbox groups, please enclose the checkboxes in new double quotes.
xAllArr = Array("CheckBox1,CheckBox2,CheckBox3", "CheckBox4,CheckBox5,CheckBox6,CheckBox7", "CheckBox8,CheckBox9,CheckBox10")
For xI = LBound(xAllArr) To UBound(xAllArr)
If InStr(xAllArr(xI), mCheckBoxName) > 0 Then
xBol = False
xArrItem = Split(xAllArr(xI), ",")
For xJ = LBound(xArrItem) To UBound(xArrItem)
If xArrItem(xJ) <> mCheckBoxName Then
Me.OLEObjects(xArrItem(xJ)).Object.Value = False
End If
Next
End If
Next
xBol = True
End Function

Private Sub Worksheet_Activate()
xBol = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xBol = True
End Sub

nótaí:

1) Sa chód, ticbhosca1, ticbhosca2, ..., ticbhosca10 is ainm do na ticbhoscaí;
2) Sa líne seo a leanas, baineann na boscaí seiceála atá faoi iamh i Sleachta dúbailte leis an ngrúpa céanna, agus tá gach bosca seiceála scartha le camóg. Chun tuilleadh grúpaí ticbhosca a chur leis, cuir na ticbhoscaí isteach i Sleachta dúbailte nua le do thoil.
xAllArr = Array("CheckBox1,CheckBox2,CheckBox3", "CheckBox4,CheckBox5,CheckBox6,CheckBox7", "CheckBox8,CheckBox9,CheckBox10")
3) Tá na boscaí seiceála Rialú ActiveX boscaí seiceála.

3. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Ansin nuair a sheiceálann tú ticbhosca nua i ngrúpa, déanfar an bunsheiceáil a dhísheiceáil go huathoibríoch mar a thaispeántar sa gif thíos.


Taispeántas: Díthiceáil ticbhosca eile nuair a dhéantar ticbhosca a sheiceáil in Excel

  Kutools le haghaidh Excel Áirítear 300+ gnéithe cumhachtacha do Microsoft Excel. Saor in aisce chun iarracht a dhéanamh gan aon teorainn i 30 lá. Íosluchtaigh anois!


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á.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (0)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Níl aon tráchtanna curtha suas anseo go fóill

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL