以前，VBAのフォームで日付入力を簡単に行わせる方法を調べていたところ，Accessのカレンダーコントロールを用いる方法などが見つかりました。簡単にできて見栄えもいいので，これを使って作ったアプリケーションを配布したところ，Accessのライセンスを持ってないPCを使っている方からエラーが出ると言われました。
当たり前といえばそうなのですが，それを無理やりできるようにするのはライセンス違反のようなので，この方法と比べるとちょっと不便かもしれませんが，簡単な日付入力を標準コントロールのみ組み合わせて作って対応したので紹介します。
UserFormを追加
まず，VBEでUserFormを追加し，ツールボックスからコンボボックスを3つ配置します。必要に応じて説明用のラベルを入れます。（下の例では「日付」と区切りのスラッシュを入れています。）
コンボボックスの名前は，それぞれ，cmb年，cmb月，cmb日などとし，リスト選択だけで任意の入力ができないように，Styleプロパティを2-fmStyleDropDownListにします。
続いて，このフォームのコードを書いていきます。まず，フォームの空いているところをダブルクリックすると，それに応じたコードウィンドウが開きます。すなわちUserFormオブジェクトのデフォルトのイベントClickのコードが表示されますが，それは消して良いので，Initializedイベントを選択します。
これは，このフォームが呼び出された時に，実行されるイベントで，主にフォームの初期化などに用います。この場合は，コンボボックスのドロップダウンリストの選択肢を準備します。
UserForm_Initializeのコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
Private Sub UserForm_Initialize() Dim i As Long 'コンボボックスのドロップダウンリストの準備 '年：例えば1900年～現在年まで選べるようにする。 For i = 1900 To Year(Now()) cmb年.AddItem i Next i 'デフォルト値は現在年とする。 cmb年.ListIndex = Year(Now()) - 1900 '月：1～12 For i = 1 To 12 cmb月.AddItem i Next i 'デフォルト値は現在月とする。 cmb月.ListIndex = Month(Now()) - 1 'ここでもcmb月_Changeイベントが発生するので， 'そのイベント内でcmb日は年月によって準備されている。 'デフォルト値は現在日とする。 cmb日.ListIndex = Day(Now()) - 1 End Sub |
〔8,15行目〕
ループ条件にしたがって，年・月のドロップダウンリストを準備しています。
〔11,19行目〕
リストボックスの選択状態を現在の年月に設定します。ListIndexは0から始まるので，1900年から現在年までのリストとした場合，現在年yは，y-1900番目となります。同様に現在月mはm-1番となります。
そして，このコード中ではまだ日付のドロップダウンリストの準備はしません。なぜなら，選んだ年月によって，月末日が変わりますし，うるう年の考慮も必要となります。そこで，年・月を選んだ（変更した）時に日数の範囲を決定するようにします。
なお，19行目でcmb月.ListIndexを変更することにより，Changeイベントが発生し，下記に示すコードが実行されますので，結局フォームの初期化時（UserForm_Initialze）に日のドロップダウンリストも準備されます。
VBEのフォームで月のコンボボックスをダブルクリックすると，cmb月オブジェクトChangeイベントのコードウィンドウが表示されるので，そこに次のように書きます。
cmb月_Changeのコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
Private Sub cmb月_Change() Dim 年 As Integer Dim 月 As Integer Dim 日 As Integer Dim 月末日 As Integer Dim i As Integer 年 = cmb年.Value '選択されている年 月 = cmb月.Value '選択されている（変更された）月 日 = cmb日.ListIndex + 1 '選択されている日 Select Case 月 '選ばれた月によって日数を決定する Case 1, 3, 5, 7, 8, 10, 12: 月末日 = 31 '大の月 Case 4, 6, 9, 11: 月末日 = 30 '小の月 Case 2 '2月のうるう年判定 If 年 Mod 400 = 0 Then '西暦が400で割り切れる年はうるう年である。 月末日 = 29 ElseIf 年 Mod 100 = 0 Then '西暦が400で割り切れない場合、 月末日 = 28 '100で割り切れる年はうるう年ではない。 ElseIf 年 Mod 4 = 0 Then '西暦が100で割り切れない場合、 月末日 = 29 '4で割り切れる年はうるう年である。 Else 月末日 = 28 '西暦が4で割り切れない場合、うるう年ではない。 End If End Select With cmb日 '日のコンボボックスの処理 .Clear 'いったんクリアする For i = 1 To 月末日 '変更した月末までのリストを作る .AddItem i Next i If 日 > 月末日 Then '前に選択していた日が変更した月末日を超える場合 .ListIndex = 月末日 - 1 '変更した月末に変更する Else .ListIndex = 日 - 1 '前に選択していた日に戻す End If End With End Sub |
〔9~11行目〕
処理のため現在の年・月・日を取得します。ここで，日だけValueでなくListIndexを使うのは，最初にUserForm_Initializeで呼ばれたときには，まだ日のリストボックスが準備されていない（Itemがない）状態なので，Valueはエラーとなりますが，ListIndexは何も選択していない状態の場合，-1を返すのでエラーが発生しません。
次に月によって月末日を判定します。
〔13~16行目〕
Select文で大の月，小の月，2月に処理を分岐します。
〔17~25行目〕
コード中の説明（緑色の字）の通り，うるう年の判定を行なっています。
〔29行目〕
月を変更したため月末日が変わっている可能性があるので，いったん日のドロップダウンリストをクリアします。
〔31行目〕
変更した月の月末日までのドロップダウンリストを作成し直します。
〔34~38行目〕
日の選択状態を元に戻す必要がありますが，月末日のチェックを行います。例えば，3月31日の状態から4月を選択すると，4月31日にならないよう，末日の4月30日に変更しなければなりません。したがって，元の日付と変更した月の月末を比べて，超えていたら月末日に，超えていなければ元の日にします。
なお，上記は年を変更した場合も起こる可能性があります。2月を選択している状態で，年を変更すると，うるう年で月末日が変わる可能性があります。例えば，2012年2月29日を選択している状態で，2013年に変更した場合，ドロップダウンリストを28日までに変更して，表示も2013年2月28日にする必要があります。そのため，年を変更するcmb年_Changeイベントに以下のように書きます。
cmb年_Changeのコード
|
1 2 3 4 5 6 7 8 |
Private Sub cmb年_Change() If cmb月.Value = 2 Then '2月を選択していた場合 '年の変更により，うるう年で月末日が変わるか確認する cmb月_Change '値は変えないが，Changeイベントを発生させる。 End If End Sub |
〔5行目〕
2月の場合に，「2月」という値は変更しないが，cmb月_Changeイベントを連鎖させます。