Hvordan springer jeg hurtigt til cellen med den aktuelle dato i Excel?
Her er et ark med en liste over datoer, du vil hurtigt hoppe til den celle, der er med den aktuelle dato, hvordan løser du dette problem?
Gå til den aktuelle dato med VBA
Gå til den aktuelle dato med Find og erstat
Gå til den aktuelle dato med VBA
Her er en VBA-kode, der kan hjælpe dig med hurtigt at hoppe til cellen med den aktuelle dato.
1. Aktivér den projektmappe, du vil bruge, og tryk på Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, indsæt nedenstående kode til Moduler.
VBA: Gå til den aktuelle dato
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. Trykke F5 tasten, så springer markøren til cellen med den aktuelle dato, uanset hvor du finder det i projektmappen.
Gå til den aktuelle dato med Find og erstat
Hvis du ikke er fortrolig med VBA-koden, kan du også anvende Søg og erstat værktøj til at springe til den aktuelle dato.
1. Aktiver arket, der indeholder datolisten, og vælg en tom celle, skriv denne formel = I DAG (), tryk på Indtast nøgle, nu får du datoen i dag.
2. Trykke Ctrl + C for at kopiere datoen i dag, og vælg listen over datoer, og tryk derefter på Ctrl + F at aktivere Søg og erstat i dialogboksen Find hvad tekstboks, tryk på Ctrl + V at indsætte datoen i dag i. Se skærmbillede:
3. klik Find alle. Nu springer markøren til cellen med i dag på den valgte liste.
Tip: Hvis du har Kutools til Excel, kan du anvende dens Vælg specifikke celler for hurtigt at håndtere denne opgave. Det er fuld funktion uden begrænsning på 30 dage, download venligst og få en gratis prøveperiode nu. 
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
