Jak automaticky zaznamenat datum a čas při změně buňky?

Je pro nás snadné ručně vložit statické datum a čas nebo vložit dynamické datum měnící se systémovým časem pomocí vzorce. Pokud chcete automaticky zaznamenat datum a čas při změně nebo zadání hodnot, může být tento problém poněkud odlišný. V tomto článku však můžete tento úkol vyřešit pomocí následujících kroků.

Automatické zaznamenávání data a času při změně buňky pomocí kódu VBA

Automatické zaznamenávání data a času při změně buňky pomocí kódu VBA

Například mám řadu hodnot a teď, když změním nebo zadám nové hodnoty ve sloupci B, chci tam automaticky zaznamenat aktuální datum a čas ve sloupci C, jak ukazuje následující snímek obrazovky:

Tuto úlohu můžete dokončit pomocí následujícího kódu VBA. Udělejte prosím toto:

1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

2. Poté vyberte použitý list zleva Průzkumník projektupoklepáním otevřete soubor Modula poté zkopírujte a vložte následující kód VBA do prázdného modulu:

Kód VBA: Při změně buňky se automaticky zaznamenává datum a čas

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub

3. Poté tento kód uložte a zavřete, abyste se vrátili do listu, nyní, když změníte hodnotu buňky nebo zadáte nová data do sloupce B, datum a čas se automaticky zaznamená do sloupce C.

Poznámky:

1. Ve výše uvedeném kódu můžete upravit „B: B„Do kteréhokoli jiného sloupce, u kterého chcete změnit hodnoty buněk v tomto skriptu: Nastavit WorkRng = Intersect (Application.ActiveSheet.Range ("B: B"), Target).

2. S tím xOffsetColumn = 1 skript, můžete vložit a aktualizovat datum a čas do prvního sloupce vedle sloupce se změnou hodnoty, můžete změnit číslo 1 na jiná čísla, například 2,3,4,5… to znamená, že do data bude vloženo druhý, třetí, čtvrtý nebo pátý sloupec kromě sloupce změněných hodnot.

3. Když odstraníte hodnotu ve změněném sloupci, bude odstraněno také datum a čas.