Přejít k hlavnímu obsahu

Rychle a automaticky vložte datum a časové razítko do aplikace Excel

V aplikaci Excel je vložení data a časového razítka běžnou operací. Tady v tomto tutoriálu představím několik metod ručního nebo automatického vložení data a časového razítka do buněk aplikace Excel poskytnutím různých případů.

Vložte datum a časové razítko pomocí zkratek

Vložte datum a časové razítko se vzorcem

Vzorec pro automatické vložení časového razítka při zadávání dat do jiného sloupce

VBA pro automatické vložení časového razítka při zadávání dat do jiného sloupce


Vložte datum a časové razítko pomocí zkratek

Pokud potřebujete pouze vložit datum a časové razítko do několika buněk, můžete je vložit ručně stisknutím klávesových zkratek.

Vložte aktuální datum: ovládání + :
časové razítko pro vložení dokumentu 1

Vložit aktuální čas: směna + ovládání + :
časové razítko pro vložení dokumentu 2

Viz obrázek:
časové razítko pro vložení dokumentu 3

Tip:

1. Výstupy můžete podle potřeby formátovat jako formáty data nebo času Formát buněk dialog.

2. Pokud máte Kutools pro Excel, můžete vložit aktuální datum nebo jiná data ve specifikovaném formátu data podle potřeby Vložte datum funkce. Kliknutím stáhněte zdarma
vložte datum


Vložte datum a časové razítko se vzorcem

Pokud chcete vložit datum nebo časové razítko, které se může automaticky aktualizovat, můžete použít níže uvedené vzorce.

Vložte aktuální datum

= DNES ()

Stisknout vstoupit klíč a do buňky je vloženo aktuální datum.

Vložit aktuální čas :

= NYNÍ ()

Stiskněte klávesu Enter a do buňky se vloží aktuální datum a čas.
časové razítko pro vložení dokumentu 4

Tip:

1. Výstupy můžete podle potřeby formátovat jako formáty data nebo času Formát buněk dialog. Například chcete zobrazit pouze aktuální čas, po použití tlačítka naformátujte buňku jako Čas = NYNÍ () vzorec

2. Pokud chcete vložit aktuální datum a čas do záhlaví nebo zápatí listu, můžete použít Vložte informace o sešitu funkce Kutools pro Excel rychle zvládnout tuto práci. Kliknutím stáhněte zdarma
vložte informace o sešitu


Vzorec pro automatické vložení časového razítka při zadávání dat do jiného sloupce

Předpokládejme, že existují dva sloupce, sloupec A a sloupec B, nyní chcete vložit aktuální časové razítko do sloupce B při zadávání dat do sloupce A, jak to můžete udělat?
automatické vložení časového razítka 1

Automatické vkládání časového razítka při zadávání dat

1. Nejprve klikněte na Soubor > možnosti k otevření Možnosti aplikace Excel dialog, zvolte Vzorce v levém podokně a poté zkontrolujte Povolit iterativní výpočet in Možnosti výpočtu skupina. A klikněte OK.
časové razítko pro vložení dokumentu 5

2. Do sloupce B, například do buňky B1, zadejte tento vzorec

= IF (A1 <> "", IF (B1 <> "", B1, NOW ()), "")

potom přetáhněte úchyt automatického vyplňování dolů do buněk.
časové razítko pro vložení dokumentu 6

3. Poté naformátujte buňky vzorce jako formát datetime, jak potřebujete v souboru Formát buněk dialog: ponechte vybrané buňky vzorce, kliknutím pravým tlačítkem zobrazte místní nabídku, zvolte Formát buněk, pak Formát buněk objeví se dialogové okno v Zvyk část, která pod Číslo na kartu, zadejte požadovaný formát na Styl textové pole a klikněte na OK.
časové razítko pro vložení dokumentu 7

Nyní, když zadáte data do sloupce A, bude aktuální datetime vložen do sloupce B.
časové razítko pro vložení dokumentu 8

Automatické vkládání a aktualizace časového razítka, zatímco buňky se mění v jiném sloupci

Pokud chcete automaticky vložit časové razítko při zadávání buněk a zároveň se při změně záznamu aktualizuje vložené časové razítko, můžete použít následující vzorec:

=IF(A1<>"",IF(AND(B1<>"",CELL("address")=ADDRESS(ROW(A1),COLUMN(A1))),NOW(),IF(CELL("address")<>ADDRESS(ROW(A1),COLUMN(A1)),B1,NOW())),"")

A1 je buňka, do které zadáte data, B1 je buňka vzorce, do které chcete vložit časové razítko.

Přetáhněte úchyt automatického vyplňování dolů do buněk, které používáte.
automatické vložení časového razítka 2

Poté naformátujte buňky vzorce jako formát datetime podle potřeby v souboru Formát buněk dialog: ponechte vybrané buňky vzorce, kliknutím pravým tlačítkem zobrazte místní nabídku, zvolte Formát buněk, pak Formát buněk objeví se dialogové okno v Zvyk část, která pod Číslo na kartu, zadejte požadovaný formát na Styl textové pole, klikněte OK.


VBA pro automatické vložení časového razítka při zadávání dat do jiného sloupce

Pokud znáte kód VBA, můžete postupovat takto:

1. Klikněte pravým tlačítkem na kartu listu, kterou používáte, a poté vyberte Zobrazit kód z kontextové nabídky.
časové razítko pro vložení dokumentu 9

2. Pak v Microsoft Visual Basic pro aplikace okno, vložte pod kód.

VBA: Automatické vložení časového razítka

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyKutools20190919
Dim xRInt As Integer
Dim xDStr As String
Dim xFStr As String
On Error Resume Next
xDStr = "A" 'Data Column
xFStr = "B" 'Timstamp Column
If (Not Application.Intersect(Me.Range(xDStr & ":" & xDStr), Target) Is Nothing) Then
       xRInt = Target.Row
       Me.Range(xFStr & xRInt) = Format(Now(), "mm/dd/yyyy hh:mm:ss")
End If
End Sub

časové razítko pro vložení dokumentu 10

3. Poté tento kód uložte. Od této chvíle, pokud zadáte data nebo změníte data ve sloupci A, bude nové časové razítko vloženo do sloupce B.

Poznámka: můžete změnit sloupec A a B a formát času mm / dd / rrrr hh: mm: ss v kódu VBA tak, aby odpovídaly vaší skutečné potřebě.

Chcete-li použít definovanou funkci, můžete postupovat takto:

1. Držet Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno. A klikněte Vložit > Modul vložit prázdný modul.
časové razítko pro vložení dokumentu 11

2. Vložte pod nový kód do nového modulu. Poté kód uložte a vraťte se zpět do listu.

Function FormatDate(xRg As Range)
'UpdatebyKutools20190919
On Error GoTo Err_01
If xRg.Value <> "" Then
    FormatDate = Format(Now, "mm/dd/yyyy hh:mm:ss")
Else
    FormatDate = ""
End If
Exit Function
Err_01:
    FormatDate = "Error"
End Function

časové razítko pro vložení dokumentu 12

3. Do buňky, do které se vloží časové razítko, zadejte tento vzorec

= FormatDate (F1)

F1 je buňka, do které zadáte data nebo data změníte. Poté přetáhněte úchyt automatického vyplňování dolů do buněk.
časové razítko pro vložení dokumentu 13

Nyní bude vložen aktuální datetime, pokud buňka F1 zadala data nebo byla aktualizována.


Další operace (články) související s DateTime

Převést datum uložené jako text na datum v aplikaci Excel
Když zkopírujete nebo importujete data z jiných zdrojů dat do buňky aplikace Excel, může se stát, že se datum zformátuje a uloží jako text. A zde představuji triky, jak převést tato data uložená jako texty na standardní data v aplikaci Excel.

