Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս ավտոմատ կերպով թաքցնել սյունակները Excel- ում հիմնված ամսաթվի վրա:

Ենթադրելով, որ ես ունեմ մի շարք տվյալներ աշխատաթերթում, այժմ ես ուզում եմ սյունակները թաքցնել ավտոմատ կերպով `ելնելով որոշակի ամսաթվից: Օրինակ, երբ ես բջիջում մուտքագրում եմ 5/16/2016 ամսաթիվը, ես ուզում եմ անմիջապես թաքցնել սյունակները, որոնց ամսաթիվը պակաս է այս կոնկրետ ամսաթվից, ինչպես ցույց է տրված հետևյալ նկարը: Այս հոդվածը կներկայացնի այն լուծելու որոշ հնարքներ:

փաստաթղթերը թաքցնել սյունակները ըստ ամսաթվի 1-ի

VBA կոդով որոշակի ամսաթվի հիման վրա սյունակները ավտոմատ թաքցնել

Թաքցրեք սյունակները, որոնք հիմնված են Excel- ի համար հատուկ ամսաթվի վրա


նետ կապույտ աջ պղպջակ VBA կոդով որոշակի ամսաթվի հիման վրա սյունակները ավտոմատ թաքցնել

Այս առաջադրանքը կատարելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալը.

1, Ընտրեք թերթիկի ներդիրը, որը ցանկանում եք թաքցնել ըստ ամսաթվի, և աջ կտտացրեք ընտրելու համար Դիտել կոդը համատեքստային ընտրացանկից անցնել Microsoft Visual Basic հավելվածների համար պատուհանը, ապա պատճենեք և տեղադրեք հետևյալ կոդը Մոդուլի մեջ.

VBA կոդ. Ավտոմատ թաքցնել սյունակները ՝ ելնելով որոշակի ամսաթվից.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xCell As Range
    If Target.Address <> Range("K4").Address Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In Range("A1:I1")
        xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
    Next
    Application.ScreenUpdating = True
End Sub

փաստաթղթերը թաքցնել սյունակները ըստ ամսաթվի 2-ի

2, Ապա պահեք և փակեք այս կոդը, վերադառնաք աշխատանքային թերթ, և այժմ, երբ ամսաթիվը մուտքագրեք բջիջ K4, սյունակները, որոնց ամսաթիվը պակաս է այս կոնկրետ ամսաթվից, ինքնաբերաբար կթաքցվեն:

ՆշումՎերոհիշյալ ծածկագրում K4 կոնկրետ ամսաթվի բջիջն է, որի հիման վրա ցանկանում եք թաքցնել սյունակները, A1: I1 տողի բջիջները պարունակում են ձեր օգտագործած ամսաթիվը:


նետ կապույտ աջ պղպջակ Թաքցրեք սյունակները, որոնք հիմնված են Excel- ի համար հատուկ ամսաթվի վրա

Եթե ​​ծածկագրին ծանոթ չեք, ահա մի հարմար գործիք ՝Excel- ի համար նախատեսված գործիքներԻր Ընտրեք հատուկ բջիջներ օգտակար, դուք կարող եք հեշտությամբ ավարտել այս գործը:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1, Ընտրեք ամսաթվի վերնագրերը և կտտացրեք Կուտոլս > ընտրել > Ընտրեք հատուկ բջիջներ, տես նկարի նկարը.

2, Դուրս ցցված Ընտրեք հատուկ բջիջներ երկխոսության տուփ, ընտրեք Ամբողջ սյունակ - ից Ընտրության տեսակը, ապա ընտրեք չափանիշները, ինչպիսիք են Պակաս - ից Հատուկ տեսակ բաց թողեք ցուցակը և մուտքագրեք ամսաթիվը տեքստի տուփի կողքին, որի վրա ցանկանում եք թաքցնել սյունակները, տես նկարի նկարը.

փաստաթղթերը թաքցնել սյունակները ըստ ամսաթվի 4-ի

3. Եվ այնուհետեւ կտտացրեք Ok կոճակը, հատուկ սյունակները, որոնց ամսաթիվը պակաս է 5/16/2016, ընտրվում են միանգամից, տես նկարի նկարը.

փաստաթղթերը թաքցնել սյունակները ըստ ամսաթվի 5-ի

4, Ապա աջ կտտացրեք ցանկացած ընտրված սյունակի վերնագրի վրա և ընտրեք Թաքցնել ըստ ձեզ անհրաժեշտ ընտրված սյունակների թեզերը թաքցնելու համար: Տեսեք,

փաստաթղթերը թաքցնել սյունակները ըստ ամսաթվի 6-ի

Կտտացրեք անվճար ներբեռնման համար Excel- ի համար հիմա


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

Excel- ի համար նախատեսված Kutools- ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80% -ով

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50% -ով և նվազեցնում է ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներ:
officetab ներքևում
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Seven · 3 years ago
    I have the same issue as Chris. The cell with my date does not always change. I need the macro to run regardless of whether the date has changed from last month or is the same as last month without having to click on the cell itself and hit enter to trigger the "Change"
  • To post as a guest, your comment is unpublished.
    Chris · 3 years ago
    Hello,
    Thanks for the code.
    In my case the cell K4 is a calculation cell from the formula =EOMONTH(A1,0). Example: A1 = 01.03.2017. K4 takes the value 31.03.2017. But the VBA code that you propose does not hide the columns until I click on K4 cell and press Enter to refresh it. I tried to add Range("K4").calculate but with no effect. Help please.