Excel

日付と時刻の取得

投稿日:2019年9月8日 更新日:

VBAで現在の日付と時刻を取得する方法をご紹介します。

日付や時刻の取得には以下の関数が使用できます。

取得するもの 関数(引数)
日付 Date
Year(Date)
Month(Date)
Day(Date)
時刻 Time
Hour(Time)
Minute(Time)
Second(Time)
日付&時刻 Now

以下のように記述していきます。

Dim d_Date
Dim d_Year
Dim d_Month Dim d_Day
Dim t_Time
Dim t_Hour
Dim t_Minute Dim t_Second
Dim dt_Now
Sub Get_date_time()

d_Date = Date
Range(
A6) = d_Date  

d_Year = Year(Date)
Range(
B6) = d_Year d_Month = Month(Date)
Range(
C6) = d_Month 

d_Day = Day(Date)
Range(
D6) = d_Day   

t_Time = Time
Range(
E6) = t_Time 

t_Hour = Hour(Time)
Range(
F6) = t_Hour 

t_Minute = Minute(Time)
Range(
G6) = t_Minute t_Second = Second(Time)
Range(
H6) = t_Second 

dt_Now = Now
Range(
I6) = dt_Now  

End Sub

実際に表示させてみたものがこちら。

-Excel

執筆者:


comment

メールアドレスが公開されることはありません。

関連記事

リスト化をIndirectで実行する際の文字制限

セルをIndirectで動的にリスト化しようとした際、躓いたことを記事にします。 まずは、シート上を以下のように準備します。 B1をA1の内容に合わせて動的にリスト化します。例えば、A1に北海道と入力 …

Enum(列挙型)の使い方

今回はEnumの使い方について解説します。(参考元:moug) Excelではいくつかの色にインデックス番号が割り振られており、ColorIndexプロパティに対応した数値を当てはめると、今回ではA1 …

CSVファイルを取り込んで並び替える

VBAでCSVファイルを取り込んで並び替える処理を記事にします。 CSVファイルとマクロ有効ファイルを一つずつ準備します。 in00.csvの中身は以下の内容で準備します。 [ボタンシート]にマクロを …

ファイルを移動させる[Name … As …]

今回はVBAでファイルを移動させる方法について記事にします。 まずはソースコードを準備します。 Sub ファイル移動() before_file_path = ThisWorkbook.Workshe …

Excelのリスト化でファイルが壊れる件

訳あってVBAでセルをリスト化する機会があり、今回はその時躓いたことを記事にしました。 [目次] 1.起こったバグ2.原因3.対処法 1.起こったバグ セルをリスト化するものとして、今回は以下のソース …