第168話　ロジックを考えるのは楽しい

　167話から始まったかずのExcel　VBAプログラミングの目的は，カレンダー作成を自動化すること。前回はユーザーフォームを作り，年，月をテキストボックスに入力し，コマンドボタンをクリックすると，年と月の値が正しいかどうかチェックするところまでで，あっさり終わった。実は翌日が陸上部の大会だったのだ。

　100Mと200M走に出場するかずを，作りかけの高速道路の無料の1区間をそれなりに飛ばして，応援に行った。それにしても北陸の高速道路はどうしてこう曲がりくねっているのか。カーブの中に申し訳程度に直線がある。

　「1年男子200M決勝」とアナウンスが流れ，出場者の名前が呼び上げられる。かずが手を上げて応える。なんか，かっこいいが，実は5名しかエントリーしていないので，予選なし全員決勝進出で，それにもかかわらずレーンはいくつも空いているのだ。オリンピックで末續選手や朝原選手が，がんばっているのに陸上はもう一つ人気がないのか。

　よーい，スタート。ひとり速い子がいて，あとは団子でゴニョゴニョとゴールして3位。めでたし。めでたし（ビリだと，かける言葉を探さなくてはいけない）。

　VBAでカレンダープログラムもゴールに向けてトントンと進んでいく。先に完成したイメージから見てください。

　枠と曜日は先に書き込んであり，指定した年月の日を書き込んでいくことが，主な処理である。

　「まず，どこのセルに1を入れるか，一日（ついたち）の曜日を取得する必要がある」と説明を始めたが，その前に「セルとは一つひとつのマスのこと」だとか，関数は「Functionに続けて関数名を書き，えーっ，引数をとって，値を返すことができる」というところから説明をはじめなくてはいけない。モーグで紹介されている関数を参考に作ってみせた。

-------------------------------------------------------------------------
 
Function 曜日取得(myYear As Integer, myMonth As Integer) As Integer
　Dim MyDate As Date
　MyDate = myYear & "/" & myMonth & "/1"
　曜日取得 = Weekday(MyDate)
End Function

---------------------------------------------------------------

-------------------------------------------------------------------------
 
Function 月末日取得(myYear As Integer, myMonth As Integer) As Integer
　Dim myDay As String
　myDay = myYear & "/" & myMonth & "/1"
　月末日取得 = Day(DateAdd("d", -1, DateAdd("m", 1, myDay)))
End Function

---------------------------------------------------------------

-------------------------------------------------------------------------

Sub カレンダー()
　Dim 開始曜日 As Integer
　Dim Now曜日 As Integer
　Dim 行NO  As Integer
　Dim Now日 As Integer
　Range("A1") = UserForm1.txt年 & "年" & UserForm1.txt月 & "月"
　Range("A4:G8") = ""
　開始曜日 = 曜日取得(Val(UserForm1.txt年), Val(UserForm1.txt月))
　行NO = 4
　Now日 = 1
　Now曜日 = 開始曜日
　For Now日 = 1 To 月末日取得(Val(UserForm1.txt年), Val(UserForm1.txt月))
　　Cells(行NO, Now曜日) = Now日
　　If Now曜日 Mod 7 = 0 Then
　　　行NO = 行NO + 1
　　　Now曜日 = 1
　　Else
　　　Now曜日 = Now曜日 + 1
　　End If
　Next Now日
End Sub

---------------------------------------------------------------

-------------------------------------------------------------------------

Private Sub Workbook_Open()
　UserForm1.Show
End Sub

---------------------------------------------------------------