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í:
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 Cuimsíonn 300+ gné chumhachtach do Microsoft Excel. Saor chun triail a dhéanamh gan aon teorannú i 30 lá. Íosluchtaigh anois!
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á!