2020/01/27

セルへの日付入力をカレンダー日付クリックで選定する




１．セルへの日付入力方法について

Excelのセルに日付を入力する場面は多いと思います。一番簡単なのは、手入力で「2020/12/12」などと日付形式で入力することです。しかし作る人の意図とは異なり「不明」「未定」のように文字列を入れたり、わざわざ先頭にアポストロフィ(')を付けて「日付っぽく見える文字列」にしたりするユーザもいます。
それを回避するため、サイト等でも良く見かけるのが図１－１の方法です。日付を年・月・日ごとに選択式にしています。

図１－１

しかし、これが意外と使いづらいのです。それは、年月日を別々に選択したり、リストを上下させたりする手間だけでなく、曜日が「見えない」のも原因だと思います。
そこで今回は、カレンダー形式の日付選択方式を紹介します。日付入力が必要なセルに来たらカレンダーが表示され、日付をクリックするとその日付が入力される、というものです。イメージとしては図１－２です。

尚、カレンダー選択方法は昔から存在し、決して私の発明品ではありません。他のサイトも参照してみて下さい。

図１－２

２．カレンダーを作る

２－１．ユーザーフォーム上にコントロールを配置する

まず、カレンダーをフォーム上で組み立てます。上の方から以下のコントロールを図２－１のように並べていきます。
１）スクロールバー（１個）・・・・・・・・年月変更用
２）ラベル（１個）・・・・・・・・・・・・年月表示用
３）ラベル（７個）・・・・・・・・・・・・曜日表示用
４）コマンドボタン（７ｘ６＝４２個）・・・日付用
５）ラベル（１個）・・・・・・・・・・・・ワークシートとの値受け渡し用


図２－１

それぞれのコントロールには「Caption」という表示名のプロパティがあります。図２－１ではコマンドボタンに01、02、03・・・と表示に変更していますが、コントロールを作ったそのまま（例えばCommandButton1のCaptionは「CommandButton1」のまま）の状態で何も問題ありません。月によって曜日毎の日付は変わりますので、マクロでCaptionを書き換えるからです。
但し、CommandButton1は図２－１の「01の場所」に、CommandButton2は図２－１の「02の場所」に・・・と、整然と並べておいて下さい。
尚、固定されている曜日のラベルは、月・火・水・・・とCaptionを変更してあります。

２－２．フォームコードの記述

では、カレンダー用にコントロールを配置したフォーム（ここでは、UserForm1の上にカレンダーを作成したとしています）に、以下のコードを記述します。
  1. ’------　⇩（１）変数宣言部　----------------------------------------------------------------------------------------------
  2. Dim Event_Flag As Boolean　　　　 '←ｽｸﾛｰﾙﾊﾞｰ値をｾﾞﾛに戻した時に再計算するのを防止
  3. Dim Current_day As Date　　　　　 '←Label9に記載された受け渡し値の日付
  4. ’------　⇩（２）Formの初期化　---------------------------------------------------------------------------------------------
  5. Private Sub UserForm_Initialize()　　 '←Formの初期化ﾌﾟﾛｼｰｼﾞｬ（初めて実行した時に動作する）
  6. 　Static mybtnArray() As Class1　　 '←Class1の設計図に従って、ボタン配列を宣言
  8. 　For Each btn In Controls　　　　　　　　　　　　 '←UserForm1の全てのコントロールを調べる
  9. 　　If TypeOf btn Is MSForms.CommandButton Then　 '←コマンドボタン(日付部分)だったら
  10. 　　　n = n + 1
  11. 　　　ReDim Preserve mybtnArray(1 To n)　　　　　 '←ボタン配列のサイズをボタン数の大きさに変更
  12. 　　　Set mybtnArray(n) = New Class1　　　　　　　 '←ボタン配列（１個分）をオブジェクトにする
  13. 　　　mybtnArray(n).setbtn btn　　　　　　　　　　 '←ボタン配列（１個分）をｲﾍﾞﾝﾄ取得できるｵﾌﾞｼﾞｪｸﾄに登録
  14. 　　End If
  15. 　Next
  17. 　Call Calender_ini　　　　　　　　　　　　　　　 '←各コントロールのプロパティを設定
  18. End Sub
  19. ’-------　⇩（３）各コントロールのプロパティ設定　-------------------------------------------------------------------------
  20. Sub Calender_ini()　　　　 '←各コントロールのプロパティを設定するﾌﾟﾛｼｰｼﾞｬ
  21. 　Me.Height = 200　　　　 '←受け渡し値を表示する時は225に変更。200は受け渡し値を隠す寸法
  22. 　Me.Width = 150　　　　　 '←フォームの表示する幅
  24. 　Me.Controls("ScrollBar1").Value = 0　　 '←スクロールバーの値
  25. 　Me.Controls("ScrollBar1").Min = -12　　 '←スクロールバーの最小値（12か月前、という意味）
  26. 　Me.Controls("ScrollBar1").Max = 12　　 '←スクロールバーの最大値（12か月後、という意味）
  27. 　Me.Controls("ScrollBar1").SmallChange = 1　　 '←スクロールバーの移動値（１か月、という意味）
  28. 　Me.Controls("ScrollBar1").LargeChange = 12　　 '←スクロールバーの移動値（１２か月、という意味）
  30. 　For i = 1 To 42 Step 7　　 '←日曜日の部分を選択
  31. 　　Me.Controls("CommandButton" & CStr(i)).BackColor = RGB(255, 192, 203)　　 '←背景をピンク色に
  32. 　Next i
  34. 　For i = 7 To 42 Step 7　　 '←土曜日の部分を選択
  35. 　　Me.Controls("CommandButton" & CStr(i)).BackColor = RGB(173, 216, 230)　　 '←背景を水色に
  36. 　Next i
  37. End Sub
  38. ’-------　⇩（４）フォームを表示時に実行　-----------------------------------------------------------------------------
  39. Private Sub UserForm_Activate()　　　　　　　　 '←UserFormを表示した時に実行されるﾌﾟﾛｼｰｼﾞｬ
  40. 　Event_Flag = True　　　　　　　　　　　　　 '←カレンダー表示を可にする
  41. 　Current_day = Me.Controls("label9").Caption　　　 '←ｼｰﾄ側のﾌﾟﾛｼｰｼﾞｬから渡された値をForm内の変数に置換
  43. 　If Current_day = 0 Then　　　　　　　　　　　 '←渡された値がｾﾞﾛの時（ｾﾙに値が無い時）
  44. 　　Call Calendar(Year(Now()), Month(Now()))　　 '←今日の日を含むカレンダーを表示
  45. 　Else　　　　　　　　　　　　　　　　　　　 '←渡された値が日付の時（ｾﾙに日付がある時）
  46. 　　yyyy = Year(Current_day)　　　　　　　　　 '←渡された日付の年を取得
  47. 　　mm = Month(Current_day)　　　　　　　　　 '←渡された日付の月を取得
  48. 　　Call Calendar(yyyy, mm)　　　　　　　　　　 '←渡された日付の日を含むカレンダーを表示
  49. 　End If
  50. End Sub
  51. ’--------　⇩（５）カレンダーの計算・表示　-----------------------------------------------------------------------
  52. Sub Calendar(yyyy, mm)　　　　　　　　　　 '←カレンダーを計算・表示させるプロシージャ
  53. 　Dim Cal_First_Day As Date　　　　　　　　 '←表示カレンダーの初日
  54. 　Dim First_Week, Last_Day As Integer　　　　 '←初日の曜日、最終日
  55. 　Dim i, j As Integer　　　　　　　　　　　　 '←カウンター変数
  57. 　Cal_First_Day = DateSerial(yyyy, mm, 1)　　　　　　 '←表示カレンダーの初日を計算
  58. 　yyyy = Year(Cal_First_Day)
  59. 　mm = Month(Cal_First_Day)
  60. 　First_Week = Weekday(DateSerial(yyyy, mm, 1), 1)　　 '←初日の曜日を計算
  61. 　Last_Day = Day(DateSerial(yyyy, mm + 1, 1) - 1)　　　 '←最終日を計算
  63. 　For i = 1 To 42　　　　　　　　　　　　　　　　　　　　　　　　　 '←全ﾎﾞﾀﾝの初期化
  64. 　　Me.Controls("CommandButton" & CStr(i)).Visible = False　　　　　　 '←全ﾎﾞﾀﾝを非表示に
  65. 　　Me.Controls("CommandButton" & CStr(i)).ForeColor = RGB(0, 0, 0)　　 '←全ﾎﾞﾀﾝの文字色を黒に
  66. 　Next i
  68. 　j = First_Week　　　　　　　　　　　　　　　　　　　　　 '←初日の曜日からﾎﾞﾀﾝを表示する
  69. 　For i = 1 To Last_Day　　　　　　　　　　　　　　　　　　 '←その月の1～最終日までを表示する
  70. 　　Me.Controls("CommandButton" & CStr(j)).Caption = i　　　　 '←ﾎﾞﾀﾝに日付を記入
  71. 　　Me.Controls("CommandButton" & CStr(j)).Visible = True　　　 '←ﾎﾞﾀﾝを表示する
  73. 　　If (yyyy = Year(Now())) And (mm = Month(Now())) And (i = Day(Now())) Then　　　　　　　　　　 '←本日の場合
  74. 　　　Me.Controls("CommandButton" & CStr(j)).ForeColor = RGB(255, 0, 0)　　　　　　　　　　　　 '←文字を赤色に
  75. 　　ElseIf (yyyy = Year(Current_day)) And (mm = Month(Current_day)) And (i = Day(Current_day)) Then　　 '←受け渡し日
  76. 　　　Me.Controls("CommandButton" & CStr(j)).ForeColor = RGB(0, 128, 0)　　　　　　　　　　　　 '←文字を緑色に
  77. 　　End If
  79. 　　j = j + 1
  80. 　Next i
  81. 　Me.Controls("Label8").Caption = Year(Cal_First_Day) & "/" & Month(Cal_First_Day)　　　 '←「年/月」をLabel8に記入
  82. End Sub
  83. ’---------　⇩（６）スクロールバーの変更（＝年月の変更）　-----------------------------------------------------------
  84. Private Sub ScrollBar1_Change()　　　　　　 '←ｽｸﾛｰﾙﾊﾞｰの値を変更した時に実行されるﾌﾟﾛｼｰｼﾞｬ
  85. 　If Event_Flag = False Then Exit Sub　　　　 '←ｽｸﾛｰﾙﾊﾞｰの値をｾﾞﾛにした時の再表示を防止
  87. 　yyyy = Split(Me.Controls("Label8").Caption, "/")(0)　　 '←表示されている年を取得
  88. 　mm = Split(Me.Controls("Label8").Caption, "/")(1)　　　 '←表示されている月を取得
  90. 　Call Calendar(Val(yyyy), Val(mm) + Me.ScrollBar1.Value)　　 '←月数を変更してカレンダーを表示
  92. 　Event_Flag = False　　　　　　　　　 '←ｽｸﾛｰﾙﾊﾞｰの値を変更する前に再表示防止のﾌﾗｸﾞを立てる
  93. 　　Me.ScrollBar1.Value = 0　　　　　　 '←連続的に年月を変更できるようにｽｸﾛｰﾙﾊﾞｰの値を戻す
  94. 　Event_Flag = True　　　　　　　　　　 '←ｽｸﾛｰﾙﾊﾞｰの値を変更した後、再表示防止のﾌﾗｸﾞを戻す
  95. End Sub
  96. ’-----------　⇩（７）右上の×で閉じた時の処置　--------------------------------------------------------------------
  97. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)　　　 '←右上の×で閉じた時
  98. 　Me.Controls("label9").Caption = "0"　　　　　 '←Label9にゼロを記入
  99. 　Cancel = True　　　　　　　　　　　　　　　 '←×で閉じる(UnLoadする)のをやめる
  100. 　Me.Hide　　　　　　　　　　　　　　　　　　 '←フォームを隠す
  101. End Sub
図２－２

上の方から順に説明していきます。コード内に記述した「'----(1)〇〇〇----------------」は、プロシージャの区切りで、それ毎に説明します。

（１）　２～３行目はフォーム内で使用する変数の宣言部です。
Event_Flag変数は、スクロールバーで年月を変更した後、スクロールバーを元に戻す（＝次のスクロールバーの操作に備える）ために値（Value値）をゼロに設定しなおします（図２－２の９３行目）が、値を変えた瞬間にまたScrollBar1_Changeのイベントが発生してしまい、カレンダーの計算・表示をもう一度繰り返してしまいます。そのまま放っておいても外観的には問題ないのですが、無駄な再計算・再表示を防止する（８５行目）ためにフラグを立てる様にしています。
Current_day変数は、ワークシート～フォーム間で受け渡される日付です。ワークシートのセルに既に日付が入力されている場合には、その日付をフォームのLabel9に貼り付けて（図３－２の３～７行目、２０～２４行目）からフォームを表示しています。フォーム表示時にその日付をCurrent_day変数に取り込み（図２－２の４１行目）、カレンダーの対応する日付の文字色を変更（図２－２の７６行目）させています。

（２）　５～１８行目は、UserForm1を初めて起動する際のイベント（Initialize）プロシージャです。
前半（６～１５行目）の部分は「多くのコマンドボタンのイベントを１つのイベントに集約する」部分です。
今回のカレンダーでは多くのコマンドボタンの内「どれかのボタンを押すとその日付に反応する」という様なものを作りたいのですが、普通に作ると７ｘ６＝４２個のボタンのイベント処理を記載しないといけなくなります。それは、１つ１つのボタンのイベントは別々のイベントとして発生するからです。数個であれば力ずくでイベント処理を一生懸命書いても良いのですが、数十個となると後のマクロ修正も大変になりますので、いわゆる配列イベントの仕組みを作る方が楽になります。
（似ている言語ＶＢでは配列イベントが簡単な手順で作成可能なのですが、ＶＢＡではその仕組みが無いのでクラスを使って作る必要があります。）
クラスとのやり取り部分があるので理解し難いと思いますが、クラスの内容（２－３項）を見比べながら見て下さい。
６行目の「Static mybtnArray() As Class1」は、『「Class1の設計図」に従って「mybtnArrayという配列」を「このマクロ全体で使える様に」宣言します』ということを示しています。Class1は自分で作るオブジェクト設計図になりますが、ここでは「イベントを発生するコマンドボタン」となります。

８～１５行目はFor Each ～ Next で囲まれています。このフォーム（ここではUserForm1）に配置されたコントロールについて１つ１つ調べ（８行目）、それがコマンドボタンだったら（９行目）、そのコマンドボタンを配列の１つとしてオブジェクトを作り（１２行目）、イベントを発生するコマンドボタンに関連付けます（１３行目）。
なお、１０～１１行目は、「コマンドボタンが何個でてくるか分からない」事を前提に配列サイズを都度大きくしていますが、今回の場合４２個と決まっていますので固定しておく事も可能です（ここより下のコードでは「ボタンは４２個」としてFor～Nextでうっかり42回固定でまわしたりしちゃっています。ボタンの個数が都度変わるのであれば、Ubound(mybtnArray,1)を使うべきですね）。もしカレンダー以外に「OKとかCancelなどのコマンドボタン」を配列したい場合には「ボタンのオブジェクト名での選別」等が必要ですので注意・工夫して下さい。

この６～１５行目の手続きにより、どの日付のコマンドボタン（４２個）を操作しても、１つのイベント処理で対応できることになります。

１７行目は（３）の各コントロールのプロパティ設定プロシージャを呼び出して実行しています。コントロールの定数や固定色などの設定です。

（３）　２０～３７行目は、フォーム上に配置したコントロールのプロパティを設定しています。
フォームのコントロールの配置と一緒にコントロールのプロパティを手動で変更してしまえば、このプロシージャは不要です。しかしプロパティを手動でいじってしまうと、後になって「どのプロパティをどの値に変更したのか分からなく」なり、修正時に非常に時間がかかる経験をしているため、あえて「プロパティを変更したコントロールの記録簿」という意味で別プロシージャにしています。尚、曜日の色付けのように多くのコントロールの同じプロパティを同時に変更するにはFor～Nextなどを使って変更した方が楽なのは言うまでもありません。

２１～２２行目は、フォームの可視範囲のサイズです。コントロールの大きさ・配置・数量によってサイズを決めて下さい。尚、フォームの下部にLabel9（受け渡す日付データ）を配置していますが、今回は「直接見えない方がカッコ良いだろう」と思い、隠すようなサイズにしてあります。
２４～２８行目は、年月を変更するスクロールバーの設定値です。スクロールバーを左右に大きく動かすと「年」が変わり、小さく動かすと「月」が変わるようにしています。
３０～３２行目は、日曜日のボタンの背景に色をつけています。コマンドボタンは横方向に順にならんでいますので、縦方向を選択するためにFor文のStepを７にしています。また各コマンドボタンのオブジェクト名は「CommandButton〇〇」という名前なので、〇〇の部分を変数にして文字結合しています。
３４～３６行目は、土曜日のボタンの背景色付けで、コマンド選択のFor～Nextのスタート位置と背景色だけが日曜日色変更コード（３０～３２行目）と異なっています。

（４）　３９～５０行目は、フォームが表示される直前に実行されるイベントプロシージャです。
３９行目で変数Event_FlagをTrueにしています。
カレンダーの表示年月を変更する時にはスクロールバーを操作しますが、新しいカレンダーが表示された後、次の年月変更操作に備えてスクロールバーを元の値（ゼロ）に戻す処理をします（９３行目）。その「ゼロに戻した」処理を「人間がスクロールバーを動かした」と勘違いして、無駄にカレンダーを再計算してしまうのです。これを防止するのがEvent_Flag変数（８５行目）の役目です。
尚この処理をしなくても、見かけ上はカレンダーの年月が変わるわけでもなく問題ありませんが、無駄な計算は避けるべきと考えて設定しました。

４１行目でワークシート側からLabel9に渡された「受け渡し日付」をマクロ内で使い易いように変数Current_dayに代入しています。尚、ワークシート側からの受け渡し日付は、日付入力セルに「既に日付が入っている時は、その日付」「セルが空欄、又は日付以外の値なら、ゼロ」を受け渡すようにしています。
４３～４９行目は、受け渡し日変数Current_dayの値に従って処理を分けています。
まずゼロ（＝セルが空欄、又は日付以外）の場合は、４４行目で今日の日を含む年月を引数として、カレンダー計算・表示プロシージャ（Calendar(年,月)を呼び出します。
その他（＝セルに既に日付が入っている）の場合は、渡された日付Current_dayから年月を取り出し（４６～４７行目）て、それを引数にカレンダー計算・表示プロシージャを呼び出します。

（５）５２～８２行目は、年月を引数として受け取って、実際にカレンダーを計算・表示するプロシージャです。 この計算プロセスについては、別項目の「ワークシート上で永久カレンダーを作る」も参考にして下さい。

５７行目では、引数として受け取った「年＝yyyy」「月＝mm」を使って、表示させるカレンダーの初日を「日付型」として変数に代入します。「年月を引数として渡してくれたんだから、再度日付を計算する事は無いのでは？」と思われるかもしれませんが、（６）のスクロールバーを変更した時には、月を指定する第２引数には「表示されている月　＋　〇か月」という値が渡されてきます。例えば「2020年13月　を表示しなさい」という指示をされている様なものなので、一度ちゃんとした年月日に計算しておく必要があるのです。
そのちゃんとした年月日を使って年月を計算（５８～５９行目）し、初日の曜日を６０行目で計算、最終日（＝その月の日数）を６１行目で計算します。

６３～６６行目では、全てのボタンを非表示にし、ボタンの文字色を黒にしています。今回表示するカレンダーでは、ボタンには「日」以外の情報を持たせておらず、年月についてはLabel8のデータを使っています。ですので、その月以外の日付は表示しないこととしました。また、７３～７７行目で本日や受け渡し日には文字に色を付けていますので、文字色をリセットしています。

６９～７１行目で日付コマンドボタンを「非表示→表示」に切り替え、「日付を記入」していきます。
どのようにして、その年月に該当する日付を「非表示→表示」＋「日付記入」にするか　を説明します。図２－３も見ながら動きを追って下さい。
６９～８０行目の For～Next でコマンドボタンに処理をしていきますが、処理するコマンドボタンの番号には変数 j を当てており、その j は６８行目で初日の曜日が初期値として与えられ、For～Next を回すたびに７９行目で１つずつ増やしています。つまり、初日の曜日（日曜日を１として土曜日が７まで）のコマンドボタン以降が表示される事になります。
そして For～Next での繰り返し処理数としては、６９行目の Last_Day（その月の日数）までになりますので、日数を超えたコマンドボタンは非表示のままとなります。

図２－３

後は趣味的な部分で、７３～７７行目で本日を示す日付には赤色、受け渡し日には緑色を付けています。
そして８１行目で、表示したカレンダーの「年/月」をLabel8 に書き込みます。今回はスラッシュ「/」で年・月を切っていますが、年と月を別のLabelに書き込む方法も良いかと思います。（年と月を別々のLabelにする場合は、スクロールバーで年月を変更する（６）の８７～８８行目の修正、及びクラス内のボタンが押されたイベントを受け取るプロシージャ（１０）の９行目の修正が必要です）

（６）　８４～９５行目は、スクロールバーの値を変更した（＝年月を変更した）場合のイベントプロシージャです。
スクロールバーは、変更前の値（Value）はゼロ、移動値小（SmallChange）が１、移動値大（LargeChange）が１２です。ですので、スクロールバーを変更した時には－１２～＋１２までの変更後の値（ScrolBar1.Value）として取得できます。（尚、初期値はゼロなので、バーを動かしてもゼロの位置でマウスを離すと「変更しなかった」ことになりますのでゼロは値としては出てきません）

図２－４

８５行目のEvent_Flag変数がFalseの場合は、何もせずにプロシージャを抜けます。これは４０行目のところでも説明しましたが、初期値はTrueですので通常このプロシージャは実行されます。
８７～８８行目は、現在の年月を示しているLabel8の文字を、仕切り文字「/」で文字分割し、年月を取得しています。
９０行目では、現在の年月に対し、月の値にスクロールバーの変更後の値（－１２～＋１２）を加えたものを引数にしてカレンダー計算・作成を呼び出しています。単純に月の値に数を足し引きしている事になりますので、例えば「2020年13月（2020年1月 ＋ 12か月）を表示しなさい」のような指示を与えていることになります。

新たな年月のカレンダーが表示されましたが、スクロールバーの値は変更されたままです。それを中立の位置（ゼロ）に戻すために９３行目でスクロールバーのValue値にゼロを代入しています。

図２－５

そのValue値をゼロに戻した際に、「スクロールバーの値を変更した」と判断されてイベントが発生します。発生すると８４行目から順にマクロを実行し始め、カレンダーを再表示する動きになります。それを防止するためにValue値をゼロに戻す前に９２行目でEvent_FlagをFalseに設定し、８５行目まで行ったところでプロシージャを抜け出させ、再表示を防いでいます。カレンダーの再表示を防止したら、９４行目でEvent_Flag値を初期値（True）に戻しておきます。
なお、このEvent_Flag処理をしなくても、見かけのカレンダーには影響ありません。というのは、幸いなことに再表示をしようとする時点ではLabel8は新たな年月に書き換えられており、その年月に対して「±０か月のカレンダーを表示せよ」との指示になるためです。

またValue値をゼロに戻さない方法として「スクロールバーのMAX値を大きく取り、Value値はそのままにしておく」事も考えられるでしょう。その場合には、
①表示されているカレンダーの年月をLabel8から取得するのでは無く、ある基準年月を内部的にもっておく
②スクロールバーの変更前値を確保しておき、変更後との差分でカレンダーの表示年月を指示する
などの処理が必要になります。

（７）　９７～１０１行目は、表示されているフォームの右上の✖印でフォームを閉じた時の処理です。
この QueryClose イベントはフォームが閉じられた時（UnLoad）に発生するイベントですが、今回のフォームではどのコントロールにも UnLoad ステートメントを組み込んでいませんので、右上の✖印で閉じようとしたことを表しています。
９８行目で、ワークシート側との受け渡し値（Label9）にゼロを書き込んで、✖が押された（＝日付を選択しなかった）ことを伝えようとしています。
９９行目では、QueryClose の引数である Cancel に True を設定することで「フォームを閉じることをキャンセル」させます。フォームを閉じてしまうと、せっかく Label9 に受け渡し値を記入しても無駄になるためです。
そして１００行目で、フォームを非表示（Hide ＝ 隠す）にします。

なお、この QueryClose イベントプロシージャが無い場合、✖印で閉じるとフォームが UnLoad されてしまいます。しかし、Label9 の初期値をゼロに設定しておくと、見かけ上は正常に動きます。これはワークシート側のマクロで Label9 を見に行こうとすると「フォームは閉じられていて Label9 の値が分からないため、わざわざフォームを立ち上げ直して（Loadして）、Label9 の値を見る」からです。見に行ってみると「（初期値が）ゼロだから、カレンダーの日付をクリックしなかったんだな」と判断するのです。


２－３．クラスモジュールの記述

フォームの Initialize イベントプロシージャ内で記載した、４２個のコマンドボタンのイベントを集約して１つのイベントとして受け取る機能を作るため、クラスモジュールに以下のコードを記述します。クラスは「自作オブジェクトの設計図」という位置づけで、通常は分かり易いオブジェクト名（＝クラス名）をつけるのですが、今回は作ったままの「Class1」としてあります。
  1. ’----------　⇩（８）ユーザーイベントの登録　------------------------------------------------------------------------
  2. Private WithEvents mybtn As MSForms.CommandButton　　　 '←変数mybtnをｺﾏﾝﾄﾞﾎﾞﾀﾝ型としてｲﾍﾞﾝﾄを受け取る
  3. ’----------　⇩（９）ユーザーイベントとオブジェクトの接続-------------------------------------------------------------
  4. Public Sub setbtn(ByVal myNewbtn As MSForms.CommandButton)
  5. 　Set mybtn = myNewbtn
  6. End Sub
  7. ’----------　⇩（１０）ユーザーイベントの受け取り　------------------------------------------------------------------------
  8. Private Sub mybtn_Click()
  9. 　UserForm1.Label9.Caption = UserForm1.Label8 & "/" & mybtn.Caption
  10. 　UserForm1.Hide
  11. End Sub
図２－６

（８）　２行目はWithEventsキーワードをつけてmybtnというオブジェクト変数を宣言しています。型はコマンドボタンです。
こうすることで、オブジェクト変数mybtnが参照するオブジェクトのイベントを受け取ることが可能になります。

（９）　４～６行目は、フォーム内マクロ（図２－２）の１３行目で、カレンダー日付のコマンドボタン１つ１つをイベント取得可能なオブジェクトに登録するために関連付けます。
　　　　イベントを受け取れるmybtnオブジェクト　～　配列mybtnarrayの１つ１つ　～　　各コマンドボタン　
と関連付けを行い、mybtnでイベントを受け取るのです。

（１０）　８～１０行目は。どれかのコマンドボタンが押された時にはmybtnが押されたというイベントが発生します。そのmybtnは　＝１つ１つのコマンドボタン　ということになりますので、そのコマンドボタンのプロパティを利用して処理をしていきます。
９行目は、フォーム内のカレンダーの年月が記載されているLabel8と、押されたボタンのCaption（日付の数字が記載されている）を取得して文字結合をします。そしてその値（＝選択した日付値）をフォームのLabel9に記入し、ワークシート側で使用できるようにします。
１０行目で、カレンダーを非表示（Hide）にします。ここでUnLoadしてしまうと、フォームが閉じられてしまい、せっかく書き込んだ受け渡し日付も消えてしまいます。もしUnLoadする必要があるならば、マクロ内のPublic変数としてデータを受け渡しておく必要があります。

３．ワークシートに日付記入セルを設定し、フォームとのやり取りを作る

Excelワークシートを電子書類の一画面とし、例えば図３－１のように「F6セルを開始予定日」「F8セルを完了予定日」とした場合「日付を入力すべきセルにカーソルが入った時にカレンダーが出てきて、日付をクリックさせる」ことをイメージして、いままでマクロを組み立ててきました。
図３－１

ワークシート上で、そのセルに入った（＝異なるセル範囲を選択した）のを検出するイベントは SelectionChange です。どこのセルに入ったかは、その引数である Target（選択した範囲）を使用して位置を確認し、処理することになります。
書類画面を作成したワークシートの VBE に以下のコードを記述して下さい。ワークブックでイベントを受け取ることも可能（SheetSelectionChange を使用します）ですが、コードミスの可能性を少なくする為にも、シートのイベントはシートで受け取るのが一般的と思います。
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. 　If (Target.Row = 6) And (Target.Column = 6) Then
  3. 　　If (Target.Value = "") Or (Not IsDate(Target.Value)) Then
  4. 　　　UserForm1.Controls("Label9").Caption = "0"
  5. 　　Else
  6. 　　　UserForm1.Controls("Label9").Caption = Target.Value
  7. 　　End If
  9. 　　UserForm1.Caption = "開始予定日"
  10. 　　UserForm1.Show
  12. 　　If UserForm1.Controls("Label9").Caption = "0" Then
  13. 　　　Target.Value = ""
  14. 　　Else
  15. 　　　Target.Value = UserForm1.Controls("Label9").Caption
  16. 　　End If
  17. 　End If
  19. 　If (Target.Row = 8) And (Target.Column = 6) Then
  20. 　　If (Target.Value = "") Or (Not IsDate(Target.Value)) Then
  21. 　　　UserForm1.Controls("Label9").Caption = "0"
  22. 　　Else
  23. 　　　UserForm1.Controls("Label9").Caption = Target.Value
  24. 　　End If
  26. 　　UserForm1.Caption = "完了予定日"
  27. 　　UserForm1.Show
  29. 　　If UserForm1.Controls("Label9").Caption = "0" Then
  30. 　　　Target.Value = ""
  31. 　　Else
  32. 　　　Target.Value = UserForm1.Controls("Label9").Caption
  33. 　　End If
  34. 　End If
  35. End Sub
図３－２

図３－２のプロシージャは、１～１７行目（開始予定日）　と　１９～３５行目（完了予定日）の２つに大きく分けられます。これは、選択されたセル（Target）の位置を検出し、「開始予定日」のセルを選択したのか「完了予定日」のセルを選択したのかをIF文で分けているためです。
２行目と１９行目のIF文には、今回はR1C1形式で .Row と .Column を使っています。もちろん Range(F6") などと A1 形式を使っても構いません。
尚、複数のセル範囲を選択した場合は、このコードでは実行時エラーが発生してしまいますので、対策が必要です。

ここから先は、開始予定日である１～１７行目で説明します。１９～３５行目もほとんど同様と考えて下さい。
３行目は、F6セルに何が記入されているかを確認しています。①何も記入されていないか、②日付以外が記入されているか、③その他か（日付か）　で処理を分けています。①か②の場合は、「何も記入されていないのと同等」と判断して、これから表示するカレンダー用フォームの Label9 に受け渡し値としてゼロを記入（４行目）します。
③の場合（５行目）は、その日付値を Label9 に記入（６行目）します。

９行目では、フォームのタイトルに「開始予定日」を表示させ、使用するユーザーに「今から開始予定日を選択して下さい」と促すようにしています。
１０行目では、以上の準備をした上でカレンダーを表示させています。セルに日付が記載されている場合（③）は、その日付が緑色で表示される（図２－２の７６行目）ことになります。

カレンダー上で日付をクリックするとフォーム上の Label9 に日付が入り（図２－６の９行目）、フォーム右上の✖印で閉じれば Label9 にはゼロが入り（図２－２の９８行目）ますので、図３－２の１２～１６行目の IF 文で仕分けて処理をします。
ゼロが入っていた場合（１２行目）は、カレンダー日付を選択しなかったのですから開始予定日のセルは空欄にします（１３行目）。一方、日付が入っていた場合（１４行目）は、日付値を開始予定日のセルに記入します。

尚、カレンダーの日付をクリック、または✖印で閉じた後のセル位置は、開始予定日・完了予定日のセル位置にとどまっています。この状態でセル編集（ダブルクリックやＦ２キーによる編集モード）をしても、選択している位置の変更が無いためSelectionChangeイベントが発生せず、編集モードが有効となり、日付の修正・日付以外の文字入力・空欄化　が可能になります。
これを防ぐには、「シートの保護」をしたり、図３－３の様にフォームが閉じられた直後に選択しているセル位置を移動する方法が考えられます。
  1. 　　Target.Offset(1, 0).Select
図３－３

この「セル位置を移動する」の後で、再度「開始予定日・完了予定日」のセルに入った時には SelectionChange イベントが発生しカレンダーが表示されてくれますので、日付以外のものに手修正されることは防げます。
ただし、移動先として何かが記入されているセルを指定（例えば、開始予定日セルのあと完了予定日セルに移動させようとすると）すると、図３－２の２０～２４行目の処理が動いてしまい、せっかく選んだ日付（ Label9 の値）が上書きされてしまう事になりますので、注意が必要です。

日付をカレンダーで選定するマクロ（it-014.xlsm）

セキュリティ向上を目的として「インターネット経由でダウンロードしたOfficeファイル（Excel等）のマクロは、既定でブロック」されるようにOfficeアプリケーションの既定動作が変更になりました。（2022年4月より切替開始）
解除の方法については「ダウンロードファイルのブロック解除方法」を参照下さい。