Jak vložit aktuální časové razítko, když se data v jiné buňce změní v aplikaci Excel?

Předpokládejme, že obdržíte list, který vyžaduje úpravu dat v určitém sloupci. A po úpravě listu musíte vložit upravené časové razítko, aby ostatní věděli, které buňky byly změněny. Jak se s tím vypořádat? Tento článek vám ukáže způsob vložení aktuálního časového razítka, když se data v jiné buňce změní v aplikaci Excel, jak je uvedeno níže.

Vložit aktuální časové razítko, když se data v jiné buňce změní pomocí kódu VBA

Vložit aktuální časové razítko, když se data v jiné buňce změní pomocí kódu VBA

Jak je ukázáno na následujícím snímku obrazovky, musíte vyplnit časové razítko ve sloupci E, pokud se změní odpovídající buňky ve sloupci C. Postupujte prosím následovně.

1. V listu musíte upravit a označit časovým razítkem, klikněte pravým tlačítkem na kartu listu a poté klikněte Zobrazit kód z nabídky pravého tlačítka myši.

2. Poté zkopírujte a vložte níže uvedený kód VBA do Kód okno Microsoft Visual Basic pro aplikace okno. Viz snímek obrazovky:

Kód VBA: Vložte aktuální časové razítko, když se změní data v jiné buňce

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
    If xCol = xCellColumn Then
       Cells(xRow, xTimeColumn) = Now()
    Else
        On Error Resume Next
        Set xDPRg = Target.Dependents
        For Each xRg In xDPRg
            If xRg.Column = xCellColumn Then
                Cells(xRg.Row, xTimeColumn) = Now()
            End If
        Next
    End If
End If
End Sub

Pozor: V kódu číslo 3 znamená, že budete upravovat data ve sloupci C a 5 označuje, že se časové razítko vyplní do sloupce E. Změňte je prosím podle svých potřeb.

3. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

Od této chvíle se při změně dat ve sloupci C časové razítko naplní do odpovídajících buněk ve sloupci E, jak je uvedeno níže.

Související články:

• Jak vložit nebo zobrazit poslední uložené časové razítko na listu v aplikaci Excel?
• Jak vložit časové razítko do konkrétní buňky, když je makro spuštěno v aplikaci Excel?