教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA 関数】Hour関数・Minute関数・Second関数を使用し現在の時刻から時・分・秒を取り出す方法を教えて!

f:id:m_kbou:20200420123003p:plain

現在の時刻から時・分・秒を取り出す方法について説明します。各々の内容を取り出すには、Hour関数・Minute関数・Second関数を使用します。

 

 

構文

記述方法は以下の通りとなります。

(1)Hour関数の記述方法

Hour(Time)

[説明]:

時刻から時間を取り出すにはHour関数を使用します。Hour関数の後に現在の時刻であるTime関数を記述し「()」(カッコ)で閉じる事で、現在の時刻から時間を取り出すとの意味になります。内容を纏めると「現在の時刻から時間を取り出して下さい。」との意味になります。

(2)Minute関数の記述方法

Minute(Time)

[説明]:

時刻から分を取り出すにはMinute関数を使用します。Minute関数の後に現在の時刻であるTime関数を記述し「()」(カッコ)で閉じる事で、現在の時刻から分を取り出すとの意味になります。内容を纏めると「現在の時刻から分を取り出して下さい。」との意味になります。

(3)Second関数の記述方法

Second(Time)

[説明]:

時刻から秒を取り出すにはSecond関数を使用します。Second関数の後に現在の時刻であるTime関数を記述し「()」(カッコ)で閉じる事で、現在の時刻から秒を取り出すとの意味になります。内容を纏めると「現在の時刻から秒を取り出して下さい。」との意味になります。

 

使い方

使い方について具体的に説明します。

Hour関数の使い方

Hour関数の使い方について説明します。

[プログラミング例]:

Sub サンプル()
  MsgBox "現在の時刻は、" & Time & "です。" & Chr(13) & "現在の時間は、" & Hour(Time) & "時です。"
End Sub

内容は、「現在の時刻と現在の時刻から取り出した時間をMsgBoxで表示して下さい。」との意味になります。

f:id:m_kbou:20210423085253p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。 

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この<実行>ボタンをクリックします。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210423085307p:plain

②結果は以下の様に表示されます。「13:36:40」が現在の時刻のため、MsgBoxで「現在の時刻は、13:36:40です。現在の時間は、13時です。」が表示されます。

f:id:m_kbou:20210423085317p:plain

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

Hour関数の使い方についての説明は以上です。

 

Minute関数の使い方

Minute関数の使い方について説明します。

[プログラミング例]:

Sub サンプル()
  MsgBox "現在の時刻は、" & Time & "です。" & Chr(13) & "現在の分は、" & Minute(Time) & "分です。"
End Sub

内容は、「現在の時刻と現在の時刻から取り出した分をMsgBoxで表示して下さい。」との意味になります。

f:id:m_kbou:20210423085501p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。 

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この<実行>ボタンをクリックします。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210423085513p:plain

②結果は以下の様に表示されます。「13:39:45」が現在の時刻のため、MsgBoxで「現在の時刻は、13:39:45です。現在の時間は、39分です。」が表示されます。

f:id:m_kbou:20210423085524p:plain

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

Minute関数の使い方についての説明は以上です。

 

Second関数の使い方

Second関数の使い方について説明します。

[プログラミング例]:

Sub サンプル()
  MsgBox "現在の時刻は、" & Time & "です。" & Chr(13) & "現在の秒は、" & Second(Time) & "秒です。"
End Sub

内容は、「現在の時刻と現在の時刻から取り出した秒をMsgBoxで表示して下さい。」との意味になります。

f:id:m_kbou:20210423085628p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。 

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この<実行>ボタンをクリックします。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210423085640p:plain

②結果は以下の様に表示されます。「13:42:47」が現在の時刻のため、MsgBoxで「現在の時刻は、13:42:47です。現在の時間は、47秒です。」が表示されます。

f:id:m_kbou:20210423085654p:plain

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

Second関数の使い方についての説明は以上です。

 

プログラミング(サンプル)

プログラミング事例を紹介します。

www.osiete-excelvba.work

www.osiete-excelvba.work

www.osiete-excelvba.work

 

おわりに

今回は時刻から時・分・秒を取り出す方法について説明しました。プログラミングをする上で日付・時刻の操作は頻繁に出てくる内容です。是非覚えておいて下さい。