Snel en automatisch datum en tijdstempel invoegen in Excel

Snel en automatisch datum en tijdstempel invoegen in Excel

In Excel is het invoegen van datum en tijdstempel een normale bewerking. Hier in deze handleiding, zal ik meerdere methoden introduceren voor het handmatig of automatisch invoegen van datum en tijdstempel in Excel cellen door het verstrekken van verschillende gevallen.

Datum en tijdstempel invoegen met sneltoetsen

Datum en tijdstempel invoegen met formule

Formule om automatisch tijdstempel in te voegen tijdens het invoeren van gegevens in een andere kolom

VBA om automatisch tijdstempel in te voegen terwijl u gegevens in een andere kolom invoert

Als u slechts in een paar cellen datum en tijdstempel hoeft in te voegen, kunt u ze handmatig invoegen door op sneltoetsen te drukken.

De huidige datum invoegen: Control + :

De huidige tijd invoegen: Shift + Control + :

Zie screenshot:

Tips:

1. U kunt de uitgangen als de datum formaten of tijd formaten als je nodig hebt in Format Cells dialoogvenster.

2. Als u Kutools voor Excel, kunt u invoegen de huidige datum of andere data in een opgegeven datum formaat als je nodig hebt met de Insert Date functie. Klik om gratis te downloaden

Als u een datum of tijdstempel wilt invoegen die automatisch kan worden bijgewerkt, kunt u de onderstaande formules gebruiken.

Voeg de huidige datum in

=TODAY()

Druk op Enter, en de huidige datum wordt in de cel ingevoegd.

Invoegen huidige tijd：

=NOW()

Druk op Enter, en de huidige datum en tijd worden in de cel ingevoegd.

Tips:

1. U kunt de uitgangen opmaken in de datum- of tijdnotaties die u nodig hebt in het dialoogvenster Cellen opmaken. Bijvoorbeeld, u wilt alleen de huidige tijd weergeven, formatteer de cel als Tijd na het gebruik van de =NOW() formule

2. Als u de huidige datum en tijd in de kop- of voettekst van het werkblad wilt invoegen, kunt u de functie Werkboekinformatie invoegen van Kutools for Excel gebruiken om deze taak snel uit te voeren. Klik om gratis te downloaden

Voorstellend, er zijn twee kolommen, Kolom A en Kolom B, nu wilt u de huidige tijdstempel invoegen in Kolom B terwijl u gegevens invoert in Kolom A, hoe kunt u dat doen?

Automatisch tijdstempel invoegen tijdens het invoeren van gegevens

1. Ten eerste, klik op Bestand > Opties om het Excel Opties venster te openen, kies Formules in het linkerdeelvenster, vink vervolgens Automatisch invoegen berekening aan in Berekeningsopties groep. En klik op OK.

2. Typ in kolom B, bijvoorbeeld cel B1, deze formule

=IF(A1<>””,IF(B1<>”,B1,NU()),””)

dan sleep je de autovulhandgreep naar beneden naar de cellen.

3. Formatteer vervolgens de formulecellen in de gewenste datetime opmaak in het dialoogvenster Cellen opmaken: houd de formulecellen geselecteerd, klik met de rechter muisknop om het contextmenu weer te geven, kies Cellen opmaken, dan verschijnt het dialoogvenster Cellen opmaken, in de Aangepaste sectie onder het tabblad Getal, typ de opmaak die u nodig hebt in het tekstvak Type, en klik op OK.

Als u nu gegevens invoert in kolom A, wordt de huidige datetime ingevoegd in kolom B.

Auto tijdstempel invoegen en bijwerken terwijl cel in andere kolom wijzigt

Als u automatisch een tijdstempel wilt invoegen terwijl de cel wordt ingevoerd, en op hetzelfde moment, als de ingang verandert, de ingevoegde tijdstempel zal worden bijgewerkt, kunt u gebruik maken van onderstaande formule:

=IF(A1<>””,IF(AND(B1<>””,CELL(“adres”)=ADDRESS(ROW(A1),COLUMN(A1))),NU(),IF(CELL(“adres”)<>ADDRESS(ROW(A1),COLUMN(A1)),B1,NU()),””)

A1 is de cel waarin u gegevens gaat invoeren, B1 is de cel van de formule waarin u het tijdstempel wilt invoegen.

Sleep de vulgreep voor de cellen die u gebruikt naar beneden.

Dan formatteer de formule cellen als de datetime format zoals je nodig hebt in het Format Cells dialoogvenster: houd de formule cellen geselecteerd, rechts klik om het context menu weer te geven, kies Format Cells, dan verschijnt het Format Cells dialoogvenster, in de Custom sectie onder de Number tab, type de format die je nodig hebt in het Type tekstvak, klik OK.

Als u bekend bent met VBA code, kunt u het volgende doen:

1. Klik met de rechtermuisknop op het tabblad van het werkblad dat u gebruikt en kies Code weergeven in het contextmenu.

2. Plak vervolgens in het venster Microsoft Visual Basic for Applications onderstaande code.

VBA: Automatisch tijdstempel invoegen

Private Sub Worksheet_Change(ByVal Target As Range)'UpdatebyKutools20190919Dim xRInt As IntegerDim xDStr As StringDim xFStr As StringOn Error Resume NextxDStr = "A" 'Data ColumnxFStr = "B" 'Timstamp ColumnIf (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 IfEnd Sub

3. Sla deze code vervolgens op. Als u nu gegevens invoert of wijzigt in kolom A, wordt de nieuwe tijdstempel ingevoegd in kolom B.

Note: u kunt de kolommen A en B en de tijdnotatie mm/dd/jjjj hh:mm:ss in de VBA-code aanpassen aan uw werkelijke behoefte.

Als u de gedefinieerde functie wilt gebruiken, kunt u dat als volgt doen:

1. Houd de toetsen Alt + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen. En klik op Insert > Module om een lege module in te voegen.

2. Plak onderstaande code in de nieuwe module. Sla de code vervolgens op en ga terug naar het werkblad.

Function FormatDate(xRg As Range)'UpdatebyKutools20190919On Error GoTo Err_01If xRg.Value <> "" Then FormatDate = Format(Now, "mm/dd/yyyy hh:mm:ss")Else FormatDate = ""End IfExit FunctionErr_01: FormatDate = "Error"End Function

3. In de cel waar het tijdstempel wordt ingevoegd, typt u deze formule

=FormatDate(F1)

F1 is de cel waarin u gegevens gaat invoeren of gegevens gaat wijzigen. Sleep vervolgens het handvat voor automatisch vullen omlaag naar de cellen.

Nu wordt de huidige datetime ingevoegd als de cel F1 gegevens invoert of wijzigt.