Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet gyorsan átugrani az Excel aktuális dátummal rendelkező cellájába?

Itt van egy lap, amely felsorolja a dátumokat, és gyorsan szeretne ugrani arra a cellára, amely az aktuális dátummal rendelkezik. Hogyan lehet megoldani ezt a problémát?

Ugrás az aktuális dátumra a VBA segítségével

Ugrás az aktuális dátumra a Keresés és csere paranccsal


nyíl kék jobb buborék Ugrás az aktuális dátumra a VBA segítségével

Itt van egy VBA-kód, amely segítségével gyorsan ugorhat az aktuális dátummal rendelkező cellába.

1. Engedélyezze a használni kívánt munkafüzetet, majd nyomja meg az gombot Alt + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, illessze be a kód alatt a Modulok.

VBA: Ugrás az aktuális dátumra

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 ugrás az aktuális dátumra 1

3. nyomja meg F5 gombot, majd a kurzor az aktuális dátummal rendelkező cellához ugrik, bárhol is található a munkafüzetben.
doc ugrás az aktuális dátumra 2


nyíl kék jobb buborék Ugrás az aktuális dátumra a Keresés és csere paranccsal

Ha nem ismeri a VBA kódot, alkalmazhatja a Keresés és csere segédprogram az aktuális dátumra ugráshoz.

1. Engedélyezze a dátumlistát tartalmazó lapot, és válasszon egy üres cellát, írja be ezt a képletet = MA (), nyomja meg belép kulcs, most megkapja a mai dátumot.
doc ugrás az aktuális dátumra 3

2. nyomja meg Ctrl + C a mai dátum másolásához, és válassza ki a dátumlistát, majd nyomja meg az gombot Ctrl + F hogy engedélyezze a Keresés és csere párbeszédpanelen a Mit keres szövegmezőbe, nyomjuk meg a gombot Ctrl + V a mai dátum beillesztésére. Lásd a képernyőképet:
doc ugrás az aktuális dátumra 4

3. kettyenés Találd meg mindet. Most a kurzor arra a cellára ugrik, ahol a mai nap van a kiválasztott listában.
doc ugrás az aktuális dátumra 5

Tipp: Ha van Kutools az Excel számára, alkalmazhatja azt Válassza a Specifikus cellák lehetőséget hogy gyorsan kezelje ezt a feladatot. Korlátozások nélkül teljes funkciója 30 nap, kérjük, töltse le és ingyenes próbaverzióval rendelkezzen most.
doc ugrás az aktuális dátumra 6


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (4)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nem működik a VBA kóddal, csak előhoz egy "Go To" nevű ablakot. Valamilyen módon szerkeszteni akartuk a VBA kódot?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanazok az eredmények, mint Peter ... Az F5 előhozza a GoTo-t. Kipróbáltuk a Ctrl-F5-öt és az Alt-F5-öt is. Van valami más kulcssorozat vagy kiegészítés a kódban? Kösz.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kezdő vagyok a Microsoft Office és az Excel használatában, de természetemnél fogva programozó vagyok. Ha a cél az, hogy megkeressünk egy cellát a mai dátummal – és a kurzort rá helyezzük, akkor nem látom, hogy szükség van erre a kódra.Egy egyszerű kódot (lásd alább) hozunk létre egy makróban, és rendeljük hozzá a makrót egy betűhöz. mondjuk „T”, és lehetőségként létrehozhat egy gombot, és hozzárendelheti a makrót, így amikor a gombra kattint, közvetlenül az adott cellába utazik. A megjegyzéssorok (amelyek '-vel kezdődnek) nem kötelezőek. Dönthet úgy, hogy nem írja be őket. Ezeket használtam a kód hibaelhárításához. Az "Msgbox" egy jó eszköz az Önnel való kommunikációhoz. Íme a kódom:---------------------------------- Sub GoToday()
'
GoToToday makró
'
Billentyűparancs: Ctrl+t
'
Dim DateRange, DateCell As Range
Dim i As Byte
Dim x As String
On Error Resume Next

MySheet = ActiveSheet.Name

' MsgBox (dátum)
Az i = 12 és 130 közötti értékre
x = "A" és i
' MsgBox (x)
' MsgBox (Worksheets(MySheet).Tartomány(x))

Ha Worksheets(MySheet).Tartomány(x).Érték = Dátum Akkor
' MsgBox (i)
' MsgBox (x)
' MsgBox (Worksheets(MySheet).Tartomány(x))
x = "D" és i
Tartomány(x).Válassza ki
Exit Sub
Ha véget
Következő:
End Sub

A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a példa rettenetesen lassú. Valószínűleg levághat néhány keresési paramétert, tehát tesztelje, ha akarja.
Kód:

„Keresse meg a mai dátumot a lapon, és aktiválja a cellát
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False). Aktiválja
'-----

ActiveWindow.ScrollRow = ActiveCell.Row görgetési nézete a kiválasztott cellához
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi