教えて!ExcelVBA!

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

【ExcelVBA プログラミング】(関数11)Now関数のプログラミング例を教えて!

       f:id:m_kbou:20200529092145p:plain

Now関数を使用したプログラミング例を紹介します。

 

【目次】

 

例題

例題は、Now関数を使用して時刻が0時台~9時台であれば「おはようございます、〇さん。」を、時刻が10時台~16時台であれば「こんにちわ、さん。」を、時刻が17時~23時台であれば「こんばんわ、さん。」をA2セルに表示するプログラミング方法です。

[実行前]:

f:id:m_kbou:20200529092221p:plain

[実行後]:

f:id:m_kbou:20200529092248p:plain

f:id:m_kbou:20200529092301p:plain

f:id:m_kbou:20200529092319p:plain

 

プログラミング

プログラミングは以下の通りとなります。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。また、ボタンにプログラム内容を割り当てるには、VBAをボタンに割り当てるを参考にして下さい。

-------------------------------------------------

Sub サンプル()
   
    Select Case Format(Now, "h")
        Case Is < 10
            Range("A2") = "おはようございます、○○さん。"
        Case Is < 17
            Range("A2") = "こんにちわ、○○さん。"
        Case Else
            Range("A2") = "こんばんわ、○○さん。"
    End Select
   
End Sub

-------------------------------------------------

内容を説明すると、

Format関数を使用してNow関数より時刻を抽出します。抽出した時刻が10未満(0時台~9時台)であれば”おはようございます、○○さん。”を、17未満(10時台~16時台)であれば”こんにちわ、○○さん。”を、それ以外(17時台~23時台)であれば”こんばんわ、○○さん。”をA2セル表示して下さい。」

との意味になります。

 

ダンロード

上記サンプルプログラムを使用したい場合は、こちらからダウンロードして下さい。

1drv.ms