[ExcelVBA]マクロで今日の日付を入れる / Date

マクロで今日の日付を入れるサンプルコード

以下は日付に関するパターンのサンプルコードです。

今日の日付をメッセージボックスに表示

以下の内容をコードに入力し、実行してみます。

Sub 今日の日付を表示()
    MsgBox Date
End Sub

実行するとメッセージボックスに今日の日付が表示されます。

今日の日付をセルに入力

Sub 今日の日付をセルに入力()
    Range("A1").Value = Date
End Sub

実行するとセルA1に今日の日付を入力できます。

日付の表示形式に関するサンプルコード

日付をさまざまな形式で表示する

Sub 日付をいろいろな形式で表示()

  MsgBox Format(Date, "yy/mm/dd") & vbCrLf & _
         Format(Date, "m/d") & vbCrLf & _
         Format(Date, "mm/dd") & vbCrLf & _
         Format(Date, "aaaa") & vbCrLf & _
         Format(Date, "dddddd")

End Sub

実行すると今日の日付が様々な表示形式でメッセージボックスに表示されます。

表示形式	実際の表示例
yy/mm/dd	19/01/01
mm/dd	01/01
m/d	1/1
aaaa	火曜日
dddd	Tuesday

 

「vbCrLf」を間に入れることで、メッセージボックス内で改行することができます。

「_」はソースコード内での改行です。
長い命令文を見やすく改行する時は、「_」を入れることで改行することができます。
（Enterキーで改行すると、エラーが出てしまいます）