Ենթադրելով, որ ես ունեմ մի շարք տվյալներ աշխատաթերթում, այժմ ես ուզում եմ սյունակները թաքցնել ավտոմատ կերպով `ելնելով որոշակի ամսաթվից: Օրինակ, երբ ես բջիջում մուտքագրում եմ 5/16/2016 ամսաթիվը, ես ուզում եմ անմիջապես թաքցնել սյունակները, որոնց ամսաթիվը պակաս է այս կոնկրետ ամսաթվից, ինչպես ցույց է տրված հետևյալ նկարը: Այս հոդվածը կներկայացնի այն լուծելու որոշ հնարքներ:
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, Ապա պահեք և փակեք այս կոդը, վերադառնաք աշխատանքային թերթ, և այժմ, երբ ամսաթիվը մուտքագրեք բջիջ K4, սյունակները, որոնց ամսաթիվը պակաս է այս կոնկրետ ամսաթվից, ինքնաբերաբար կթաքցվեն:
ՆշումՎերոհիշյալ ծածկագրում K4 կոնկրետ ամսաթվի բջիջն է, որի հիման վրա ցանկանում եք թաքցնել սյունակները, A1: I1 տողի բջիջները պարունակում են ձեր օգտագործած ամսաթիվը:
Թաքցրեք սյունակները, որոնք հիմնված են Excel- ի համար հատուկ ամսաթվի վրաԵթե ծածկագրին ծանոթ չեք, ահա մի հարմար գործիք ՝Excel- ի համար նախատեսված գործիքներԻր Ընտրեք հատուկ բջիջներ օգտակար, դուք կարող եք հեշտությամբ ավարտել այս գործը:
| Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.
1, Ընտրեք ամսաթվի վերնագրերը և կտտացրեք Կուտոլս > ընտրել > Ընտրեք հատուկ բջիջներ, տես նկարի նկարը.
2, Դուրս ցցված Ընտրեք հատուկ բջիջներ երկխոսության տուփ, ընտրեք Ամբողջ սյունակ - ից Ընտրության տեսակը, ապա ընտրեք չափանիշները, ինչպիսիք են Պակաս - ից Հատուկ տեսակ բաց թողեք ցուցակը և մուտքագրեք ամսաթիվը տեքստի տուփի կողքին, որի վրա ցանկանում եք թաքցնել սյունակները, տես նկարի նկարը.
3. Եվ այնուհետեւ կտտացրեք Ok կոճակը, հատուկ սյունակները, որոնց ամսաթիվը պակաս է 5/16/2016, ընտրվում են միանգամից, տես նկարի նկարը.
4, Ապա աջ կտտացրեք ցանկացած ընտրված սյունակի վերնագրի վրա և ընտրեք Թաքցնել ըստ ձեզ անհրաժեշտ ընտրված սյունակների թեզերը թաքցնելու համար: Տեսեք,
Կտտացրեք անվճար ներբեռնման համար Excel- ի համար հիմա
