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

Ինչպե՞ս մաքրել ֆիլտրերը Excel- ում աշխատանքային գիրքը բացելիս, պահպանելիս կամ փակելիս:

Ենթադրենք, որ դուք ունեք մի քանի աշխատաթերթեր, որոնք պարունակում են զտված տվյալներ ձեր աշխատանքային գրքում: Բոլոր զտիչները մաքրելու համար հարկավոր է ստուգել զտված ցանկը տարբեր աշխատաթերթերում, այնուհետև դրանք ձեռքով մաքրել մեկ առ մեկ: Դա նյարդայնացնող է: Այս հոդվածում մենք ձեզ ցույց կտանք ֆիլտրերը մաքրելու մի քանի եղանակներ Excel-ում աշխատանքային գիրքը բացելիս, պահելիս կամ փակելիս:

Մաքրել ֆիլտրերը Excel- ում աշխատանքային գիրքը բացելիս
Մաքրել ֆիլտրերը Excel- ում աշխատանքային գիրքը փրկելիս
Մաքրել ֆիլտրերը Excel- ում աշխատանքային գիրքը փակելու / դուրս գալու ժամանակ


Մաքրել ֆիլտրերը Excel- ում աշխատանքային գիրքը բացելիս

Այս բաժնում խոսվում է բոլոր աշխատանքային թերթերում ֆիլտրերը մաքրելու մասին ՝ աշխատանքային գիրք բացելիս: Խնդրում եմ արեք հետևյալ կերպ.

1. Աշխատանքային գրքում բացելիս անհրաժեշտ է ավտոմատ կերպով մաքրել բոլոր զտիչները, սեղմեք կոճակը ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք կրկնակի սեղմել Այս գործառույթը ձախում Նախագիծ պատուհանը, այնուհետև պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Այս աշխատանքային գիրքը (ծածկագիր) պատուհան Տեսեք,

VBA կոդ. Մաքրել բոլոր զտիչները աշխատանքային գիրքը բացելիս

Private Sub Workbook_Open()
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
    Next ws
End Sub

3. Սեղմեք ալտ + Q ստեղները դուրս գալու համար Microsoft Visual Basic հավելվածների համար պատուհան.

4: սեղմեք Ֆայլ > Պահել As, Պատուհանման մեջ Պահել As երկխոսության տուփ, նշեք այս աշխատանքային գիրքը պահելու համար պանակ, անվանեք այն, ինչ ձեզ հարկավոր է Ֆայլի անուն տուփը, ապա ընտրեք Excel մակրոներով աշխատունակ գիրք տարբերակը Պահել որպես տիպ բացվող ցուցակը և վերջապես կտտացրեք այն Փրկել կոճակը:

Այսուհետ, երբ բացեք այս մակրո-միացված աշխատանքային գրքույկը, այս աշխատանքային գրքի բոլոր զտիչները ինքնաբերաբար կջնջվեն:


Մաքրել ֆիլտրերը Excel- ում աշխատանքային գիրքը փրկելիս

Դուք կարող եք մաքրել բոլոր ֆիլտրերը ընթացիկ աշխատանքային գրքից `ամեն անգամ այն ​​խնայելիս:

1. Աշխատանքային գրքում անհրաժեշտ է ավտոմատ կերպով մաքրել բոլոր զտիչները, սեղմեք կոճակը ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք կրկնակի սեղմել Այս գործառույթը ձախում Նախագիծ պատուհանը, այնուհետև պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Այս աշխատանքային գիրքը (ծածկագիր) պատուհան Տեսեք,

VBA կոդ. Մաքրել ֆիլտրերը աշխատանքային գիրքը փրկելիս

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
    Next ws
End Sub

3. Մամուլ ալտ + Q ստեղները դուրս գալու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ, աշխատանքային գիրքը փրկելիս, բոլոր ֆիլտրերը ավտոմատ կերպով մաքրվելու են:


Մաքրել ֆիլտրերը Excel- ում աշխատանքային գիրքը փակելու / դուրս գալու ժամանակ

Վերջին բաժինը, մենք ձեզ ցույց կտանք, թե ինչպես մաքրել բոլոր զտիչները աշխատանքային թերթերում աշխատանքային գիրքը փակելու կամ դուրս գալու ժամանակ:

1. Բացեք աշխատանքային գրքույկը, որից անհրաժեշտ է ավտոմատ կերպով մաքրել բոլոր ֆիլտրերը, այնուհետև սեղմել կոճակը ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք կրկնակի սեղմել Այս գործառույթը ձախում Նախագիծ պատուհանը, այնուհետև պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Այս աշխատանքային գիրքը (ծածկագիր) պատուհան Տեսեք,

VBA կոդ. Աշխատանքային գիրքը փակելու / դուրս գալու ժամանակ մաքրեք բոլոր զտիչները աշխատանքային թերթերում

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.AutoFilterMode = False
        End If
    Next ws
End Sub

ՆշումԵթե ​​պարզապես ցանկանում եք մաքրել ֆիլտրերը ընթացիկ աշխատաթերթում, խնդրում ենք օգտագործել ստորև նշված VBA կոդը:

VBA կոդ. Մաքրել զտիչը ակտիվ թերթիկում աշխատանքային գիրքը փակելու ժամանակ

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    Set ws = ActiveSheet
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
End Sub

3. Մամուլ ալտ + Q ստեղները դուրս գալու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ բոլոր զտիչները ինքնաբերաբար մաքրվելու են աշխատանքային գրքում «Փակել» կոճակը սեղմելուց հետո:


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


Գրասենյակի արտադրողականության լավագույն գործիքները

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (6)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս լուծումը չի «մաքրում» AutoFilters-ը, այն ամբողջությամբ հեռացնում է դրանք:
Զտիչները զրոյացնելու և հաջորդ նիստի համար դրանք պահելու համար ws.AutoFilter.ShowAllData-ով փոխարինեք ws.AutoFilterMode = False:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս մեկնաբանության համար: Սա հենց այն է, ինչ ինձ անհրաժեշտ էր իմ աղյուսակի համար: Շատ գնահատված!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Աշխատանքային գրքույկը փակելիս/դուրս գալիս ես փորձեցի Մաքրել բոլոր զտիչները աշխատանքային թերթերում, բայց այն ընդհանրապես չաշխատեց, ինչ-որ բան կա՞ մեզ անհրաժեշտ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Ոչ մի այլ գործողություն չի պահանջվում, բացի մեր ցույց տված քայլերից: Excel-ի ո՞ր տարբերակն եք օգտագործում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hoe kan ik wel de "filterknoppen" behouden?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Տուր,
Գրառման մեջ VBA կոդերը թարմացվել են։ Ներողություն անհանգստության համար.
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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