Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrace  \/ 
x

or

Jak aktualizovat nebo vložit (aktuální) datum a čas příkazovým tlačítkem v aplikaci Excel?

Normálně má mnoho uživatelů aplikace Excel tendenci vložit časové razítko se vzorcem = NOW (). S tímto vzorcem se vložené časové razítko aktualizuje automaticky při každém otevření sešitu. Jak toho dosáhnout, abyste kdykoli mohli ručně aktualizovat datum a čas v listu? Tento článek vám ukáže způsob aktualizace aktuálního data a času kliknutím na příkazové tlačítko v aplikaci Excel.

Aktualizujte datum a čas příkazovým tlačítkem s kódem VBA


Aktualizujte datum a čas příkazovým tlačítkem s kódem VBA

Při aktualizaci data a času pomocí příkazového tlačítka v aplikaci Excel postupujte takto.

1. Vložte příkazové tlačítko kliknutím Vývojka > Vložit > Příkazové tlačítko (ovládání ActiveX). Viz snímek obrazovky:

2. Klikněte pravým tlačítkem na vložené příkazové tlačítko a poté klikněte na Zobrazit kód z nabídky pravého tlačítka myši.

3. Ve vyskakovacím okně Microsoft Visual Basic pro aplikace v okně nahraďte původní kód následujícím kódem VBA.

Kód VBA: Aktualizujte datum a čas příkazovým tlačítkem v aplikaci Excel

Private Sub CommandButton1_Click()
    Range("A2").Value = Now()
End Sub

Poznámka: V kódu je CommandButton1 název vloženého příkazového tlačítka. A A2 je buňka, ve které se zobrazí datum a čas aktualizace. Změňte je prosím podle potřeby.

4. Vypněte režim návrhu na kartě Vývojář. Klikněte na příkazové tlačítko a do buňky A2 se vloží aktuální datum a čas.

A pokaždé, když kliknete na příkazové tlačítko, datum a čas v buňce A2 budou okamžitě aktualizovány.


Související články:


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-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní 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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Rhonda · 1 years ago
    How do i update the code to put the time/date stamp in the cell NEXT to the button so it applies to each row thereon

  • To post as a guest, your comment is unpublished.
    Michelle · 2 years ago
    I have a question. There is a workbook that we keep on a share drive for the whole team to access. I want to add this macro to it so anytime changes are made, we can simply pres the button and the time and date will auto populate at a click. Now here is the question, from this workbook, data is pulled to other workbooks if I save a new file as "Macro-Enabled" and delete the old "Non-Macro" workbook, will the data continue to pull from this new workbook or will I need to fix all the other workbooks.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Michelle,
      After saving the workbook as an Macro-Enabled Excel workbook, the code still works fine.
  • To post as a guest, your comment is unpublished.
    raph · 2 years ago
    Awesome! Thanks for this tutorial.


    However, how do i insert ONLY the date in DD/MM/YYYY format?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi,
      You can format the output cell as Short Date formatting to solve the problem.
  • To post as a guest, your comment is unpublished.
    joeywarren27@gmail.com · 3 years ago
    Hi there.. this is really good basic info..


    One question - how do you modify the code to put the datestamp into the NEXT row below, each time the button is pressed? (keeping the data previously written above?)


    Thank you so much!
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Hi,
      The below VBA code will work on selected cell. When you want to insert timestampe to a cell, just select it and press the button.

      Private Sub CommandButton1_Click()
      Dim xRg As Range
      On Error Resume Next
      Set xRg = Selection
      xRg.Value = Now()
      End Sub