Jak wstawić automatyczne dzienniki zdarzeń przy użyciu sygnatury czasowej Excel VBA

Znaczniki czasu są doskonałym źródłem informacji o czasie wystąpienia zdarzenia. Program Microsoft Excel umożliwia dodawanie znaczników czasu w formacie dd: mm: rrrr hh: mm: ss. W większości przypadków musisz użyć skrótów klawiaturowych lub wykonać funkcje programu Excel, aby dodać znaczniki czasu, co jest zadaniem ręcznym i podatnym na błędy.

Edytor kodu Excel Visual Basic przychodzi z pomocą, umożliwiając zautomatyzowanie całego zadania za pomocą skryptów znaczników czasu VBA. Możesz także dodać złożone warunki, aby jeszcze bardziej zautomatyzować zadanie bez polegania na operatorze wprowadzania danych lub współpracowniku. Czytaj dalej, aby poznać kilka prostych sztuczek, jak używać języka VBA do dodawania znaczników czasu w programie Excel.

1. Jak dodać znacznik czasu VBA: makro QAT

Poniższy kod VBA umożliwia uruchamianie funkcji dziennika zdarzeń w dowolnym momencie za pomocą jednego kliknięcia z paska narzędzi szybkiego dostępu programu Excel lub QAT. Jest to podobne do uruchamiania makra programu Excel VBA , dlatego po zastosowaniu kodu VBA należy zapisać istniejący arkusz roboczy przy użyciu rozszerzenia pliku obsługującego makra :

• Kliknij prawym przyciskiem myszy kartę arkusza i kliknij Wyświetl kod z menu kontekstowego.
• Skopiuj i wklej ten kod VBA do edytora kodu, a następnie kliknij Zapisz .

Sub vba_timeStamp() Dim ts as Date With Selection .Value = Date + Time End With End Sub

• Zapisz skoroszyt jako plik z obsługą makr.
• Teraz kliknij kartę Plik i wybierz Opcje z menu Plik.
• Kliknij pasek narzędzi szybkiego dostępu (QAT), a następnie przewiń listę, aby znaleźć Wyświetl makra .
• Dodaj makra widoku do QAT i zamknij menu Opcje , klikając Ok .
• Teraz uruchom makro z QAT, gdy musisz dodać znacznik czasu, wykonując kod VBA.

Aby w pełni zautomatyzować zadanie tworzenia znacznika czasu, możesz użyć poniższych skryptów VBA.

2. Jak dodać znacznik czasu VBA: kiedy zmienia się arkusz roboczy

Poniższy kod VBA doda znacznik czasu w komórkach kolumny B , gdy wykryje zmiany w odpowiednich komórkach kolumny A :

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Value <> "" Then Application.EnableEvents = False Target.Offset(0, 1) = Format(Now(), "dd-mm-rrrr hh:mm:ss") Application.EnableEvents = True End If End Sub

Wykonaj kroki wymienione w pierwszej metodzie, aby otworzyć edytor kodu VBA. Teraz kliknij dwukrotnie Sheet1(Sheet1) w menu VBAProject (Book1), aby aktywować śledzenie zmian w arkuszu.

Edytor kodu powinien wyświetlać Worksheet w menu rozwijanym po lewej stronie i SelectionChange w menu rozwijanym po prawej stronie. Możesz teraz skopiować i wkleić powyższy kod VBA. Po zakończeniu nie zapomnij zapisać pliku jako skoroszytu programu Excel z obsługą makr.

Za każdym razem, gdy uruchomisz to makro, Excel automatycznie doda znacznik czasu w kolumnie B , jeśli napiszesz coś w kolumnie A. Możesz także dodać makro do QAT, wykonując kroki wymienione w poprzedniej metodzie dodawania skryptu VBA.

Ostatnie słowa

Teraz, gdy wiesz, jak korzystać z edytora kodu Excel VBA z wyżej wymienionymi kodami znaczników czasu VBA, możesz zacząć modyfikować skoroszyt programu Excel, aby automatycznie wstawiać znaczniki czasu, kiedy chcesz.

Jednak wszelkie zmiany wprowadzone w arkuszu programu Excel przez wykonanie kodu VBA nie znikną po naciśnięciu skrótu klawiszowego Cofnij. Dlatego wykonaj kopie zapasowe przed zastosowaniem tych prostych skryptów VBA. Excel VBA może również wykonywać inne fajne funkcje, na przykład możesz użyć VBA do wstawiania wierszy w Microsoft Excel.