Excel VBA タイムスタンプを使用して自動イベントログを挿入する方法

タイムスタンプは、イベントがいつ発生したかを特定するための優れたリソースです。Microsoft Excel では、タイムスタンプを dd: mm: yyyy hh: mm: ss 形式で追加するオプションが提供されます。タイムスタンプを追加するには、ほとんどの場合、キーボードショートカットを使用するか、Excel 関数を実行する必要がありますが、これは手作業であり、エラーが発生しやすい作業です。

Excel Visual Basic コードエディターを使用すると、VBA タイムスタンプスクリプトを使用してタスク全体を自動化できます。複雑な条件を追加して、データ入力オペレーターや共同作業者に頼らずにタスクをさらに自動化することもできます。VBA を使用して Excel にタイムスタンプを追加するためのいくつかの簡単なトリックを学習してください。

1. VBAタイムスタンプの追加方法：QATマクロ

次の VBA コードを使用すると、Excel クイックアクセスツールバーまたは QAT から 1 回クリックするだけで、いつでもイベントログ関数を実行できます。これはExcel VBAマクロの実行に似ているため、 VBA コードを適用した後、マクロが有効なファイル拡張子を使用して既存のワークシートを保存する必要があります。

ワークシートタブを右クリックし、コンテキストメニューから[コードの表示]をクリックします。
この VBA コードをコピーしてコードエディターに貼り付け、[保存]をクリックします。

Sub vba_timeStamp() Dim ts As Date With Selection.Value = 日付 + 時刻 End With End Sub

ワークブックをマクロが有効なファイルとして保存します。
ここで、「ファイル」タブをクリックし、「ファイル」メニューから「オプション」を選択します。
[クイックアクセスツールバー(QAT)]をクリックし、リストをスクロールして[マクロの表示]を見つけます。
ビューマクロをQAT に追加し、[OK]をクリックして[オプション]メニューを閉じます。
ここで、VBA コードを実行してタイムスタンプを追加する必要がある場合は、QAT からマクロを実行します。

タイムスタンプ作成タスクを完全に自動化するには、以下の VBA スクリプトを使用できます。

2. VBA タイムスタンプを追加する方法: ワークシートが変更されたとき

次の VBA コードは、列Aの対応するセルの変更を検出したときに、列Bのセルにタイムスタンプを追加します。

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-yyyy hh:mm:ss") Application.EnableEvents = True End If End Sub

最初の方法で説明した手順に従って、VBA コードエディターを開きます。ここで、VBAProject (Book1) メニューの下の Sheet1(Sheet1) をダブルクリックして、ワークシートの変更の追跡をアクティブにします。

コードエディターの左側のドロップダウンに[ワークシート]が表示され、右側のドロップダウンに [ SelectionChange] が表示されます。上記の VBA コードをコピーして貼り付けることができます。完了したら、忘れずにファイルをマクロ有効の Excel ブックとして保存してください。

このマクロを実行すると、列Aに何かを書き込むと、 Excel によって列Bにタイムスタンプが自動的に追加されます。VBA スクリプトを追加するための前の方法で説明した手順に従って、マクロを QAT に追加することもできます。

最後の言葉

前述の VBA タイムスタンプコードを使用して Excel VBA コードエディターを使用する方法がわかったので、必要なときにタイムスタンプを自動的に挿入するように Excel ワークブックの変更を開始できます。

ただし、VBA コードを実行して Excel ワークシートに加えた変更は、[元に戻す] ホットキーを押しても消去されません。したがって、これらの単純な VBA スクリプトを適用する前に、バックアップコピーを作成してください。Excel VBA は、他の便利な機能も実行できます。たとえば、VBA を使用して Microsoft Excel に行を挿入できます。