Jak wstawić aktualny znacznik czasu, gdy dane w innej komórce ulegną zmianie w programie Excel?
Przypuśćmy, że otrzymasz arkusz roboczy, w którym musisz zmodyfikować dane w określonej kolumnie. Po zmodyfikowaniu arkusza roboczego musisz wstawić zmodyfikowaną sygnaturę czasową, aby inni wiedzieli, które komórki zostały zmienione. Jak sobie z tym poradzić? W tym artykule pokażemy metodę wstawiania aktualnego znacznika czasu, gdy dane w innej komórce zmieniają się w programie Excel, jak pokazano poniżej.
Wstaw aktualną sygnaturę czasową, gdy dane w innej komórce zmieniają się wraz z kodem VBA
Wstaw aktualną sygnaturę czasową, gdy dane w innej komórce zmieniają się wraz z kodem VBA
Jak pokazano na poniższym zrzucie ekranu, musisz wypełnić znacznik czasu w kolumnie E, jeśli odpowiednie komórki w kolumnie C zostaną zmienione. Wykonaj następujące czynności.
1. W arkuszu, który chcesz zmodyfikować i oznaczyć datownikiem, kliknij prawym przyciskiem myszy kartę arkusza, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.
2. Następnie skopiuj i wklej poniższy kod VBA do pliku Code okno Microsoft Visual Basic for Applications okno. Zobacz zrzut ekranu:
Kod VBA: wstaw aktualną sygnaturę czasową, gdy dane w innej komórce ulegną zmianie
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
Note: W kodzie cyfra 3 oznacza, że zamierzasz zmodyfikować dane w kolumnie C, a 5 oznacza, że znacznik czasu zostanie umieszczony w kolumnie E. Zmień je w zależności od potrzeb.
3. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.
Odtąd, podczas zmiany danych w kolumnie C, znacznik czasu zostanie umieszczony w odpowiednich komórkach w kolumnie E, jak pokazano poniżej.
Wskazówka. Selektor dat, Wstaw datę użyteczność Kutools dla programu Excel pomaga szybko wstawić datę z określonym formatem daty do wybranej komórki.
Pobierz i wypróbuj teraz! (30-dniowy bezpłatny szlak)
Powiązane artykuły:
- Jak wstawić lub wyświetlić ostatni zapisany znacznik czasu w arkuszu kalkulacyjnym w programie Excel?
- Jak wstawić znacznik czasu do określonej komórki, gdy makro jest uruchamiane w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!