Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս մաքրել 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-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից