【エクセルVBA】VBAでカレンダーを作るときに最も重要な関数【CDate関数】

2019年8月2日
2019年9月13日
カレンダーアプリ
CDate, VBA, カレンダー

カレンダーアプリ

みなさん、こんにちはケンケンです。

今回からVBAを使ってカレンダーを作成していきます。

前回までは、主に関数を使ってきましたが、VBAを使うことによってより高度で使いやすいカレンダーを作れればと思っています。

数回に渡ってご紹介していきますので、お付き合い下さい。

VBAを基礎から学びたい方は以下の記事を参考にしてください。

【エクセルVBA入門編①】VBAで何ができるのだろうか？

【エクセルVBA入門編②】めんどうな仕事はForNext構文で解決

【エクセルVBA入門編③】繰り返し作業はFor Next構文で完全自動化！

【エクセルVBA入門編④】自動記録を使ってみよう

【エクセルVBA入門編⑤】If Then構文で条件分岐をマスター

【エクセルVBA入門編⑥】手順に沿って請求書を作成してみよう【請求書作成自動化】

【エクセルVBA番外編】実務で使えるテクニック紹介します

1 VBAでカレンダーを作る基礎
2 まとめ

VBAでカレンダーを作る基礎

前回までは主に関数を使ってカレンダーを作りました。

結果的に下図のようなものが完成しました。

カレンダー上部の年と月を入力すると

該当月の日付と曜日が表示される
主な行事をあらかじめ作成済みのリストから転記される
土日は色分けされる

というものでした。

CDate関数を使ってみる

今回から、上記のようなカレンダーをVBAで作って行きます。

そのための一歩として、CDate関数から紹介します。

最もシンプルな方法

CDate（date）

引数に入力した数値や文字列を日付型（date）に変換してくれます。

Sub hiduke_rensyu0()
    Range("A1").Value = CDate("2020/7/1")
    Range("B1").Value = CDate("2020/7/31")
End Sub

Sub hiduke_rensyu0()

Range("A1").Value = CDate("2020/7/1")

Range("B1").Value = CDate("2020/7/31")

End Sub

試しに上記のようなコードを標準モジュールに書いて実行してみましょう。

日付が表示されましたね。もちろん表示形式を標準に変更すれば、シリアル値が表示されます。

セルの値を代入する方法

今度は引数にセルの値を代入してみます。

下図のようにC2セルに年をD2セルに月を入力した状態で、その情報をCDate関数に代入し日付情報を書き出します。

Sub hiduke_rensyu0()
    Range("A1").Value = CDate(Range("C2") & "/" & Range("D2") & "/" & "1")
    Range("B1").Value = CDate(Range("C2") & "/" & Range("D2") & "/" & "31")
End Sub

Sub hiduke_rensyu0()

Range("A1").Value = CDate(Range("C2") & "/" & Range("D2") & "/" & "1")

Range("B1").Value = CDate(Range("C2") & "/" & Range("D2") & "/" & "31")

End Sub

上記のようにコードを修正して実行すると、先ほどと同じように表示できます。

年と月を指定するだけで月末日を算出する方法

先ほどまでの方法だと年月日のうち「月末日」は直接指定してましたね。

当然このままではカレンダーを作るのに問題がでてきちゃいます。

そこで、何月でも月末日がすぐ算出できるように工夫します。

手順は

指定された月の翌月の1日を算出する
１で算出された結果からマイナス１する

とすることで結果的に指定された月の月末日を算出することが出来ます。

これを具体的にコードにしたのが以下です。

Sub hiduke_rensyu0()
    Dim sday '最初の日という意味
    Dim ntuki '次の月を格納
    Dim stuki '翌月の最初の日を格納
    Dim lday '最後の日という意味
    
    ntuki = Range("D2").Value + 1'①
    If ntuki = 13 Then'②
        ntuki = 1'③
        sday = CDate(Range("C2") & "/" & Range("D2") & "/" & "1")
        stuki = CDate(Range("C2") + 1 & "/" & ntuki & "/" & "1")'④
        lday = stuki - 1'⑤

    Else
        sday = CDate(Range("C2") & "/" & Range("D2") & "/" & "1")
        stuki = CDate(Range("C2") & "/" & ntuki & "/" & "1")
        lday = stuki - 1
        
    End If
    
    Range("A1").Value = sday
    Range("B1").Value = lday
End Sub