Hoe snel naar de cel springen met de huidige datum in Excel?

Hier is een blad met een lijst met datums, u wilt snel naar de cel met de huidige datum springen, hoe kunt u dit probleem oplossen?

Spring naar de huidige datum met VBA

Spring naar de huidige datum met Zoeken en vervangen

Spring naar de huidige datum met VBA

Hier is een VBA-code waarmee u snel naar de cel kunt springen met de huidige datum.

1. Schakel de werkmap in die u wilt gebruiken en druk op Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module, plak onderstaande code in het Module.

VBA: spring naar de huidige datum

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

doc spring naar huidige datum 1

3. druk op F5 -toets, dan springt de cursor naar de cel met de huidige datum, waar u zich ook bevindt in de werkmap.
doc spring naar huidige datum 2

Spring naar de huidige datum met Zoeken en vervangen

Als u niet bekend bent met VBA-code, kunt u ook de Zoeken en vervangen hulpprogramma om naar de huidige datum te springen.

1. Schakel het blad in dat de datumlijst bevat en selecteer een lege cel, typ deze formule = VANDAAG (), druk op Enter key, nu krijg je de datum van vandaag.
doc spring naar huidige datum 3

2. druk op CTRL + C om de datum van vandaag te kopiëren, ga naar de lijst met datums en druk vervolgens op Ctrl + F om de Zoeken en vervangen dialoogvenster, in het Zoeken naar tekstvak, druk op Ctrl + V om de datum van vandaag in te plakken. Zie screenshot:
doc spring naar huidige datum 4

3. klikken Vind alle. Nu springt de cursor naar de cel met vandaag in de geselecteerde lijst.
doc spring naar huidige datum 5

Tip: Als je Kutools for Excel, kunt u zijn Selecteer specifieke cellen om deze taak snel af te handelen. Het is volledig functioneel zonder beperking in 30 dagen, download en maak nu een gratis proefversie.

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop...

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!

Lees verder... Gratis download... Aankoop...

Heb je vragen? Stel ze hier. (4)

Nog geen beoordelingen. Beoordeel als eerste!

Peter

ongeveer 4 jaar geleden

#26958

Deze opmerking is gemaakt door de moderator op de site

Dit werkt niet met de VBA-code, er verschijnt alleen een venster met de naam "Ga naar". Was het de bedoeling dat we de VBA-code op de een of andere manier bewerken?

Antwoorden

Mike

ongeveer 3 jaar geleden

#31754

Deze opmerking is gemaakt door de moderator op de site

Dezelfde resultaten als Peter ... F5 brengt GoTo naar voren. We hebben ook Ctrl-F5 en Alt-F5 geprobeerd. Is er een andere toetsenreeks of toevoeging aan de code? Bedankt.

Antwoorden

Haitham Awwad

ongeveer 2 jaar geleden

#32759

Deze opmerking is gemaakt door de moderator op de site

Ik ben een beginner met Microsoft Office en Excel, maar ik ben van nature een programmeur. Als het doel is om een cel met de datum van vandaag te vinden - en de cursor erop te plaatsen, zie ik de noodzaak van al die code niet in. Een eenvoudige code (hieronder vermeld) gemaakt in een macro en de macro toewijzen aan een letter zeg "T", en als een optie kunt u zelfs een knop maken en de macro eraan toewijzen, dus als u op de knop klikt, gaat u rechtstreeks naar die cel. De commentaarregels (die beginnen met ') zijn optioneel. U kunt ervoor kiezen ze niet te typen. Ik heb ze gebruikt voor het oplossen van problemen met de code. "Msgbox" is een leuk hulpmiddel om met u te communiceren. Hier is mijn code: --------------------------------- Sub GoToVandaag()
'
'GoToToday-macro'
'
' Sneltoets: Ctrl+t
'
Dim datumbereik, datumcel als bereik
Dim ik als byte
Dim x als tekenreeks
On Error Resume Next

MijnBlad = ActiveBlad.Naam

' MsgBox (Datum)
Voor i = 12 Om 130
x = "A" & i
' BerichtBox (x)
' MsgBox (Werkbladen(MijnBlad).Bereik(x))

Als Werkbladen (Mijn Blad). Bereik (x). Waarde = Datum Dan
' MsgBox (i)
' BerichtBox (x)
' MsgBox (Werkbladen(MijnBlad).Bereik(x))
x = "D" & i
Bereik(x).Selecteer
Exit Sub
End If
Vervolg:
End Sub

Antwoorden

mkrmec

ongeveer 2 jaar geleden

#34483

Deze opmerking is gemaakt door de moderator op de site

Dit voorbeeld is verschrikkelijk traag. U kunt waarschijnlijk enkele van de zoekparameters inkorten, dus test als u wilt.
Code:

'Vind de datum van vandaag in het blad en activeer cel
Cells.Find(What:=Datum, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activeren
'-----

ActiveWindow.ScrollRow = ActiveCell.Row 'scroll weergave naar geselecteerde cel

Antwoorden

Er zijn nog geen reacties geplaatst

Laat uw commentaar

Posten als gast

Inloggen

Naam (verplicht)

E-mail (Verplicht)

Beoordeel dit bericht:

Reset

0 Personages

Ik ga akkoord met de bepalingen en voorwaarden