Ինչպե՞ս հեռացնել մեկ այլ վանդակը, երբ վանդակը նշված է Excel-ում:

Ինչպես ցույց է տրված ստորև ներկայացված gif-ում, ենթադրենք, որ կա գնումների ցուցակ, որը պետք է վերջնականացվի ձեր կողմից: Ցանկը ստուգելիս դուք հայտնաբերում եք, որ որոշ կատեգորիաների ստուգված տարրերը գերազանցում են բյուջեն և պետք է նորից ընտրվեն: Քանի որ ցուցակը չափազանց երկար է, այժմ ձեզ հարկավոր է ավելի արդյունավետ միջոց՝ ինքնաբերաբար հանելու սկզբնական նշած վանդակը, երբ նոր վանդակը նշված է կատեգորիայում: Այս ձեռնարկը քայլ առ քայլ ցույց է տալիս մեթոդը, որը կօգնի ձեզ կատարել այն:

Անջատեք մեկ այլ վանդակը, երբ նոր վանդակը նշված է VBA կոդով

Անջատեք մեկ այլ վանդակը, երբ նոր վանդակը նշված է VBA կոդով

Ինչպես ցույց է տրված վերոհիշյալ ցուցադրությունում, անվանվել են տասը վանդակներ Նշավանդակ 1, Նշավանդակ 2, Նշավանդակ 3,..., Նշավանդակ 10 բաժանված են 3 խմբի և գտնվում են աղյուսակում տարբեր կատեգորիաներով:

Այս օրինակում Checkbox1-ը, 2-ը, 3-ը մեկ խմբում են, Checkbox4-ը, 5-ը, 6-ը, 7-ը՝ մեկ խմբում, իսկ Checkbox8-ը, 9,10-ը՝ նույն խմբում: Յուրաքանչյուր խմբում թույլատրվում է միաժամանակ ստուգել միայն մեկ վանդակը: Երբ վանդակը նշված է, մեկ այլ վանդակը ինքնաբերաբար հանվում է:

Այժմ տեսնենք, թե ինչպես կիրառել հետևյալ VBA կոդը՝ այս խնդիրը լուծելու համար։

1. Աջ սեղմեք թերթիկի ներդիրին և սեղմեք Դիտել կոդը համատեքստի ընտրացանկից:

2. Բացվածքում Microsoft Visual Basic հավելվածների համար պատուհանում, տեղադրեք հետևյալ VBA կոդը Թերթ (կոդ) պատուհան.

VBA կոդ. հանեք մեկ այլ վանդակը, երբ նշվում է նոր վանդակը

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

Notes:

3. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այնուհետև, երբ խմբում նշեք նոր վանդակը, սկզբնական նշվածը ինքնաբերաբար կհանվի, ինչպես ցույց է տրված ստորև ներկայացված gif-ում:

Դեմո. հեռացնել մեկ այլ վանդակը, երբ վանդակը նշված է Excel-ում

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖	Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
	Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
	Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
	Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
	Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
	Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
	Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Կարդալ ավելին... Անվճար ներբեռնում...

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում...