Ինչպե՞ս մաքրել 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 Sub

3. Սեղմեք F5 կոճակը գործելու համար սեղմեք կամ սեղմեք Run կոճակը:

Դրանից հետո դուք կարող եք տեսնել, որ բովանդակությունը մաքրված է նշված կոմբինատ վանդակում կամ բոլոր աշխատանքային կոճակները ակտիվ աշխատաթերթում, ինչպես ցույց է տրված ստորև նշված նկարում

ՆշումVBA կոդերը կարող են կիրառվել ինչպես Combo Box (Ձևի Կառավարում), այնպես էլ Combo Box (ActiveX Control):

---

Առնչվող հոդվածներ քանակը:

• Ինչպե՞ս մաքրել բովանդակությունը և ձևաչափումը միաժամանակ Excel- ի բջիջներում:
• Ինչպե՞ս մաքրել անվանումների տիրույթի պարունակությունը Excel- ում:
• Ինչպե՞ս մաքրել սահմանափակ արժեքները բջիջներում Excel- ում:
• Ինչպե՞ս մաքրել նշված բջիջի պարունակությունը, եթե Excel- ում մեկ այլ բջջի արժեքը փոխվում է:
• Ինչպե՞ս մաքրել նշված բջջային պարունակությունը Excel- ի աշխատանքային գրքում բաց և ելքի վրա: