Vba を使用してタイムスタンプを挿入する方法 (例付き)

VBA で次の基本構文を使用すると、Excel の特定のセルにタイムスタンプを挿入できます。

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

この特定のマクロは、現在時刻をmm/dd/yyyy hh:mm:ss形式でセルA1に挿入します。

注: VBA のNow関数は、コンピュータのシステム日付と時刻に基づいて現在の日付と時刻を返します。

次の例は、この構文を実際に使用する方法を示しています。

例: VBA を使用してタイムスタンプを挿入する方法

Excel の現在のシートのセルA1に現在の日付と時刻をタイムスタンプとして挿入する次のマクロを作成するとします。

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

このマクロを実行すると、次の出力が表示されます。

セルA1には、このマクロが実行された現在の日付と時刻が表示されます。

この特定の例では、日時の形式はmm/dd/yyyy hh:mm:ssです。

使用する別の形式を指定することもできることに注意してください。

たとえば、次のマクロを作成して、セルB1に現在時刻を dd-mm-yyyy hh:mm:ss 形式で表示できます。

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
Range("B1").Value = Format(Now, "dd-mm-yyyy hh:mm:ss")

End Sub

このマクロを実行すると、次の出力が表示されます。

セルA1とセル B1の両方に、現在の日付と時刻が異なる形式で表示されるようになりました。

注: VBA のFormat関数の完全なドキュメントは、 ここで見つけることができます。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA で日付を比較する方法
VBA で時間をフォーマットする方法
VBAで時差を計算する方法