Բաց թողնել հիմնական բովանդակությունը

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

Հեղինակ՝ Արև Վերջին փոփոխությունը՝ 2020-07-21

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

Անցեք ընթացիկ ամսաթվով 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 օրվա ընթացքում, խնդրում ենք ներբեռնել և անվճար փորձաշրջան անցնել հիմա:
փաստաթղթի թռիչք դեպի ընթացիկ ամսաթիվ 6

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (4)
No ratings yet. Be the first to rate!
mkrmec
mkrmec
This comment was minimized by the moderator on the site
This example is horribly slow. You could probably trim some of the find parameters, so test if you want.
Code:

'Find todays date in the sheet and activate cell
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
'-----

ActiveWindow.ScrollRow = ActiveCell.Row 'scroll view to selected cell
Reply
0
0
Haitham Awwad
Haitham Awwad
This comment was minimized by the moderator on the site
I am a novice with Microsoft Office, and Excel, but I am a programmer by nature. If the objective is to locate a cell with today's date - and position the cursor to it, I can't see the need for all that code.A simple code (listed below) created in a macro, and assign the macro to a letter say "T", and as an option you may even created a button and assign the macro to it, so when you click the button you will travel directly to that cell.The comments lines (those that start with ') are optional. You may choose not to type them. I used them for troubleshooting the code. "Msgbox" is a nice tool to communicate with you.Here is my code:---------------------------------Sub GoToToday()
'
' GoToToday Macro
'
' Keyboard Shortcut: Ctrl+t
'
Dim DateRange, DateCell As Range
Dim i As Byte
Dim x As String
On Error Resume Next

MySheet = ActiveSheet.Name

' MsgBox (Date)
For i = 12 To 130
x = "A" & i
' MsgBox (x)
' MsgBox (Worksheets(MySheet).Range(x))

If Worksheets(MySheet).Range(x).Value = Date Then
' MsgBox (i)
' MsgBox (x)
' MsgBox (Worksheets(MySheet).Range(x))
x = "D" & i
Range(x).Select
Exit Sub
End If
Next:
End Sub

Reply
0
0
Mike
Mike
This comment was minimized by the moderator on the site
Same results as Peter ... F5 brings up GoTo. We also tried Ctrl-F5 and Alt-F5. Is there some other key sequence or addition to the code? Thanks.
Reply
0
0
Peter
Peter
This comment was minimized by the moderator on the site
This doesn't work with the VBA code, it just brings up a window called "Go To". Were we meant to edit the VBA code in some way?
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations