Ինչպե՞ս մաքրել 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- ի աշխատանքային գրքում բաց և ելքի վրա: