Ինչպե՞ս մաքրել VBA կոդով համակցված տուփի պարունակությունը Excel- ում:
Սովորաբար, դուք կարող եք մաքրել կոմբինատ վանդակի պարունակությունը ՝ մաքրելով Ներածման տիրույթի ցուցակի տվյալները: Բայց ինչ վերաբերում է Excel- ի աշխատանքային թերթում բոլոր կոմբինատների տուփերը մաքրելու մասին: Այս հոդվածը պատրաստում է երկու VBA կոդ, որոնք կօգնեն ձեզ ոչ միայն մաքրել կոմբինատ տուփի բովանդակությունը, այլև մաքրել բոլոր կոմբինացված տուփերի պարունակությունները միաժամանակ Excel- ի աշխատանքային թերթիկում:
Հեշտությամբ մաքրեք համակցված տուփի պարունակությունը VBA կոդով
Հեշտությամբ մաքրեք համակցված տուփի պարունակությունը VBA կոդով
Ստորև ներկայացված երկու VBA կոդերը կօգնեն ձեզ մաքրել combo վանդակի կամ բոլոր combo տուփերի պարունակությունները ակտիվ աշխատանքային թերթում: Խնդրում եմ, արեք հետևյալ կերպ.
1. Աշխատաթերթում անհրաժեշտ է մաքրել համակցված տուփի պարունակությունը, խնդրում ենք սեղմել ալտ + F11 ստեղները միաժամանակ բացել Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք ներքևում գտնվող VBA կոդն օրենսգրքի պատուհանում:
VBA 1. Մաքրել կոմբինատների պարունակությունը աշխատանքային թերթում
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End SubՆշումԿոդում «Drop Down 2» - ը համակցված տուփի անունն է, որից դուք մաքրելու եք բովանդակությունը: Խնդրում եմ փոխեք այն ձեր սեփականով:
VBA 2. Ակտիվ աշխատանքային թերթում բոլոր կոմբո արկղերի մաքուր բովանդակությունը
Sub ClearComboBox()
Dim xOle As OLEObject
Dim xDrop As DropDown
Application.ScreenUpdating = False
For Each xOle In ActiveSheet.OLEObjects
If TypeName(xOle.Object) = "ComboBox" Then
xOle.ListFillRange = ""
End If
Next
For Each xDrop In ActiveSheet.DropDowns
xDrop.ListFillRange = ""
Next
Application.ScreenUpdating = True
End Sub3. Սեղմեք F5 կոճակը գործելու համար սեղմեք կամ սեղմեք Run կոճակը:
Դրանից հետո դուք կարող եք տեսնել, որ բովանդակությունը մաքրված է նշված կոմբինատ վանդակում կամ բոլոր աշխատանքային կոճակները ակտիվ աշխատաթերթում, ինչպես ցույց է տրված ստորև նշված նկարում
ՆշումVBA կոդերը կարող են կիրառվել ինչպես Combo Box (Ձևի Կառավարում), այնպես էլ Combo Box (ActiveX Control):
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս մաքրել բովանդակությունը և ձևաչափումը միաժամանակ Excel- ի բջիջներում:
- Ինչպե՞ս մաքրել անվանումների տիրույթի պարունակությունը Excel- ում:
- Ինչպե՞ս մաքրել սահմանափակ արժեքները բջիջներում Excel- ում:
- Ինչպե՞ս մաքրել նշված բջիջի պարունակությունը, եթե Excel- ում մեկ այլ բջջի արժեքը փոխվում է:
- Ինչպե՞ս մաքրել նշված բջջային պարունակությունը Excel- ի աշխատանքային գրքում բաց և ելքի վրա:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
