【Excel VBA】本日日付を取得する方法！yyyymmdd形式指定も！

VBAで本日日付を取得したいときはないでしょうか。

けど、そんな中で悩むことは、

・VBAで本日日付を取得したいが方法がよくわからない
・VBAで本日日付を取得し表示形式を変更したいが方法がよくわからない

ですよね。

今回はそんなお悩みを解決する

・VBAで本日日付を取得する方法
・VBAで本日日付を取得しyyyymmdd形式にする方法

についてまとめます！

VBAで本日日付を取得する関数一覧

VBAで本日日付を取得する関数一覧は以下の通りです。

関数名	機能	書式
Now	現在の日付と時刻を指定するバリアント型 (Date) の値を返します。	Now()
Date	現在のシステム日付を指定するバリアント型 (Date) の値を返します。	Date()

次にそれぞれの関数の結果についてみてみましょう。

Now関数でで本日日付を取得する

VBAコード

サンプルのVBAコードは以下の通りです。

Sub 今の日時を出力する()
    Range("B1").Value = Now()  '今の日時をセルへ出力します。
    Range("B2").Value = Format(Now(), "yyyymmdd")  '今の日時をyyyymmdd形式に変えてセルへ出力します。
    Range("B3").Value = Format(Now(), "yyyy年mm月dd日")  '今の日時をyyyy年mm月dd日形式に変えてセルへ出力します。
    Range("B4").Value = CDate(Now())  '今の日時をシリアル値に変えてセルへ出力します。
End Sub

VBAの実装

VBAの実装方法については
VBAの実装手順
をご参照ください。

VBAを実行する

VBAを実行してみましょう。

今の日時がそれぞれの形式で出力されましたね。

VBAの説明

VBAについて説明をします。

今日の日時を抽出する

Now関数で日時を取得し、セルへ出力します。
表示形式はデフォルトのものとなります。

Range("B1").Value = Now()

今の日時をyyyymmdd形式にする

今の日時をyyyymmdd形式に変えてセルへ出力します。

Range("B2").Value = Format(Now(), "yyyymmdd")

今の日時をyyyy年mm月dd日形式にする

今の日時をyyyy年mm月dd日形式に変えてセルへ出力します。

Range("B3").Value = Format(Now(), "yyyy年mm月dd日")

今の日時をシリアル値に変換する

今の日時をシリアル値に変えてセルへ出力します。

Range("B4").Value = CDate(Now())

タカヒロ

Now関数で出力した場合はデータ形式はバリアント型となります。このままでは計算ができませんので、Cdate関数を使いシリアル値へ変換します。

Date関数でで本日日付を取得する

VBAコード

サンプルのVBAコードは以下の通りです。

Sub 今の日時を出力する2()
    Range("B1").Value = Date    '今の日にちをセルへ出力します。
    Range("B2").Value = Format(Date, "yyyymmdd")    '今の日にちをyyyymmdd形式に変えてセルへ出力します。
    Range("B3").Value = Format(Date, "yyyy年mm月dd日")    '今の日にちをyyyy年mm月dd日形式に変えてセルへ出力します。
    Range("B4").Value = CDate(Date)    '今の日にちをシリアル値に変えてセルへ出力します。
End Sub