Ինչպե՞ս հեռացնել մեկ այլ վանդակը, երբ վանդակը նշված է 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-ում

---

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

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

---

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

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

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