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

Jak rychle přeskočit na buňku s aktuálním datem v aplikaci Excel?

Zde je list se seznamem dat, chcete rychle přeskočit na buňku, která je s aktuálním datem, jak vyřešit tento problém?

Přejít na aktuální datum pomocí VBA

Přeskočte na aktuální datum pomocí funkce Najít a nahradit


šipka modrá pravá bublina Přejít na aktuální datum pomocí VBA

Zde je kód VBA, který vám pomůže rychle přejít do buňky s aktuálním datem.

1. Povolte sešit, který chcete použít, a stiskněte Alt + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, vložte pod kód do Modul.

VBA: Přejít na aktuální 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 skok na aktuální datum 1

3. lis F5 klávesu, pak kurzor přeskočí na buňku s aktuálním datem, kamkoli sešitu najdete.
doc skok na aktuální datum 2


šipka modrá pravá bublina Přeskočte na aktuální datum pomocí funkce Najít a nahradit

Pokud nejste obeznámeni s kódem VBA, můžete také použít Najít a nahradit nástroj pro přechod na aktuální datum.

1. Povolte list, který obsahuje seznam dat, a vyberte prázdnou buňku, zadejte tento vzorec = DNES (), lis vstoupit klíč, teď dostanete dnešní datum.
doc skok na aktuální datum 3

2. lis Ctrl + C zkopírujte datum dneška, vyberte seznam dat a stiskněte Ctrl + F k povolení Najít a nahradit v dialogovém okně Najít to, co textové pole, stiskněte Ctrl + V vložit dnešní datum do. Viz snímek obrazovky:
doc skok na aktuální datum 4

3. cvaknutí Najít vše. Nyní kurzor přeskočí na buňku s dneškem ve vybraném seznamu.
doc skok na aktuální datum 5

Tip: Pokud máte Kutools pro Excel, můžete použít jeho Vyberte konkrétní buňky pro rychlé zvládnutí tohoto úkolu.Je to plně funkční bez omezení v

30
dnů, prosím stáhněte si a získejte bezplatnou zkušební verzi hned teď.
doc skok na aktuální datum 6

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (4)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Toto nefunguje s kódem VBA, pouze vyvolá okno s názvem „Přejít na“. Měli jsme nějakým způsobem upravit kód VBA?
Tento komentář byl moderátorem webu minimalizován
Stejné výsledky jako Peter... F5 vyvolá GoTo. Zkusili jsme také Ctrl-F5 a Alt-F5. Existuje nějaká další klíčová sekvence nebo doplněk ke kódu? Dík.
Tento komentář byl moderátorem webu minimalizován
Jsem začátečník s Microsoft Office a Excel, ale jsem od přírody programátor. Pokud je cílem najít buňku s dnešním datem – a umístit na ni kurzor, nevidím potřebu všech těch kódů. Jednoduchý kód (uvedený níže) vytvořený v makru a přiřadit makro písmenu řekněte „T“ a jako možnost můžete dokonce vytvořit tlačítko a přiřadit mu makro, takže když na tlačítko kliknete, přesunete se přímo do této buňky. Řádky komentářů (začínající ') jsou volitelné. Můžete se rozhodnout je nezadávat. Použil jsem je k odstraňování problémů s kódem. "Msgbox" je příjemný nástroj pro komunikaci s vámi. Zde je můj kód:--------------------------------- Sub GoToToday()
'
Makro GoToToday
'
' Klávesová zkratka: Ctrl+t
'
Ztlumit DateRange, DateCell jako rozsah
Dim i As Byte
Dim x As String
On Error Resume Next

MySheet = ActiveSheet.Name

' MsgBox (Datum)
Pro i = 12 Pro 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
Rozsah(x).Vyberte
Konec Sub
End If
Další:
End Sub

Tento komentář byl moderátorem webu minimalizován
Tento příklad je strašně pomalý. Pravděpodobně byste mohli oříznout některé parametry hledání, takže pokud chcete, vyzkoušejte.
Kód:

„Najděte v listu dnešní datum a aktivujte buňku
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Aktivovat
'-----

ActiveWindow.ScrollRow = ActiveCell.Row 'přechod zobrazení na vybranou buňku
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL