Ինչպե՞ս արագ անցնել բջիջ 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
3. Մամուլ F5 ստեղնը, այնուհետև կուրսորը նետվում է բջիջ ընթացիկ ամսաթվով, որտեղ էլ որ գտնեք աշխատանքային գրքում:
Անցեք ընթացիկ ամսաթվին ՝ Find- ով և փոխարինեք
Եթե ծանոթ չեք VBA կոդին, կարող եք նաև կիրառել այն Գտնել եւ փոխարինել օգտակար ծառայություն `անցնել ընթացիկ ամսաթվին:
1. Միացրեք ամսաթվերը պարունակող թերթիկը և ընտրեք դատարկ բջիջ, մուտքագրեք այս բանաձևը = ԱՅՍՕՐ (), սեղմեք Մտնել բանալին, այժմ դուք ստանում եք այսօրվա ամսաթիվը:
2. Մամուլ Ctrl + C այսօրվա ամսաթիվը պատճենելու համար և գնալ ամսաթվերի ցուցակ ընտրելու, ապա սեղմել Ctrl + F հնարավորություն ընձեռել Գտնել եւ փոխարինել երկխոսություն, Գտեք ինչ տեքստային տուփ, սեղմեք Ctrl + V այսօրվա ամսաթիվը տեղադրելու համար Տեսեք,
3: սեղմեք Գտեք բոլորը, Կուրսորը ցատկում է դեպի խուց ընտրված ցուցակում այսօրվա հետ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: