2022/03/22

ボタンを自動生成するフォームカレンダー

• １．背景
• ２．システム概要
• ３．プログラムの流れ
• ４．入力用シート
• 　４－１．ワークシート
• 　４－２．シートモジュール
• ５．標準モジュール
• 　５－１．起動プロシージャ
• ６．フォーム
• 　６－１．フォームデザイン
• 　６－２．フォームモジュール
• 　　６－２－１．起動時・表示時設定
• 　　６－２－２．カレンダー年月の移動
• 　　６－２－３．カレンダーサイズの変更
• 　　６－２－４．ESCキーでのカレンダー終了
• 　　６－２－５．カレンダー作成
• 　　６－２－６．ボタン作成モジュール
• 　　　よりみち（byValによる自動型変換）
• 　　６－２－７．ラベル作成モジュール
• 　　６－２－８．フォームサイズ変更モジュール
• ７．クラスモジュール
• 　７－１．ボタンオブジェクトの設定
• 　７－２．クラスに登録されたボタンのClickイベント
• ８．アドインとしてExcelにマクロを登録
• ９．最後に
• サンプルファイル

１．背景

以前「セルへの日付入力をカレンダー日付クリックで選定する」の項で、ボタン式のフォームカレンダーを紹介しました。その時は、カレンダーの日付に使用する6行×7列＝42個のCommandButtonをフォーム上に並べるところからスタートしていたため「作る人にとっては、面倒だろうな」と、ずっと思っていました。
そこで今回は、「ボタンはマクロ側で生成する」カレンダーを紹介します。特徴としては、フォームのデザイン時に苦労せずに済むのと同時に、ボタンのサイズを自由に変更できますのでユーザビリティも向上すると思います。

但しクラスの役目として、前回は「存在するボタンのClickイベントを拾う」だけで良かったのですが、今回はそれに「マクロで作ったボタンに文字を書き込んだり、色を付けたりする」ことも追加されるため、少しだけ複雑になっています。

２．システム概要

図２－１のように、ワークシート上に２ヶ所の日付入力セル（黄色いセル）があるとします。そのセルに対し、図４－２のようなSelectionChangeイベントを仕掛けておき、そのセルを選択したらフォームカレンダーが表示され、選択した日付をそのセルに書き込むのが今回のシステムです。

図２－１

日付入力セルが「空白セル」や「日付では無い文字列」が入っている場合、そのセルを選択①すると「今日の日付が黄色」で示された「今月のカレンダー②」が表示されます（図２－１の左側）。
一方、日付が入ってるセルを選択③した場合は、「その日付が黄色」で示された「その日を含む月のカレンダー④」が表示されます（図２－１の右側）。

フォームカレンダーは、上部中央に「表示カレンダーの年月⑤」が表示されており、左上に配置したSpinButton⑥を操作することでカレンダーを１ヶ月ずつ前後することが出来ます。
希望の年月にカレンダーを移動させたら、希望の日付のボタンをクリック⑦することで、「カレンダーが消え」ると同時に「選択したセルに日付が入力」されます。

図２－２

カレンダーの日付は、日曜～土曜の順番で並べており、日曜はピンク色、土曜は水色⑩で表示されます。選択したセルの値が「空白セル」または「日付では無い文字列」である場合は、本日の日付が黄色になります。一方、選択したセルの値が「日付」であった場合は、その日付が黄色になります。
また、フォーム上の右上にある「小」又は「大」と表示されているボタン⑨（ToggleButton）をクリックすると、カレンダーの表示サイズが大⇔小に切り替わります。

フォームカレンダー上の日付ボタンをクリックすることでカレンダーは消えますが、カレンダーが表示されている時に「日付入力をキャンセル＝カレンダーを終了⑧」する場合は、「ESCキー」を押すか「フォーム上の右上×印」をクリックします。
終了させた場合は、選択したセル値は元のまま（＝元の値を書き込み）となります。
なお「ESCキーで終了」させた時は「フォームをHideで隠した」状態にしていますので、次回入力セルを選択した際には「フォームサイズを変更した状態を保ったまま」起動することになります。逆に「右上×印で終了」させると「フォームを削除（UnLoad）」することになりますので、次回起動時は初期状態（フォームサイズ＝小（初期値））で表示されます。

なお本システムをExcelにアドイン登録しておくと、日付を入力するワークシートのシートモジュールにイベントプロシージャを記述することで、フォームカレンダーを使用することが出来ます。

３．プログラムの流れ

今回サンプルファイルでは、日付を入力するセルにはSelectionChangeイベントが仕掛けてあり、そのセルをセル選択することでカレンダー作成を開始します。カレンダー作成は、１つ１つ「カレンダーのどの位置にどの日付を配置するか」を計算し、その位置に「ボタンを作成」します。ボタンを１つ作成するたびに、クリックした時に反応できるようにボタンをClickイベントに登録していきます。１ヶ月分のボタン作成が終了したら、フォームを表示します。

図３－１

ユーザーがフォームカレンダーの年月を移動させるためにスピンボタンを操作すると、新たに表示するカレンダーの年月を計算し、また「カレンダーのボタンの位置を計算しながら、ボタン作成→ボタンのClickイベントへの登録」をし直します。
また、フォームのサイズを変更するトグルボタンを操作すると、ボタンサイズの設定値を変更した上で、また「カレンダーのボタンの位置を計算しながら、ボタン作成→ボタンのClickイベントへの登録」を行います。

ユーザーが、カレンダー上のボタンをクリックすると、そのボタンの数字（＝日付）とカレンダー表示年月を組み合わせて「クリックした日付」を計算し、SelectionChangeイベントへ戻します。SelectionChange側では、戻された値（＝クリックした日付）を日付入力セルに書き込みます。

なお、ユーザーが日付をクリックせずにカレンダーを終了させた時には、セル選択した時に保存しておいた「元の値」をそのままセルに書き込みます。

４．入力用シート（サンプルファイルではSheet1）

４－１．ワークシート

ワークシート上の数式や加工などは、本システムでは不要です。必要なのは、SelectionChangeイベント等の設定です。
なおサンプルファイルでは、入力セルがどこなのか分かるように、図４－１のように黄色背景にしています。

図４－１

４－２．シートモジュール

入力シートには図４－２のような「Worksheet_SelectionChange」イベントプロシージャを置きます。そして設定した日付入力セルを選択した時に、カレンダーを呼び出します。

1. '==========　⇩(1)　入力シートのSelectionChangeイベント　============
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
3. 　If Target(1).Address = Range("B2").Address Or _
4. 　　Target(1).Address = Range("D2").Address Then
6. 　　Target(1).Value = Workbooks("it-078.xlam").Application.Run("CalSelect", Target(1))
7. 　　'Target(1).Value = CalSelect(Target)　　　'←同一ブック内にカレンダーマクロがある場合
9. 　End If
10. End Sub

図４－２

３～４行目のIf文で、日付入力セルに入った時だけ６～７行目を実行させるようにしています。
３行目「If Target(1).Address = Range("B2").Address Or _ 」は、選択されたセル（の左上の単一セル）がB2セルの場合で、４行目「Target(1).Address = Range("D2").Address Then」はD2セルの場合です。
TargetとRange()のRange型を直接比較してしまうと「セルに書かれている値」を比較してしまいますのでNGです。そのため「.Address」で「セルの位置」として比較をしています。

６行目「Target(1).Value = Workbooks("it-078.xlam").Application.Run("CalSelect", Target(1))」は、本システムをExcelにアドイン（it-078.xlsm → it-078.xlam）した場合の「フォームカレンダーを呼び出すコード」です。
この場合、システム起動プロシージャはアドイン登録した「it-078.xlam」の「CalSelectプロシージャ（標準モジュール内）」となります。また引数は、選択したセル範囲「Target(1)」を渡します。
アドインファイル上のプロシージャは直接呼び出せませんので、Runメソッドを使用しカッコ内にプロシージャ名と引数をカンマで区切って渡すことになります。「CalSelectプロシージャ」からは、日付入力セルに書き込む値が戻ってきますので、左辺は「Target(1).Value」と書き込むセルの値を指示します。
なお左辺も右辺も「Target(1)」としているのは、選択したセル範囲の左上１番目のセルに絞っている為です。「(1)」を付けないと、選択したセル範囲全てに日付が記入されることになります。

一方、見え消しにしてある７行目「Target(1).Value = CalSelect(Target)」は、システムが日付入力するブック内に存在する場合です。その場合は、標準モジュール上に置いてある「CalSelectプロシージャ」を呼び出すことになります。
なお「サンプルファイル」では、６行目を無効にし７行目を有効にしています。

５．標準モジュール（Module1）

標準モジュール先頭部分（宣言部：図５－１）では、システム内で共通して使用する変数の宣言をしています。

12. '==========　⇩(2)　システム内で使用する共有変数の宣言　============
13. Public setDay As Date 　　　　 '←基準日付
14. Public dispDay As Date 　　　 '←カレンダー表示年月
15. Public OrgValue As Variant 　 '←元データ・戻しデータ

図５－１

１３行目「Public setDay As Date」は、カレンダー内で「黄色背景にする日付」です。入力セルに日付が入っていれば、その日付が代入されますが、日付以外（空白を含む）の場合は、今日の日付を代入します。
１４行目「Public dispDay As Date」は、表示する月単位カレンダーの初日の日付が代入されます。
１５行目「Public OrgValue As Variant」は、日付入力セルに元々入っていた値が代入されます。ユーザーがカレンダーの日付ボタンをクリックした場合は、そのクリックした日付で置き換えられ、入力セル側に戻されます。またカレンダーの日付をクリックしなければ（＝カレンダーの右上×印をクリック、またはESCキーで終了）、元々の値がそのまま戻ることになります。

この３つのPublic変数は、一見するとフォーム内変数でも良さそうですが、今回システムではクラス側で「カレンダーのボタンをクリック」したことを受け取ります。フォームとクラスの間でデータをやり取りするのは面倒そうなので、標準モジュールでPublic宣言をし、システム内で共有した形にしています。

５－１．起動プロシージャ

図５－２が「ワークシート側から呼び出される関数プロシージャ」で、引数として入力セルのセル範囲（Range型）を受け取ります。関数としての戻り値は、カレンダーの日付をクリックした場合は「その日付」を戻し、日付をクリックせずに終了させたら「元の値」を戻します。

17. '==========　⇩(3)　システム起動・値返却　============
18. Public Function CalSelect(Target As Range) As Variant
19. 　OrgValue = Target(1).Value
21. 　If IsDate(OrgValue) = False Then
22. 　　setDay = Date
23. 　Else
24. 　　setDay = CDate(OrgValue)
25. 　End If
27. 　dispDay = DateAdd("d", -1 * Day(setDay) + 1, setDay)
29. 　UserForm1.Show
31. 　CalSelect = OrgValue
32. End Function

図５－２

１９行目「OrgValue = Target(1).Value」は、受け取ったセル範囲の左上単一セル（＝１番目のセル）の値（日付入力セルに元々入っていた値）を、変数OrgValueに代入します。

２１～２５行目は、その元々の値が日付か否かを調べ、変数setDayに「基準とする日付」の値を代入しています。この日付はカレンダー上では黄色背景のボタンになります。
２１行目「If IsDate(OrgValue) = False Then」は、１９行目で値が代入された変数OrgValue値（＝選択したセルの値）が「日付型」かを調べます。日付では無い（＝ False）場合には、２２行目の「setDay = Date」で「今日の日付」を変数setDayに代入します。つまり「今日の日付が基準日付」となります。
一方、選択したセルの値が日付だった（＝ True）場合には、２４行目「setDay = CDate(OrgValue)」で、「セルの日付が基準日付」になります。

２７行目「dispDay = DateAdd("d", -1 * Day(setDay) + 1, setDay)」は、まず表示するカレンダーの年月の初日を計算し、変数dispDayに設定します。
「年月の初日」の求め方は色々考えられますが、今回はDateAdd関数を使い「基準日付（setDay）に対して、その日付分だけ前の日」という計算で初日の日付を求めています。
つまり、選択セルの値が日付では無い場合は、まず今月のカレンダーが表示（＋今日の日付は黄色背景で表示）され、選択セルの値が日付の場合は、その日付を含む年月のカレンダーが表示（＋セルの日付が黄色背景で表示）されることになります。

２９行目「UserForm1.Show」では、フォームカレンダーを「モーダルで表示（カレンダーの操作しか出来ない）」します。
表示されたカレンダー内で、日付のボタンをクリックした時には図７－４の２１２行目で「クリックした日付を変数OrgValueに書込み」を行ったあと、フォームカレンダーを閉じます。
ですのでカレンダーが閉じられたあと、３１行目「CalSelect = OrgValue」が実行されることで、「クリックした日付を関数CalSelectの戻り値にする」ことになります。
なお、フォームカレンダーの日付ボタンをクリックせずに、右上×印をクリックしたり、ESCキーを押したりしてカレンダーを閉じた時は、「変数OrgValueは、１９行目で代入した元々の値のまま」ですので、選択セルの値は変わりません（正確に言うと「同じ値で書き換えが行われた」ことになる）。

なお２９行目で、もしモードレス（カレンダーが表示されていても、シート操作が可能）で表示してしまうと、すぐにシート側のSelectionChangeイベントへ制御が戻ってしまい、フォームカレンダー上で選んだ日付は選択セルに書き込まれなくなってしまいます。

６．フォーム（UserForm1）

６－１．フォームデザイン

カレンダーの日付ボタン等はマクロ側から作成しますので、フォーム上への作成・配置は不要です。但し、「年月移動用スピンボタン」「年月を表示するラベル」「フォームサイズを変えるトグルボタン」は、あらかじめフォーム上部に配置します。
また「ESCキーを押した時にフォームを閉じる」ためのコマンドボタンを「カレンダーの枠外（カレンダーになった後でも見えない場所）」に配置しておきます（「終了ボタン」として、見える場所に配置してもOKです）。

図６－１

６－２．フォームモジュール

先頭の宣言部には、フォームモジュール内で共有する変数の宣言をします。

34. '==========　⇩(4)　変数の宣言　============
35. Dim Barray() As New Class1 　　 '←ボタンの配列を宣言・生成
36. Dim side As Single 　　　　　　 '←ボタンの一辺の長さ（ポイント）
37. Dim cTop As Single 　　　　　　 '←フォーム上端からカレンダーまでの距離
38. Dim cLeft As Single 　　　　　　 '←フォーム左端からカレンダーまでの距離
39. Dim EventOff As Boolean 　　　 '←再帰呼び出し防止用のフラグ変数

図６－２

３５行目「Dim Barray() As New Class1」は、日付ボタンの配列を生成（New句）しています。型は「Class1」となっているように、クラスモジュールで宣言しているコマンドボタン型となります。

３６～３８行目は、図６－３のように「タイトル行を含むカレンダーの位置とサイズ」を示す変数の宣言です。
「side」は、ボタンの一辺の長さを表します。また「cTop」は、フォーム（コントロールを置く範囲内）上端からカレンダーまでの縦方向距離を表し、「cLeft」はフォーム左端からの横方向距離を表します。単位はポイントになります。

図６－３

３９行目「Dim EventOff As Boolean」は、カレンダーの表示年月を移動させるSpinButtonを操作した際、同じプロシージャを再帰呼び出しすることを防ぐための「フラグ変数」です。

６－２－１．起動時・表示時設定

図５－２の２９行目で、ユーザーフォームを「Show」した時、最初に呼び出されるのが図６－４のInitializeイベントです。

41. '==========　⇩(5)　起動時設定　============
42. Private Sub UserForm_Initialize()
43. 　cLeft = 10
44. 　cTop = Me.Label1.Top + Me.Label1.Height + cLeft
45. 　side = 20
47. 　Me.Label1.Font.Size = 12
49. 　Me.SpinButton1.Max = 1
50. 　Me.SpinButton1.Min = -1
51. 　Me.SpinButton1.Value = 0
53. 　Me.CommandButton1.Cancel = True
55. 　Me.ToggleButton1.Caption = "小"
57. 　Call FormSizeSet
58. End Sub

図６－４

４３～４５行目では、図６－２の３６～３８行目で宣言した変数に「タイトル行を含むカレンダーの位置とサイズ」の値を代入します。
４３行目「cLeft = 10」は、フォーム左端からカレンダーボタン類までの横方向距離を10（ポイント）としています。
４４行目「cTop = Me.Label1.Top + Me.Label1.Height + cLeft」は、年月を表示するLabel1の下端から「cLeft」下がったところからカレンダーボタン類としています。
そして４５行目「side = 20」で、カレンダーボタン類の１つのサイズを定めています。

図６－５

４３～４５行目の設定は、図６－５の赤字の部分です。そして後述するFormSizeSetプロシージャ（図６－１８）で青字の部分の距離（カレンダーボタン類の右端～フォーム右端、下端～フォーム下端）を定めています。
カレンダーボタン類の端～フォームの端の距離を全て「cLeft」で揃えることで、「カレンダーがフォームの中央部」に見えることを狙っています。

４７行目「Me.Label1.Font.Size = 12」では、年月表示のラベルのフォントサイズを設定します。

４９～５１行目では、年月移動用のスピンボタンの移動量を定めています。
４９行目「Me.SpinButton1.Max = 1」で最大値を＋１に、５０行目「Me.SpinButton1.Min = -1」で最小値をー１に、そして５１行目「Me.SpinButton1.Value = 0」で初期状態をゼロにしています。
このことで、スピンボタンのプラス側をクリックすれば「１ヶ月カレンダーが進み」、マイナス側をクリックすれば「１ヶ月戻る」ことになります。

５３行目「Me.CommandButton1.Cancel = True」は、隠しているCommandButton1のCancelプロパティをTrueにすることで、「ESCキーを押したらCommandButton1をクリックした」事にすることができます。今回、図６－１０のCommandButton1のClickイベントでは「フォームを閉じる」コードを実行させますので、「ESCキー ＝ カレンダーを閉じる」ことになります。
５５行目「Me.ToggleButton1.Caption = "小"」では、フォームサイズを変更するトグルボタンの表面文字を「小」にしています。トグルボタンは初期値はFalse（凸型＝OFF状態）ですので、「False＝小」としています。
（アプリによっては、クリックした後の状態を表面文字にしているものもありますが、ここでは現状を表す文字としました。）

５７行目「Call FormSizeSet」は図６－１８を呼び出し、ボタンを作成する前に「フォームをサイズ変更」しています。
このInitializeイベント内でこの「サイズ変更」を実行する理由は、「起動時にフォームサイズが変更するのをユーザーに分からないようにする」ためです。図６－６のActivateイベント以降で実行すると、図６－１の横長のフォームが一瞬見えてしまい、その後でカレンダーが表示されます。

Initializeイベントの後で、フォームが表示された直後に発生するのが図６－６のActivateイベントです。

60. '==========　⇩(6)　表示時設定　============
61. Private Sub UserForm_Activate()
62. 　Call makeCal
63. End Sub

図６－６

６２行目「Call makeCal」では図６－１１を呼出し、「フォーム上で、曜日のラベルと日付のボタンを作成」します。
Activateイベントでカレンダーボタン類を作成するのは理由があります。今回フォームカレンダーを閉じるのに「Me.Hide（図６－１０の９６行目）」を使用しています。つまり日付確定した後、再度日付入力のためにフォームカレンダーを開いた時に「選択したセルの日付を正しく反映」するためにActivateイベントでmakeCalプロシージャを実行する必要があるのです。
一方「UnLoad Me」で閉じる場合はmakeCalプロシージャをInitializeイベント内で実行してもOKです。但しその場合は初期状態のフォームで起動されますので、「カレンダーサイズを変更しても、次回起動時は元に戻ってしまう」ことになります。

６－２－２．カレンダー年月の移動

カレンダー上部の年月移動用スピンボタンを操作した時に呼び出されるのが図６－７です。

65. '==========　⇩(7)　スピンボタンの操作　============
66. Private Sub SpinButton1_Change()
67. 　If EventOff = True Then Exit Sub
69. 　dispDay = DateAdd("m", Me.SpinButton1.Value, dispDay)
70. 　Call makeCal
72. 　EventOff = True
73. 　　Me.SpinButton1.Value = 0
74. 　EventOff = False
76. End Sub

図６－７

６７行目「If EventOff = True Then Exit Sub」は、この「SpinButton1_Changeイベントプロシージャ」が再帰呼び出しされた時に、同じカレンダー作成作業を重複して行わないようにするためのものです。
変数EventOffは図６－２の３９行目でBoolean型で宣言されているため、初期値はFalseです。ですので通常は、このIf文が成立しないために６９行目以降のコードを実行してカレンダーを作成します。
しかし７２行目で「EventOff = True」としているため、７３行目でスピンボタンのValue値をゼロに変えた時に発生する「SpinButton1_Changeイベントの再帰呼び出し」の時には、６７行目のIf文が成立して「すぐに再帰呼び出しのプロシージャを抜け出す」ことが出来ます。

６９行目「dispDay = DateAdd("m", Me.SpinButton1.Value, dispDay)」は、新たなカレンダーの年月値を変数dispDayに代入しています。スピンボタンを操作すると、初期値ゼロからMax値の「＋１」またはMin値の「－１」に移動しますので、SpinButton1.Valueは「＋１」または「－１」となります。その値を使いDateAdd関数で、現在表示されているカレンダーの１ヶ月先か前の月の初日を計算しています。

７０行目「Call makeCal」では図６－１１を呼出し、６９行目で値を変更した変数dispDayを使って新たなカレンダーを作成します。

このままではスピンボタンのValue値は「＋１」または「－１」になっていますので、次にスピンボタンをクリックした時にはカレンダーが移動できなくなってしまいます。ですのでValue値をゼロの中立位置に戻す必要があり、それが７３行目「Me.SpinButton1.Value = 0」になります。
しかし上でも説明しましたが、Value値を変更すると再び「SpinButton1_Changeイベントプロシージャ」を呼出してしまいますので、それを避けるために７２行目「EventOff = True」でフラグ変数EventOffをTrueにし、再帰呼び出し先のSpinButton1_Changeイベントプロシージャの６７行目「If EventOff = True Then Exit Sub」で、すぐにプロシージャを抜け出すようにしています。
再帰呼び出し先から戻ってきたら、７４行目「EventOff = False」でフラグを降ろし、次のスピンボタン操作を待ちます。

６－２－３．カレンダーサイズの変更

トグルボタンは、図６－８のように「ボタンの形状」によりValue値が異なります。凸型がFalseで凹型がTrueです。
ボタンが押され（凸→凹、凹→凸）て、そのValue値が変更した時に発生するのが図６－９のClickイベントです。なお、このClickイベントは「ボタンの形状が変わったあと」で発生します。
、
図６－８

78. '==========　⇩(8)　トグルボタンの操作　============
79. Private Sub ToggleButton1_Click()
81. 　Select Case Me.ToggleButton1.Value
82. 　　Case False
83. 　　　Me.ToggleButton1.Caption = "小"
84. 　　　side = 20
85. 　　Case True
86. 　　　Me.ToggleButton1.Caption = "大"
87. 　　　side = 24
88. 　End Select
90. 　Call makeCal
91. 　Call FormSizeSet
92. End Sub

図６－９

８１～８８行目は、トグルボタンのValue値により「トグルボタンの表面文字の変更」と「カレンダーボタン類のサイズの設定」を行います。
８１行目「Select Case Me.ToggleButton1.Value」で、「ボタン形状が変わった後」のトグルボタンのValue値を調べます。
８２行目「Case False」でFalse（凹→凸）の時は、８３行目「Me.ToggleButton1.Caption = "小"」でトグルボタン表面文字列を「小」にし、８４行目「side = 20」で、カレンダーボタン類の一辺のサイズを20ポイントに設定します。
８５行目「Case True」でTrue（凸→凹）の時は、８６行目「Me.ToggleButton1.Caption = "大"」でトグルボタン表面文字列を「大」にし、８７行目「side = 24」で、カレンダーボタン類の一辺のサイズを24ポイントに設定します。

９０行目「Call makeCal」では図６－１１を呼出し、８４行目・８７行目で設定した変数sideの値と、共通変数dispDay（表示年月）を使って「サイズの異なるカレンダー」を作成します。
９１行目「Call FormSizeSet」では図６－１８を呼び出し、カレンダー枠であるフォームのサイズを変更します。

なお９０～９１行目の実行は、どちらが先でも良いのですが、見栄えは少し違います。「FormSizeSet → makeCal」の順番だと「ボタンサイズの変更」と「フォームサイズの変更」が別々に見えますが、図６－９の順番だと「ボタンとフォームが一緒に変更」されているように見えます。
その理由は「FormSizeSet」の処理時間が「makeCal」の約1/10と短い為のようです。PCの性能にもよると思います。

６－２－４．ESCキーでのカレンダー終了

CommandButton1をクリックした時に呼び出されるのが図６－１０です。ただし今回システムでは、CommandButton1はユーザーの見えない部分に隠していますのでクリックできません。
しかし、図６－４の５３行目「Me.CommandButton1.Cancel = True」でキャンセルプロパティを有効にしていますので、ユーザーがESCキーを押した時には図６－１０が呼び出されることになります。

94. '==========　⇩(9)　ESCキーを押した時　============
95. Public Sub CommandButton1_Click()
96. 　Me.Hide
97. '　Unload Me
98. End Sub

図６－１０

９６行目「Me.Hide」で、フォームカレンダーを「隠して」います。Hideを使用することで「ユーザーが選択したカレンダーサイズ」が、次回以降も反映されることになります。
なお、ユーザーがカレンダーの日付ボタンをクリックすると図７－４のmyButton_Clickが呼び出され、その中の２１３行目からもこの図６－１０を直接呼び出しています。つまりカレンダーで日付を選択するとカレンダーが消えることになります。

一方、今回は見え消しにしてある９７行目「Unload Me」を使うと、起動毎にカレンダーサイズも既定サイズに戻ります。どちらが適しているかは、使われる状況によると思います。

６－２－５．カレンダー作成

カレンダーを作成するのが図６－１１です。図６－６の６２行目、図６－７の７０行目、図６－９の９０行目から呼び出されます。

100. '==========　⇩(10)　カレンダー作成　============
101. Sub makeCal()
102. 　Dim Title(1 To 7) As MSForms.Label 　 '←週のタイトル文字列の配列
103. 　Dim i As Integer 　 '←日付のカウンタ変数
104. 　Dim j As Integer 　 '←縦方向の位置のカウンタ変数
105. 　Dim k As Integer 　 '←横方向の位置のカウンタ変数
107. 　Me.Label1.Caption = Format(dispDay, "yyyy年mm月")
109. 　On Error Resume Next
111. 　　For i = 1 To UBound(Barray, 1) + UBound(Title, 1)
112. 　　　Me.Controls.Remove (Me.Controls.Count - 1)
113. 　　Next i
115. 　On Error GoTo 0
117. 　ReDim Barray(1 To Day(DateAdd("m", 1, dispDay) - 1))
119. 　For k = 1 To 7
120. 　　Set Title(k) = _
121. 　　　　　addLBL(cTop, cLeft + (k - 1) * side, side, side, Format(k, "aaa"), side / 1.7)
122. 　Next k
124. 　j = 1
125. 　k = Weekday(dispDay)
127. 　For i = 1 To UBound(Barray, 1)
129. 　　Set Barray(i).Button = _
130. 　　　　　addBTN(cTop + side * j, cLeft + (k - 1) * side, side, side, CStr(i))
132. 　　If k = 1 Then Barray(i).Button.BackColor = RGB(255, 192, 203) 　 '←背景：ピンク色
133. 　　If k = 7 Then Barray(i).Button.BackColor = RGB(173, 216, 230) 　 '←背景：水色
135. 　　If DateAdd("d", i - 1, dispDay) = setDay Then
136. 　　　Barray(i).Button.BackColor = RGB(255, 255, 0)
137. 　　End If
139. 　　If k = 7 Then
140. 　　　j = j + 1
141. 　　　k = 1
142. 　　Else
143. 　　　k = k + 1
144. 　　End If
146. 　Next i
148. End Sub

図６－１１

プロシージャ内で使用する変数は１０２～１０５行目で宣言していますが、その中の１０２行目「Dim Title(1 To 7) As MSForms.Label」は「カレンダータイトルとしての日曜～土曜までの曜日文字列」の配列宣言です。これは図６－２の３５行目で宣言している「カレンダーボタンの配列」Barray()と対をなすものです。
しかしこの曜日の配列は、システム内でのクリック対象にもしていませんし要素数も変化する訳では無いので、配列化は必須ではありません。
もちろん配列を使わない場合は、１１１行目の「曜日の要素数」や、１２０～１２１行目の「関数の呼び出し方」は変更する必要があります。しかし今回は、曜日のタイトルを日付のボタンと同様の扱いとすることで、説明が分かり易くなると考えました。

１０７行目「Me.Label1.Caption = Format(dispDay, "yyyy年mm月")」は、カレンダー年月表示用のラベルに、年月を書き込んでいます。

１１１～１１３行目のFor～Nextでは「古いカレンダーのボタン（＋曜日のラベル）」を削除しています。
これは、カレンダー年月を移動させた際、配列Barrayについては１１７行目のReDimで初期化をしているのですが、ボタンの実体はフォーム上に残ったままです。ですのでボタン類を削除しないと、図６－１２のように「ボタンの上にボタンを積み重ねる」形になり、古い月の日付ボタンが見えてしまいます。

図６－１２

そこで１１１行目「For i = 1 To UBound(Barray, 1) + UBound(Title, 1)」で、カウンタ変数ｉを「ボタンの数」＋「週のラベルの数」だけ回しながら、１１２行目「Me.Controls.Remove (Me.Controls.Count - 1)」でフォーム上に追加した最後のコントロールから削除していきます。For～Nextで前回作った数だけ繰り返すことで、作った全てのコントロールを削除することが出来ます。なおRemoveへのインデックスはゼロ始まりのため「－１」調整しています。

なお、Removeメソッドは「実行時に追加されたコントロールを削除」するものですので、「デザイン時に追加したコントロールを削除しようとするとエラーが発生」します。「実行時に追加」されたものだけをRemoveするために削除する個数を「UBound(Barray, 1) + UBound(Title, 1)」としているのですが、フォームを最初に起動した時には「まだボタンが無い」状態で、配列Barrayの要素数も決まっていません。そのため１１１行目のFor文でエラーが発生してしまうため、１０９行目「On Error Resume Next」でエラーをスルーさせています。
なお、週のラベルは月の移動に無関係なので「毎回削除する必要は無い」のですが、カレンダーサイズ変更の時には必要となりますので、少し無駄ですが今回は毎回削除する仕様としました。

１１７行目「ReDim Barray(1 To Day(DateAdd("m", 1, dispDay) - 1))」では、ボタンを格納する配列Barrayの要素数を設定しています。ボタンの数は、その表示月（dispDay）の月数ですので、DateAdd関数で次月のゼロ日目（＝今月の月末日）の日にちを計算しています。

１１９～１２２行目では「日曜～土曜までの曜日のラベル」を作成しています。
１１９行目「For k = 1 To 7」で、カウンタ変数kを１週間＝７日分だけ回します。
１２０～１２１行目「Set Title(k) = addLBL(cTop, cLeft + (k - 1) * side, side, side, Format(k, "aaa"), side / 1.7)」では、図６－１７のaddLBL関数プロシージャを呼出し、曜日のラベルを作成しています。引数として、図６－１３のように６個を渡しています。

No.	引数名	型	ﾗﾍﾞﾙのﾌﾟﾛﾊﾟﾃｨ
1	T	Single	Top
2	L	Single	Left
3	H	Single	Height
4	W	Single	Width
5	Lname	String	Caption
6	Sz	Single	Font.Size

図６－１３

１番目のTopプロパティには図６－４の４４行目で計算済みの「cTop」を、２番目のLeftプロパティには４３行目で設定したcLeft値を基点にし、ボタンの一辺の長さ（変数side値）分だけ移動（k - 1）しながら並べていきます。またHeight、Widthプロパティは、ボタンの一辺の長さ（side値）にします。

ラベルの文字は「日～土」の各１文字とするのですが、通常は「日～土の文字列の配列」を作って代入していくのが一般的なようです。今回は別な方法として「Format(k, "aaa")：k は 1～7 」という式を使用しています。
VBAでの日付計算は、1899/12/31を１としています（ワークシート側は、1900/1/1がシリアル値 1 ）。運の良いことに、その１を表す「1899/12/31」は「日曜日」なのです。曜日の文字列はFormat(日付, "aaa")で得られますが、日付のところにWeekDay関数と同じく1を入れれば「日」、2を入れれば「月」という文字列が得られる事になります。

６番目の「Font.Size」には、「side / 1.7」という値を代入しています。これは、カレンダーを実際に作ってみて違和感の無いサイズにTry & Errorをして決めました。

１２４行目以降では、日付のボタンを作成しています。
１２４行目「j = 1」は、日付ボタンの行位置の初期値を１と置きます。
１２５行目「k = Weekday(dispDay)」は、カレンダー初日の曜日値を取得し、変数kに代入します。
１２７行目「For i = 1 To UBound(Barray, 1)」は、カウンタ変数ｉを１から表示月の月末日まで回します。つまり変数ｉは「日付」を表す事になります。

１２９～１３０行目「Set Barray(i).Button = addBTN(cTop + side * j, cLeft + (k - 1) * side, side, side, CStr(i))」では、図６－１６のaddBTN関数プロシージャを呼出し、日付ボタンを作成しています。引数として、図６－１４のように５個を渡しています。

No.	引数名	型	ﾎﾞﾀﾝのﾌﾟﾛﾊﾟﾃｨ
1	T	Single	Top
2	L	Single	Left
3	H	Single	Height
4	W	Single	Width
5	Bname	String	Caption

図６－１４

１番目のTopプロパティには図６－４の４４行目で計算済みの「cTop」に対し、ボタンの高さ「side」に行数「j」を掛けた値だけ下に表示させます。またLeft方向は、曜日のラベルと同様に４３行目で計算したcLeft値に、ボタンの一辺の長さ（変数side値）分だけ移動しながら並べていきます。またHeight、Widthプロパティは、ボタンの一辺の長さを指定します。

５番目のボタンのCaptionには「日付」を表示しますので、日付を意味する「変数ｉ」を文字列型に変換（CStr関数）してから指定します。
これらの引数を与えて作られるボタンをクラスのButtonプロパティに設定します。こうする事で、登録したボタンをクリックしたイベントを得られることが出来ます。誤解を恐れずに絵にしてみると図６－１５のような繋がりになり、最終的にボタンのClickイベントを発生させ、どのボタンがクリックされたかを取得することが出来ます。


図６－１５

１３２行目「If k = 1 Then Barray(i).Button.BackColor = RGB(255, 192, 203)」では、k（曜日）が 1（一番左の列＝日曜日）の場合に、ボタンの背景色をピンク色にしています。
１３３行目「If k = 7 Then Barray(i).Button.BackColor = RGB(173, 216, 230)」では、k（曜日）が 7（一番右の列＝土曜日）の場合に、ボタンの背景色を水色にしています。
ここで使っている「Button」は、図７－２の「Public Property Get Button() As Control」の方のプロパティになります。

１３５～１３７行目では、setDay（今日の日付、または日付入力セルに記入されていた日付）をカレンダーのボタンの中から探し、存在したらその日のボタンの背景に色を付けます。
１３５行目「If DateAdd("d", i - 1, dispDay) = setDay Then」で、ボタン上の日付文字列（ｉ）と表示カレンダー初日（dispDay）から「カレンダー上の日付」に変換（イコールの左辺）し、setDay（イコールの右辺）と比較をしています。もしIf文が成立（＝処理している日がsetDay）した時は１３６行目「Barray(i).Button.BackColor = RGB(255, 255, 0)」で、ボタン背景色を黄色にしています。

１３９～１４４行目では、ボタンの位置を移動させるために、位置の変数「j＝行方向」「k＝列方向」を変更しています。
１３９行目「If k = 7 Then」は、現在の列位置が「一番右＝土曜日」だった時に１４０～１４１行目を実行し、それ以外の時（日～金）には１４３行目を実行させます。
１４０行目「j = j + 1」では、行位置を一つ下に移動させます。１４１行目「k = 1」では列位置を一番左（日曜日の列）にします。ちょうどタイプライターのCrLf（キャリッジリターン／ラインフィード）に相当する部分です。右端に達したので「左端に戻し、１行下に移動」させています。

１４３行目「k = k + 1」は、まだ右端に達していないため、一つ右側（列を＋１）に移動させます。

６－２－６．ボタン作成モジュール

図６－１１の１３０行目から呼び出される「ボタンを作成するモジュール」が図６－１６です。５つの引数を受取りますが、その内容は図６－１４の通り、ボタンの位置とサイズを決める値＋ボタン表面の文字列です。

150. '==========　⇩(11)　ボタン作成モジュール　============
151. Private Function addBTN(T As Single, _
152. 　　　　　　　　　　　　L As Single, _
153. 　　　　　　　　　　　　H As Single, _
154. 　　　　　　　　　　　　W As Single, _
155. 　　　　　　　　　　　　Bname As String) As MSForms.CommandButton
157. 　Set addBTN = Me.Controls.Add("Forms.CommandButton.1")
159. 　With addBTN
160. 　　.Top = T
161. 　　.Left = L
162. 　　.Height = H
163. 　　.Width = W
164. 　　.Caption = Bname
165. 　End With
167. End Function

図６－１６

１５７行目「Set addBTN = Me.Controls.Add("Forms.CommandButton.1")」は、このフォーム上（Me）に「CommandButton」を追加します。追加したボタンオブジェクトは、関数の戻り値であるaddBTNにセットします。

１５９～１６５行目では、追加したボタン（１５９行目の「With addBTN」）のプロパティを変更していきます。
１６０行目「.Top = T」では上下方向の位置を、１６１行目「.Left = L」では左右方向の位置を決めます。
１６２行目「.Height = H」ではボタンの高さを、１６３行目「.Width = W」ではボタンの幅を調整します。なお、無指定だと既定値（環境により違う可能性有り）の「高さ24 × 幅72（単位ポイント）」になるようです。
１６４行目「.Caption = Bname」は、ボタン表面文字列（今回は日付）を設定します。

今までの項も含め、別のプロシージャに引数で値を渡す場合は「データ型を合わせて渡す」ようにしています。データ型が合わないとエラーが出て進めないからですが、例えば１３０行目から呼び出すaddBTN関数（図６－１６）の第５引数はString型指定なので、呼び出す側では「CStr(i)」と、Integer型をString型に変換してから渡しています。 この時の受け取る側の指定は「Bname As String」です。byRef か byVal かを指定しない時の既定値は byRef ですので、正確に書くと「byRef Bname As String」です。 これを「byVal Bname As String」として受け取ることにすると、呼び出す側は「型を気にせず」にInteger型のままの「i」を渡せるようになります。呼び出す側でカッコを付けるとbyVal扱いになりますので「(i)」としても同じです。 byValには「値渡し」という機能と共に、自動型変換のような機能もあるようです。 もちろん「byValで渡すと呼び出し元の変数値は変化しない」というのがメインの機能で、この「型変換」という特徴はマイクロソフトのどのページを見ても説明がありませんので「暗黙」の機能のようです。 一見便利そうな機能です。しかしデータ型を気にしている理由の１つは、プログラムのミスを発見できる事だと思っているので、それに目隠しをしてしまうような機能は「何が起こるか分からない怖さ」があります。もしbyValを使用する場合は充分気を付けた方が良いと思います。

６－２－７．ラベル作成モジュール

図６－１１の１２１行目から呼び出される「ラベルを作成するモジュール」が図６－１７です。６つの引数を受取りますが、その内容は図６－１３の通り、ラベルの位置とサイズを決める値＋ラベルの文字列＋フォントサイズです。

169. '==========　⇩(12)　ラベル作成モジュール　============
170. Private Function addLBL(T As Single, _
171. 　　　　　　　　　　　　L As Single, _
172. 　　　　　　　　　　　　H As Single, _
173. 　　　　　　　　　　　　W As Single, _
174. 　　　　　　　　　　　　Lname As String, _
175. 　　　　　　　　　　　　Sz As Single) As MSForms.Label
177. 　Set addLBL = Me.Controls.Add("Forms.Label.1")
179. 　With addLBL
180. 　　.Top = T
181. 　　.Left = L
182. 　　.Height = H
183. 　　.Width = W
184. 　　.Caption = Lname
185. 　　.Font.Size = Sz
186. 　　.TextAlign = fmTextAlignCenter
187. 　End With
189. End Function

図６－１７

１７７行目「Set addLBL = Me.Controls.Add("Forms.Label.1")」は、このフォーム上（Me）に「Label」を追加します。追加したオブジェクトは関数の戻り値であるaddLBLにセットします。

１７９～１８７行目では、追加したラベル（１７９行目「With addLBL」）のプロパティを変更していきます。
１８０行目「.Top = T」では上下方向の位置を、１８１行目「.Left = L」では左右方向の位置を決めます。
１８２行目「.Height = H」ではラベルの高さを、１８３行目「.Width = W」ではラベルの幅を調整します。なお無指定だと既定値（環境により違う可能性有り）の「高さ18 × 幅72（単位ポイント）」になるようです。
１８４行目「.Caption = Lname」では、ラベルの文字列（今回は曜日）を設定します。
１８５行目「.Font.Size = Sz」はラベルのフォントサイズを設定し、１８６行目「.TextAlign = fmTextAlignCenter」では文字位置を中央揃えにしています。最後のTextAlignだけは引数に影響されずに直接指定しています。

６－２－８．フォームサイズ変更モジュール

図６－４の５７行目、図６－９の９１行目から呼び出される「フォームのサイズを変更」するのが図６－１８です。

191. '==========　⇩(13)　フォームサイズ変更　============
192. Private Sub FormSizeSet()
193. 　Me.Height = cTop + 7 * side + cLeft + (Me.Height - Me.InsideHeight)
194. 　Me.Width = cLeft + 7 * side + cLeft + (Me.Width - Me.InsideWidth)
195. End Sub

図６－１８

フォームの各部寸法は、図６－１９のようになっています。

図６－１９

縦方向（図６－１９の左側）については、カレンダーの曜日が始まる高さcTopを図６－４の４４行目で決めています。カレンダーの曜日文字・日付ボタンの高さは変数sideで、合わせて７行分あります。またカレンダーの四隅を同じcLeft値（図６－４の４３行目で指定）とすることで、カレンダーがバランス良く見えます。
なお、フォーム上のコントロールの位置は「InsideHeight、InsideWidthベース」となりますが、設定できるのは「Height、Width」という「フォームの外側の寸法」になります。左右方向は線２本分の幅しか変わりませんが、上下方向はフォームのタイトル部があり、約30ポイントもの差がありますので無視する事はできません。

そこで１９３行目「Me.Height = cTop + 7 * side + cLeft + (Me.Height - Me.InsideHeight)」では、差である「Me.Height - Me.InsideHeight」を加えた値を、フォーム全体の高さとして設定します。
また左右方向（図６－１９の右側）も、１９４行目「Me.Width = cLeft + 7 * side + cLeft + (Me.Width - Me.InsideWidth)」と、差「Me.Width - Me.InsideWidth」を加えた値を幅に設定しています。

７．クラスモジュール（Class1）

７－１．ボタンオブジェクトの設定

クラスモジュール宣言部では図７－１のように、ボタンのイベントを取得するためにWithEventsの宣言をしています。
１９８行目「Private WithEvents myButton As MSForms.CommandButton」では、オブジェクト変数myButtonを「MSForms.CommandButton」の型として宣言しています。そして図６－２の３５行目「Dim Barray() As New Class1」でオブジェクトを生成し、図６－１１の１２９～１３０行目「Set Barray(i).Button = addBTN(・・・)」で日付ボタンを登録することで、図７－４の「myButton_Clickイベント」が使えるようになります。

197. '==========　⇩(14)　WithEventsの宣言　============
198. Private WithEvents myButton As MSForms.CommandButton

図７－１

プロパティの値を取得するプロシージャが図７－２です。
本システムで言えば、例えば図６－１１の１３６行目で「Barray(i).Button.BackColor = RGB(255, 255, 0)」と「本日のボタン背景を黄色」に設定していますが、クラス側から見れば黄色の背景色プロパティを取得していることになります。

200. '==========　⇩(15)　プロパティ値の取得　===========
201. Public Property Get Button() As Control
202. 　Set Button = myButton
203. End Property

図７－２

プロパティのオブジェクトを設定するプロシージャが図７－３です。引数として「オブジェクトへの参照を表す変数addBTN」を指定します。
本システムで言えば、図６－１１の１２９～１３０行目で「Set Barray(i).Button = addBTN(・・・)」と、作成したボタンオブジェクトを登録（＝設定）します。

205. '==========　⇩(16)　プロパティのオブジェクトを設定　============
206. Public Property Set Button(ByVal addBTN As Control)
207. 　Set myButton = addBTN
208. End Property

図７－３

７－２．クラスに登録されたボタンのClickイベント

登録したボタン（＝カレンダーの日付ボタン）をクリックした時に呼び出されるのが図７－４のイベントプロシージャです。カレンダーの日付をクリックしたのですから、フォームカレンダーの役割は終了し、クリックされた日付を戻すことになります。

210. '==========　⇩(17)　ボタンのClickイベント　============
211. Private Sub myButton_Click()
212. 　OrgValue = dispDay + CInt(myButton.Caption) - 1
213. 　Call UserForm1.CommandButton1_Click
214. End Sub

図７－４

このmyButton_Clickでは、クリックされたボタンの表面文字列を「myButton.Caption」として取得することが出来ます。他にはクリックしたボタンの位置なども取得できますが、今回は「ボタン上の日付は重複しない」ので表面文字列を使用します。
２１２行目「OrgValue = dispDay + CInt(myButton.Caption) - 1」では、そのボタン表面の日付文字列をCInt関数で数値に変換し、表示カレンダーの初日（dispDay：Date型）に加えることで「クリックされたボタンの年月日」を計算し、共通変数OrgValueに代入します。

２１３行目「Call UserForm1.CommandButton1_Click」では、図６－１０を呼び出し、フォームカレンダーを終了させます。すると制御は図５－２の３１行目「CalSelect = OrgValue」に移り、２１２行目で代入した日付がワークシートのSelectionChangeイベントに戻ります。
最後に図４－２の６行目「Target(1).Value = Workbooks("it-078.xlam").Application.Run("CalSelect", Target(1))」で戻り値（日付）を選択したセルに書き込みます。

８．アドインとしてExcelにマクロを登録

このマクロ付ファイル（サンプルファイル）をExcelのアドインに登録することで、今回の「フォームカレンダー」を他のブックから呼び出して使うことが出来ます。アドイン方法については「年賀状リスト等の宛名検索と追記　アドイン登録」を参照下さい。
なお、ボタンを押して何かを実行するシステムではないので、「アドイン保存したファイル名を有効にする」まででOKです。

９．最後に

日程を管理するアプリの検討を始めると、すぐに「日付をどうやって入力するか」の問題に突き当たります。アプリに適したカレンダーをその都度作っていたら大変ですので、その解決策の１つが今回の「マクロ側から日付ボタンを並べる」カレンダーになるのでは、と思います。
今回はボタンのサイズを変えるだけの内容でしたが、工夫すれば複数ヶ月のカレンダーも可能でしょうし、またカレンダー以外にも簡単な棒グラフや表くらいなら作れそうに思えます。


ボタンを自動生成するフォームカレンダー（it-078.xlsm）

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