Ինչպե՞ս հեռացնել մեկ այլ վանդակը, երբ վանդակը նշված է 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- ի համար նախատեսված գործիքներ ներառում է 300+ հզոր հնարավորություններ Microsoft Excel-ի համար: Անվճար փորձ՝ առանց սահմանափակման 30 օրվա ընթացքում: Բեռնել հիմա!
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: