Ինչպե՞ս արագ անցնել բջիջ Excel- ում ընթացիկ ամսաթվով:

Ահա ամսաթվերի ցուցակ ունեցող թերթիկ, դուք ցանկանում եք արագ անցնել դեպի այն խուցը, որն առկա ամսաթվով է, ինչպե՞ս լուծել այս խնդիրը:

Անցեք ընթացիկ ամսաթվով VBA- ով

Անցեք ընթացիկ ամսաթվին ՝ Find- ով և փոխարինեք

Անցեք ընթացիկ ամսաթվով VBA- ով

Ահա VBA կոդ, որը կարող է օգնել ձեզ արագ անցնել բջիջը ընթացիկ ամսաթվով:

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

2: սեղմեք Տեղադրել > Մոդուլներ, ներքևում տեղադրեք կոդը ՝ Մոդուլներ.

VBA. Անցնել ընթացիկ ամսաթվին

Private Sub Workbook_Open()
'UpdatebyExtendoffice20161221
    Dim daterng As Range
    Dim DateCell As Range
    Dim WorkSht As Worksheet
    Dim dateStr As String
    Application.ScreenUpdating = False
    For Each WorkSht In Worksheets
        WorkSht.Select
        'Set daterng = Range("A:A")
        Set daterng = WorkSht.UsedRange
        'daterng.Select
        For Each DateCell In daterng
            DateCell.Activate
            ActiveCell.Select
            On Error Resume Next
            dateStr = DateCell.Value
            If dateStr = Date Then
                DateCell.Select
                Exit Sub
            End If
        Next
    Next WorkSht
    Application.ScreenUpdating = True
    'Worksheets(1).Select
End Sub

փաստաթղթի թռիչք դեպի ընթացիկ ամսաթիվ 1

3. Մամուլ F5 ստեղնը, այնուհետև կուրսորը նետվում է բջիջ ընթացիկ ամսաթվով, որտեղ էլ որ գտնեք աշխատանքային գրքում:
փաստաթղթի թռիչք դեպի ընթացիկ ամսաթիվ 2

Անցեք ընթացիկ ամսաթվին ՝ Find- ով և փոխարինեք

Եթե ծանոթ չեք VBA կոդին, կարող եք նաև կիրառել այն Գտնել եւ փոխարինել օգտակար ծառայություն `անցնել ընթացիկ ամսաթվին:

1. Միացրեք ամսաթվերը պարունակող թերթիկը և ընտրեք դատարկ բջիջ, մուտքագրեք այս բանաձևը = ԱՅՍՕՐ (), սեղմեք Մտնել բանալին, այժմ դուք ստանում եք այսօրվա ամսաթիվը:
փաստաթղթի թռիչք դեպի ընթացիկ ամսաթիվ 3

2. Մամուլ Ctrl + C այսօրվա ամսաթիվը պատճենելու համար և գնալ ամսաթվերի ցուցակ ընտրելու, ապա սեղմել Ctrl + F հնարավորություն ընձեռել Գտնել եւ փոխարինել երկխոսություն, Գտեք ինչ տեքստային տուփ, սեղմեք Ctrl + V այսօրվա ամսաթիվը տեղադրելու համար Տեսեք,
փաստաթղթի թռիչք դեպի ընթացիկ ամսաթիվ 4

3: սեղմեք Գտեք բոլորը, Կուրսորը ցատկում է դեպի խուց ընտրված ցուցակում այսօրվա հետ:
փաստաթղթի թռիչք դեպի ընթացիկ ամսաթիվ 5

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

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

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...

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

Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...

մեկնաբանություններ (4)

Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:

Սպառվել

մոտ 4 տարի առաջ

#26958

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Սա չի աշխատում VBA կոդի հետ, այն պարզապես բացում է պատուհան, որը կոչվում է «Go To»: Արդյո՞ք մենք պետք է ինչ-որ կերպ խմբագրենք VBA կոդը:

պատասխանել

Միկրոֆոն

մոտ 3 տարի առաջ

#31754

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Նույն արդյունքները, ինչ Պետրոսը ... F5-ը բերում է GoTo: Մենք նաև փորձեցինք Ctrl-F5 և Alt-F5: Կա՞ կոդի որևէ այլ բանալի հաջորդականություն կամ հավելում: Շնորհակալություն։

պատասխանել

Հայթամ Ավվադ

մոտ 2 տարի առաջ

#32759

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ես Microsoft Office-ի և Excel-ի սկսնակ եմ, բայց բնույթով ծրագրավորող եմ: Եթե նպատակը այսօրվա ամսաթվով բջիջ գտնելն է և կուրսորը դրա վրա դնելը, ես չեմ կարող տեսնել այդ ամբողջ կոդի անհրաժեշտությունը: Պարզ կոդ (ներքևում նշված) ստեղծվել է մակրոյում և մակրո վերագրել տառին: ասեք «T», և որպես տարբերակ կարող եք նույնիսկ ստեղծել կոճակ և դրան հատկացնել մակրո, այնպես որ, երբ սեղմեք կոճակը, անմիջապես կմեկնեք այդ բջիջը: Մեկնաբանությունների տողերը (նրանք, որոնք սկսվում են '-ով) պարտադիր չեն: Դուք կարող եք չմուտքագրել դրանք: Ես դրանք օգտագործել եմ կոդը վերացնելու համար: «Msgbox»-ը ձեզ հետ շփվելու լավ գործիք է: Ահա իմ կոդը.--------------------------------- Sub GoToToday ()
'
GoToToday մակրո
'
Ստեղնաշարի դյուրանցում՝ Ctrl+t
'
Dim DateRange, DateCell As Range
Dim i As Byte
Dim x Որպես լար
Ս.թ. սխալի Ռեզյումե Next

MySheet = ActiveSheet.Name

MsgBox (ամսաթիվ)
i = 12-ից 130-ի համար
x = «A» և i
MsgBox (x)
' MsgBox (Աշխատանքային թերթիկներ (MySheet). միջակայք (x))

If Worksheets(MySheet).Range(x)Value =Date then
MsgBox (i)
MsgBox (x)
' MsgBox (Աշխատանքային թերթիկներ (MySheet). միջակայք (x))
x = «D» & i
Range(x): Ընտրեք
Ելք ենթ
Վերջ: Եթե
Հաջորդ:
Վերջ Sub

պատասխանել

մկրմեց

մոտ 2 տարի առաջ

#34483

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Այս օրինակը սարսափելի դանդաղ է: Դուք հավանաբար կարող եք կրճատել որոնման որոշ պարամետրեր, այնպես որ փորձեք, եթե ցանկանում եք:
Կոդ:

«Թերթում գտեք այսօրվա ամսաթիվը և ակտիվացրեք բջիջը
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Ակտիվացնել
'-----

ActiveWindow.ScrollRow = ActiveCell.Row 'ոլորել դիտումը դեպի ընտրված բջիջ

պատասխանել

Առայժմ ոչ մի մեկնաբանություն չկա