エクセルVBAのユーザーフォームを使って自作カレンダーを作る方法

私自身2017年12月まで使っていたエクセル2007には、標準機能として日付を入力するためのカレンダーコントロールがあり、日付入力が簡単でしたが、現在はなくなっています。

エクセルを使っていて日付を入力する事って多くあり、テンキーなどを使う作業って意外と面倒ですよね。そこでボタンを押したら日付が入力されるようにオリジナルカレンダーを作る方法をご紹介します。

かつての日付入力はカレンダーコントロールが便利だった

オフィス2007プロフェッショナルに付いているエクセル2007のみ使えたカレンダーコントロールなので、それ以外のエクセルでは動きません。

アップグレード版のオフィス2013プロフェッショナルやオフィス2016プロフェッショナルをインストールした場合は、現在2024年9月でも動いていますが、使用をおススメはしません。（ネットにつながない状態で確認済）

オフィス自体も当時のバージョンのエクセル自体サポートが終了しているので、セキュリティー上も危険なので使わない方がいいですよ。

そこでカレンダーをユーザーフォームを使って作ってみましょう。

カレンダーを自作しよう

エクセルでカレンダーを作るだけならば、様々な数式を使って作る事はができますが、カレンダーコントロールの代用として作ろうと思うとかなり大変です。

そこで、エクセル🔰でも多少のVBAの知識とエクセル関数を組み合わせることによって、比較的簡単に自作カレンダーを作ることができますよ。

そして多少なりともVBA知識が習得したら追記という形で、VBAコードに置き換えてできる方法を併記しています。

では、実際にエクセルVBAとエクセル関数を組み合わせて自作カレンダーの作り方をご紹介します。

カレンダー準備（ワークシート上）

初心者がカレンダーを作る為には、ワークシートにカレンダーをエクセル関数を使って作成しておくことで、マクロ上での作業を減らすことができるので難易度が低くなります。

カレンダーといっても基本操作はユーザーフォームで行うので、ワークシートの余白でもどこでもいいので、後から付け足すことも簡単ですよ。

最初にカレンダーの日付リストを作りますので、ここではセルA1からではなく空いていたセルBG1から始まっています。

エクセルVBAの知識がまだまだ🔰の頃は、このようにワークシートに事前準備することで、自作カレンダーを作ることができました。

ちょっとVBAの知識を習得できたら、ここに記載しているワークシート上に日付（年月日）を用意する方法ですが、コンボボックスを利用して西暦を現在日付から自動取得させることもできるようになりました。

話を戻して、緑色のセルに日付に関するエクセル関数が入っていますのでその説明をします。

DATE関数で日付を自動表示

日付を自動的に表示するエクセル関数が【DATE関数】で、「年・月・日」を3つの数字、言い換えれば3か所のセルの値から組み合わせて日付表示をしてくれるエクセル関数です。

その為にセルの値が変われば、自動的に日付が変更されるので便利な関数なので、先ほどの図のようにセルBG2とセルBG3の値が変わればセルBG1が変わるので、列BKも変わり、ユーザーフォームの日付も自動的に変わってくれるよいう仕組みなのです。

ここでは、年・月しか入力しないので、日は常に1日とします。そうすると・・・

「=DATE(年,月,日)」となるので、図を参考にすると「=DATE(BG2,BG3,1)」になります。

WEEKDAY関数で日付と曜日を自動修正

日付自動表示ができたら、次は日付と曜日を【WEEKDAY関数】で自動修正しましょう。

最初、何も考えずシンプルにセルBG1の日付を列BK1から順にコピーしても日付も曜日も思い通りに表示されません。

最初のワークシートの図で説明するとBK6に2018年6月1日が表示されなくてはいけないので、BK1は2018年5月27日にすればいいのです。

その為に6月1日から引いてあげましょう。

「=BG1-WEEKDAY(BG1)」とすると2018/5/26になります。

正しく表示されませんね。

当たり前で、6月1日から6を引いたからで引き過ぎなのです。

6番目が6月1日なので、本当は5を引けばいいのですがWEEKDAY関数は先ほどもお話しした通り、あくまでも曜日を数値化して返すので無理なんです。

それならば、1引きすぎたので、単純に1を足してあげれば完了です。そこで、こうすればいいのです。

「=BG1-WEEKDAY(BG1)+1」になります。

あとは、BK2からBK42までは、上の数字に1を足すだけでいいので、セルBK2には「=BK1+1」になります。

セルBK3には「=BK2+1」・・・セルBK42には「=BK41+1」です。

ただ、このままだと表示が2018/6/1とカレンダー表示に必要のない年・月があるので、表示を日付だけにします。

ユーザーフォームの設定

カレンダーの土台はすでに完成したので、次はユーザーフォームを使ってVBAコードを書いていきますが、ユーザーフォームについての詳細はここでは省略します。

年・月をコンボボックスで作成

カレンダーで日付選択する時には、年・月はある程度決まっている事が多いので、テキストボックスに数字を毎回入力するよりはリストから選んだ方が確実です。

例えばスケジュールの入力や商品仕入れであれば、過去はあまりないので2018・2019・2020ぐらいでいいでしょうし、まして月は1月～12月と決まっています。

そこでコンボボックスを配置し、データ元（プロパティRowSource）はBI2:BI4が年でBI7:BI18が月で設定するだけなので、年を変えるならばこの部分を変更するだけでいつでも変えることができます。

42個のコマンドボタンを配置

一番面倒で地味な作業ですが、カレンダーで日付表示をする為にコマンドボタンを1週間分×6週で42個並べます。

そしてちょうどいい大きさにして、綺麗に並べて、キャプションを全て消して地味な作業を繰り返します。

完成したカレンダーの画像で説明すると、CommandButton1は一番左上5月27日（日）になり、あとは日付順にCommandbutton2・・・最後一番右下7月7日（土）はCommandButton42となっています。

【日付表示】ボタンを押すことにより、この42個のコマンドボタンの日付表示が自動的に当該月の日付表示になります。

そして、各ボタンにも地味にコードを入れなくてはいけません。

これでCommandButton1を押すとセルA1にセルBK1の値（日付）が転記されます。

面倒なのですが、コマンドボタン2の時はBK2と書き換えて最後のコマンドボタン42までこの作業を行います。

これにより、選んだ日付は必ずA1セルに転記されてくれるので、【決定】ボタンで好きなように指示ができるので、応用範囲が増えます。

カレンダーに表示された日付を押すと指定したセルに日付が転記（表示）されるので完成しました。

この時に、転記するセルやシートによって画面がちらつくのでちらつき防止のVBAコードを書き足しておく方法もありますが、詳細はここでは省略します。

【日付表示】ボタンでカレンダー自動表示

コンボボックスで選んだ年・月をワークシートのセルBG2とBG3に転記して日付をユーザーフォーム上に表示させるコマンドボタンです。

この【日付表示】ボタン（コマンドボタン43）には下記コードが書いてあります。

繰り返し処理を使わずにRange(“BL1”).Value = Day(Range(“BK1”).Value)を42回繰り返しても可能ですが、面倒で大変なのでFor～Nextを使った方が簡単ですよ。

また、コマンドボタンのキャプションも一緒ですね。

もう少し知識があれば、7・8・9行目の処理が必要なくなるのですが、私の現状レベルでは年月日でWEEKDAY関数で表示だけ日付にしていても、コマンドボタンに転記すると「2018/0601」となってしまうので、やむなくこのコードを入れて、WEEKDAY関数のセルの隣に日だけ取り出した値を記載させてからコマンドボタンに表示させると「2018/6/1」が「1」となってくれました。

日付転記の【決定】ボタン

アレンジの一つです。日付を縦に続けて（例えばセルA3から順番に決定ボタンを押した分入力済み最終セルと取得して最終行の下に）転記するコードを記載してみましょう。

例えば日付を選んだらセルA1に転記されている前提で最終行に追記する方法でセルA2には「日付」と入力されています。

間違った時の取消ボタン

アレンジのひとつで、連続して入力した時に間違ってボタンを押してしまったり修正したいときに1行上に戻って再入力する為のVBAコードです。

土日に色を付けて完成

本音を言うと祝日設定ができるように自分のエクセルVBAの知識があればいいのだけれど、そこまでのレベルにはまだまだ達していないので、条件におじて日付の色を変更するなんてできません。

そこで、ちょっとだけでもカレンダーっぽくしたいので土日に色を付ける事にしました。

土曜日は青色、日曜日は赤色。

条件が無いので、初歩的なラベルやコマンドボタンのプロパティで簡単に変更できます。

これで多少なりとも見栄え良くなったかな？

こんな感じでエクセルで作った自作カレンダーを利用しています。

祝日対応カレンダーフォーム

自作カレンダーフォームを作ってから約3年、コロナ禍でヒマになってしまいエクセルと向き合う時間が増えたというより、人員カットで一人当たりの作業が倍増してさらに作業時間を短縮しないと回らなくなったという状態。

そういえば、カレンダーフォームが祝日対応していないのでカレンダーをパソコンの横に置いて作業するという手間を解消しようと祝日対応カレンダーフォーム作成に挑戦してみました。

案の定、まだまだ全てをVBAで行うレベルではないので、祝日リストのみワークシートに準備することで祝日対応カレンダーフォームが完成したので、次のページでご紹介します。

左が先ほどまで紹介していたワークシートに日付取得などエクセル関数を活用して作成した2018年当時作成のカレンダーで、右が今回作成した祝日対応して2月以外の日付は不要なので消去したカレンダーです。

前回と見た目はそんなに変わらないのですが、祝日が赤色で表示できるようになり当月以外の日にちが非表示になった点が改良点です。

そして今回はワークシートには計算式など使わず、ワークシートには祝日リストのみ作成していますが、これも過去・未来の祝日を自動的に取得することは現状のVBA知識レベルではムリなのでリスト化しました。

また、VBAコードをまとめるだけの知識レベルではないので、作業手順ごとにコードを書いていたら長くなってしまいましたが、作業ブロックごとに分かれているのでそんなに難しくないと思います。

ユーザーフォームを表示した時にカレンダーを表示するVBAコードで、長くて見るのもイヤになるかもしれませんが、ざっくりとした流れは以下の通りです。

1. UserForm_Initializeで表示した時にVBAコードが働きます
2. コンボボックスに年・月をリスト化
3. これから使用する変数を準備
4. 各コマンドボタンの文字を空欄➡黒色➡当月日付を曜日表示
5. 日曜は赤文字、土曜は青文字
6. 各コマンドボタンの文字を空欄➡シリアル値表示
7. 各コマンドボタンの文字（シリアル値の日付）が祝日リストにあったら赤文字
8. 再度各コマンドボタンの文字を空欄
9. 今月だけ各コマンドボタンの文字を日で表示する

そしてこのVBAコードの1番の部分以外を【日付表示】ボタンにコピーして書いておくと、コンボボックスで別の年・月を選ぶと表示も変わります。

それでは、順に祝日対応カレンダーフォーム作成VBAコードの説明をします。

現在の日付から西暦と月をリスト化

ユーザーフォームが開いた瞬間にパソコンの時計機能を利用して、コンボボックスに西暦と月をリスト化して既定値にします。

詳しくは「コンボボックスに現在の日付から西暦だけを新しい順に表示する」ページに記載しているので、内容が重複するのでここでは省略します。

画像のように2つのコンボボックスに、上記VBAコードでユーザーフォームが開いたら、西暦と月が表示されます。

通常はこのように西暦と月が表示されたら同時に画像のように各コマンドボタンに日付と色が表示されるように続けてVBAコードを書きたいものですが、そうすると祝日設定や不要な1月31日・3月1日～8日までも表示されてしまうので、次のブロックでは計算式を変数にして、繰り返し処理で使えるように準備しています。

必要項目を変数に置き換える

日付表示をさせるコマンドボタンは当初は42個用意しましたが、実際には最大37個で足りるので今回は37個に減らしています。

そしてこのコマンドボタンに最初から日だけを取り出して表示させてしまうと、ただの数字になってしまい、日付で曜日・祝日・先月・当月・翌月の判断をすることが難しくなります。

そこで、以下の7つの変数を用意してコマンドボタンのキャプションを利用して、曜日・祝日・先月・当月・翌月を判断できるようにします。

ちなみに変数のアルファベットは何でもいいので自分で分かるようにすればいいですよ。

変数「ｙ」

コンボボックス1で選択された西暦（年）を「ｙ」と指定する

変数「ｍ」

コンボボックス2で選択された月を「ｍ」と指定する

変数「ｗ」

DateSerial関数を使用することにより、コンボボックスで選択された西暦（年）、月、１とすることにより、当月1日を取得できる

変数「ｃ」

変数「ｗ」から曜日を表す番号を引いて+１することで、先月末を取得します

変数「ｄｓ」

変数「ｗ」の曜日番号を取得して、当月は何曜日が1日なのかを表します。

変数「ｄｅ」

DateSerial関数を使用することにより、コンボボックスで選択された西暦（年）、月+1、１とすることにより、翌月1日を取得して-1をすることで当月末日を取得できます。

変数「ｄｃ」

変数「ｄｅ」（当月末日）から変数「ｗ」（当月1日）を引くことにより、今月の日数を表します。

曜日を取得する

最初のブロックは、日付表示する37個のコマンドボタンに日曜日は赤色文字、土曜日は青色文字で表示させてそれ以外は黒色文字にする為の準備です。

※For i = 1 To 37とNext iで上記コードを挟み込みますが、説明上省略して部分的に記載しています。

これで全てのコマンドボタンが下記の図のように、曜日番号で表示させることができます。

あと、次に日曜日を表す1番を赤色にして土曜日を表す7番を青色に変えれば祝日以外の色がカレンダーっぽくなりますね。

曜日番号というものがエクセルにはありますので詳細は下記をご覧くださいませ。

日曜は赤文字、土曜は青文字にする

色を変える方法は2つあり、Ifステートメントでもし～だったら、そうでなかったら・・とすることもできますが、今回はSelect Caseを使っています。

これで、日曜日と土曜日の文字色が変わりましたが、プロパティで設定すれば？と思ったかもしれません。

実は最初はそのようにしたのですが、祝日が土曜日になった時にプロパティが優先されて赤色にならな方ので、この方法に変更しました。

このようにラベルやコマンドボタンなど好みの色に変更することができ、基本となる56色の色見本を用意しました。

各コマンドボタンの文字を空欄にしてシリアル値表示切替

曜日番号で表示されている状態の各コマンドボタンの文字を一旦消去して、祝日を見つけられるように日付をシリアル値にしてボタンに表示させます。

これで、コマンドボタン1には1月31日のシリアル値からスタートして、順に最後のコマンドボタン37には3月8日となっています。

これで、祝日リストと同じシリアル値があったら赤色文字に変更することで祝日対応ができるようになります。

各ボタンの文字（シリアル値の日付）が祝日リストにあったら赤文字

まず最初にワークシートに祝日のリストを作りますが、カレンダーで調べて祝日をリストアップするのは大変なので、内閣府のホームページにCSVファイルで祝日がリスト化されているので、ダウンロードしてワークシートに貼り付けます。

ダウンロードしたCSVファイルの祝日は1955年～2022年までがリスト化されていますので、ここではセルA列に張り付けて、シリアル値にしています。

そして、貼り付けているシート名を「CSV」として、カレンダーフォームのコマンドボタンのシリアル値と一致したら祝日とします。

シリアル値のままですが、これで祝日の表示となるコマンドボタンの文字色が赤色に変更でき、祝日対応できるようになりました。

シリアル値を日に変えて再表示する

最後にシリアル値で表示されている各コマンドボタンの表示文字を消去して、当月1日～当月末日のみをコマンドボタンに表示させます。

今月1日や月末日を自動取得する方法は下記をご覧くださいませ。

ここで当月のみ表示させるために、コマンドボタン１～37で変数を使ってしまうと1月と3月まで表示されるので、変数「ds」を１の代わりにして、当月最初の曜日番号から当月最初の曜日番号+月末までとします。

そしてDay(c + i – 1)で日付から日だけ取り出して表示させて完成です。

これで祝日対応のカレンダーフォームが出来上がりました。

あとは、各コマンドボタンをクリックしたら、指定したセルに記述するようにVBAコードを書き込めば完成です。

このような方法で自作カレンダーを作成する事ができるようになりますので、ぜひ挑戦してみてくださいね。

ちなみに日付を取り扱うことがエクセルを使っていれば多くなると思いますので、セルの値から取得する方法など下記にまとめていますので、参考にいかがですか？

また、今回は西暦表示でしたが、和暦表示もちょっと工夫をすれば表示リスト化できますよ。