Ինչպե՞ս զտել բոլոր ամսաթվային բջիջները Excel- ում այսօրից առաջ կամ հետո:
Այս հոդվածում ես կխոսեմ այն մասին, թե ինչպես զտել բոլոր ամսաթվային բջիջները, որոնք այսօր առաջ կամ հետո Excel- ի աշխատանքային թերթիկում են:
Dateտեք բոլոր ամսաթվային բջիջները այսօրից առաջ կամ հետո `terտիչ գործառույթով
Dateտեք բոլոր ամսաթվային բջիջները այսօրվանից առաջ կամ հետո VBA կոդով
Dateտեք բոլոր ամսաթվային բջիջները այսօրից առաջ կամ հետո `terտիչ գործառույթով
Փաստորեն, Excel- ում terտիչ հատկությունը կարող է օգնել ձեզ լուծել այս խնդիրը որքան հնարավոր է արագ, խնդրում եմ արեք հետևյալ կերպ.
1, Ընտրեք ամսաթվի սյունակը, որը ցանկանում եք զտել, և այնուհետև կտտացրեք Ամսաթիվ > ֆիլտր, տես նկարի նկարը.
2, Դրանից հետո կտտացրեք բացվող սլաքին և ընտրեք Ամսաթիվ զտիչներ > նախքան / Այն բանից հետո ըստ ձեզ, տես նկարի նկարը.
3, Մեջ Անհատականացված AutoFilter երկխոսության վանդակում, սեղմեք Ամսաթիվ ընտրող
կոճակը, այնուհետեւ կտտացրեք այսօր ամսաթիվը ընտրելու օրացույցում կոճակը, տե՛ս screesnhot:
4. Այնուհետեւ կտտացրեք OK երկխոսությունը փակելու համար, և բոլոր ամսաթվերը մինչև այսօր կամ դրանից հետո զտվել են, ինչպես ցույց է տրված հետևյալ նկարը.
Dateտեք բոլոր ամսաթվային բջիջները այսօրվանից առաջ կամ հետո VBA կոդով
Հետևյալ VBA կոդերը կարող են նաև օգնել ձեզ զտել բոլոր ամսաթվերը ընթացիկ օրվանից առաջ կամ հետո աշխատանքային թերթում: Խնդրում ենք անել ստորև նշված քայլերով.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդերից մեկը Մոդուլներ Պատուհանը:
VBA կոդ. Filտեք բոլոր ամսաթվային բջիջները մինչև այսօր.
Sub FilterDateBeforeToday()
Dim xLastRow As Long
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
xRg.AutoFilter 1, "<" & CDbl(Date)
Application.ScreenUpdating = True
End Sub
VBA կոդ. Զտել բոլոր ամսաթվերի բջիջները այսօրվանից հետո.
Sub FilterDateBeforeToday()
Dim xLastRow As Long
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
xRg.AutoFilter 1, ">" & CDbl(Date)
Application.ScreenUpdating = True
End Sub
3. Վերոնշյալ կոդերից մեկը պատճենելուց և տեղադրելուց հետո սեղմեք F5 այս կոդը գործարկելու համար ստեղնը, և կհայտնվի հուշման տուփ, որը կհիշեցնի ձեզ ընտրված ամսաթվի սյունակը, որը ցանկանում եք զտել, տես սքրինշոթը.
4. Եվ այնուհետեւ կտտացրեք OK կոճակը, բոլոր ամսաթվի բջիջները, որոնք այսօրվանից առաջ կամ հետո անմիջապես կզտվեն:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
