【事例で学ぶExcel VBA #2】縦型の簡易版スケジュール表を作成する

ツールの全体像

「メニュー」シート（ユーザーフォーム未使用）

「原本」シート

まずは任意のエクセルシートを開いて、上記のシートを各々作成しておきます。

「メニュー」シートにはマクロ実行用の「シート作成・コピー」ボタンも

配置しておきます。本ツールのVBAコードは以下の通りです。

※なお事例紹介用のツールのため、今回は入力日付の整合性等のエラーチェックは

敢えて外して掲載しています。ご了承くださいませm(_ _)m

VBAコード ※パソコンでの閲覧推奨

Option Explicit
'===================================================
'ツール名：縦型の簡易版スケジュール表作成ツール
　　　　（まえきんブログ掲載用にカスタマイズ）
'作成日：2022/03/05
'処理概要：縦型の簡易版スケジュール表作成
'付属機能：なし
'作成者：まえきん
'===================================================
'===================================================
'定数宣言
'===================================================
Const SheetName1 As String = "メニュー"
Const SheetName2 As String = "原本"
'===================================================
'関数名　：メイン関数（シート作成・コピーボタン）
'処理内容：スケジュールシートの作成・出力
'トリガー：シート作成・コピーボタンを押下した際にコールされる
'引数　　：なし
'戻り値　：なし
'===================================================
Private Sub CommandButton1_Click()
'----------
'変数宣言
'----------
Dim sDate As String '入力年月日
Dim sLast As String '末日
Dim sLastDay As Integer  '末日の日のみ
Dim Day As String  'スケジュール表.日付
Dim Week As String  'スケジュール表.曜日
Dim i As Integer  'ループ変数
With Worksheets(SheetName1) 'シート名省略
'入力年月日セット
sDate = Format(.Cells(7, 3).Value, "yyyy/m/d")
'----------
'月の日数取得
'----------
'翌月１日の前日（月の日数）を取得
sLast = DateSerial(Year(sDate), Month(sDate) + 1, 0)
'月の日数のみを取得
sLastDay = Format(sLast, "d")
End With
With Worksheets(SheetName2) 'シート名省略
'----------
'スケジュールタイトルセット
'----------
.Cells(1, 1).Value = Format(sDate, "yyyy年m月")
'----------
'スケジュール表作成
'----------
'日付初期化
Day = 1
'曜日初期化
Week = Weekday(sDate)
'スケジュール表出力
For i = 1 To sLastDay
'----------
'日付出力
'----------
.Cells(i + 3, 1).Value = Day
'----------
'曜日出力
'----------
.Cells(i + 3, 2).Value = WeekdayName(Week, True)
'土曜日（"7"）の場合
If Week = "7" Then
'日曜日（"0"）リセット
Week = 0
End If
'----------
' 改行処理
'----------
'日付リセット
Day = Day + 1
'曜日リセット
Week = Week + 1
Next i
'----------
'シート保存
'----------
'末尾にコピー
.Copy After:=Worksheets(Worksheets.Count)
'シート名をセット
ActiveSheet.Name = Format(sDate, "yyyymm")
End With
'----------
'処理完了通知
'----------
'処理完了メッセージを表示
MsgBox "スケジュール表の作成が完了しました！"
End Sub

VBAコード解説

月の日数取得

まず「メニュー」シートの「年月設定」欄に入力された年月日情報から該当月の

「日数」を取得します。例えば、記事の投稿月である3月を例に見ていきます。

3月の日数は31日です。DateSerial関数により翌月１日の前日（月の日数）を取得

するようにしています。Format関数で後続の処理に必要な月数の部分のみを取得し、

それを変数「sLastDay」に格納しています。これについては、後述する

「スケジュール表作成」の部分で触れていくことにします。

スケジュールタイトルセット

ここでは、「メニュー」シートの「年月設定」欄に入力された年月日情報を

基にスケジュール表のタイトルを設定します。ここでは「”yyyy年m月”」形式で

表示されるように実装しています。今回の事例でいうと「2022年3月」になります。

ちなみにこのタイトルは「原本」シートのA1セルに出力されるように設定しています。

スケジュール表作成

ここからは、実際にスケジュール表を作成する機能を実装しています。

For文で1行（1日）ずつ日にちとそれに紐づく曜日をカウントアップしていくわけ

ですが、ここで質問です。何回までループを回せばいいでしょうか。そう、今回の

場合は31回です。通常であれば、数字を直打ちして「For i = 1 To 31」で設定すれば

一応実現はできますが、これでは月の数が「31」の月しか対応が出来ません。

VBAのツールとしての汎用性に欠けます。ここで、序盤の処理（月の日数取得）で

仕込んだ変数「sLastDay」の出番になります。この変数には「メニュー」シートで

入力した年月日の内容に応じた月の日数が格納されるため、ループの終わりを動的に

設定できます。ここがミソです！

シート保存

「原本」シートを基に作成したスケジュール表を別シートにシート名を付与したうえで

コピーして新しくシート出力する処理を記述しています。ここでは「.Copy After:」

の部分で新規で作成したシートを末尾に出力、「ActiveSheet.Name」の部分で

シート名を付与しています。ここではFormat関数を使用して「”yyyymm”」形式で

指定します。ちなみに、今回の事例でいうと「202203」になります。

ツールの実行手順

①「メニュー」シートの「年月設定」欄に作成したい月を
YYYY/MM/DD形式（月初）で入力
※冒頭のツールの全体像のイメージ図参照

②「シート作成・コピー」ボタンを押下する

実際にマクロを実行すると以下のような結果になります。

マクロ実行結果

「202203」シートが新規追加

処理完了通知

上記の通り、結果が得られましたでしょうか😊

今回ご紹介したこのツールもほんの一例でしかないので、カスタマイズして

使いやすくしていくのもVBAのスキルアップの一環になるのでよいと思います。

今回はこれで以上です😊

最後まで読んで頂きありがとうございました！ではまた！