Přidejte / odečtěte půl roku / měsíce / hodiny k datu nebo času v aplikaci Excel
V naší každodenní práci s Excelem je obvyklé přidávat rok, měsíc nebo hodinu k datu nebo času. Zkoušeli jste někdy přidat k datu nebo času půl roku, měsíce nebo hodiny? Zde představuji triky, jak s touto prací zacházet.

Průměrné časové značky dne v aplikaci Excel
Například jste zaznamenali časová razítka pro přihlášení pokaždé, když konkrétní uživatel přistupoval na web v aplikaci Excel, a nyní chcete průměrovat tato časová razítka pro předpovídání nejpravděpodobnějšího času, kdy tito uživatelé na web v budoucnu vstoupí, jak byste to mohli udělat ?

Výpočet hodin mezi časy po půlnoci v aplikaci Excel
Předpokládejme, že máte časový rozvrh pro zaznamenávání svého pracovního času, čas ve sloupci A je počáteční čas dneška a čas ve sloupci B je čas konce následujícího dne. Normálně, pokud vypočítáte časový rozdíl mezi dvěma časy přímo mínus "= B2-A2", nezobrazí se správný výsledek


  • 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 a uchovávání údajů; Rozdělit obsah buněk; Zkombinujte duplicitní řádky a součet / průměr... 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ší ...
  • Oblíbené a rychlé vkládání vzorců„Rozsahy, grafy a obrázky; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • 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...
  • Seskupování kontingenčních tabulek podle číslo týdne, den v týdnu a další ... Zobrazit odemčené, zamčené buňky různými barvami; Zvýrazněte buňky, které mají vzorec / název...
karta kte 201905
  • 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
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If anyone can assist, I'm seeking help to create a formula that, when I change the status to 'Complete,' automatically records the date of that moment. Similarly, if I change the status for subsequent entries, it should capture the date of that day. Any guidance on creating this formula would be greatly appreciated.
This comment was minimized by the moderator on the site
Hi, We have used the following formula for auto-update timestamp

=IF(A1<>"",IF(AND(B1<>"",CELL("address")=ADDRESS(ROW(A1),COLUMN(A1))),NOW(),IF(CELL("address")<>ADDRESS(ROW(A1),COLUMN(A1)),B1,NOW())),"")

But, sometimes it works sometimes it doesn't. even faced for some user's it's working fine for some not.
Sometimes it shows circular reference pop message error for some-user.
when tried to rectify the error, we saw circular reference is grad out. Not sure how do we fix it.

Any help much apricated!!! Thankyou
This comment was minimized by the moderator on the site
Hi, thank you for this, it is very helpful with my project.

I' m running calculations on stock market information that is populating the spreadsheet with RTD;
I' m trying to create a timestamp when there is an update in the stock price, but this does not work, the "timestamp" cell remains blank.
(The cell that receives the stock price is RTD formula)

Any ideas what i should do ?
This comment was minimized by the moderator on the site
In the cells where the time stamp should show up, red text saying Time stamp shows up instead. No value in format mm/dd/yyyy hh:mm:ss is visible.
This comment was minimized by the moderator on the site
Hi, Celeste, I did not get your question clearly. If you want to show "Time Stamp" in the cell if there is empty in the entried cell, you just change the formula to:
=IF(A1<>"",IF(B1<>"",B1,NOW()),"Time Stamp")
This comment was minimized by the moderator on the site
the function uptades every time you open the excel file
it also updates the earlier data when you insert rows.
This comment was minimized by the moderator on the site
Hi, try to click Formulas tab and go to Calculation group to click Calculation Options > Manual, then the formula will not auto update.
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-manual-calculation.png
This comment was minimized by the moderator on the site
Thank you very much for your kind help. Unfortunately, the manual setting would stop my other formulas in the table, which is not good from my point of view.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations