2020/07/14

CSVファイルでデータを読み書きする月間予定表

「年月をスクロールバーで選択する予定表ひな型」の後編

• １．背景
• ２．概要
• ３．プログラム
• ４．フォームへのコントロールの配置
• 　４－１．年月設定ダイアログ（UserForm１）
• 　４－２．予定データ追加修正ダイアログ（UserForm２）
• ５．フォームコード
• 　５－１．年月設定ダイアログ（UserForm１）
• 　５－２．予定データ追加修正ダイアログ（UserForm２）
• 　　５－２－１．フォーム内共有変数の宣言
• 　　５－２－２．フォームの起動
• 　　５－２－３．フォーム起動時の初期化（Initialize　及び　Activate）
• 　　５－２－４．ダイアログのTextBoxにデータを表示
• 　　５－２－５．スクロールバー操作時の動作
• 　　５－２ー６．TextBoxを変更した時のDictionaryデータの追加修正
• 　　５－２ー７．「ファイル書込・終了」ボタンの動作
• 　　５－２ー８．「Cancel」ボタンの動作
• 　　５－２ー９．ダイアログ右上×印の動作
• ６．標準モジュールのコード
• 　６－１．カレンダーの作成（Module１）
• 　６－２．CSVファイルとのやり取り（Module２）
• 　　６－２－１．モジュール定数・変数の宣言
• 　　６－２－２．「データ追加修正」ボタンによる実行
• 　　６－２－３．CSVファイルからデータを読み取り
• 　　６－２－４．CSVファイルにデータを書き込む
• 　　６－２－５．CSVファイルを新作する
• 　　６－２－６．CSVファイルを削除
• 　　６－２－７．CSVファイルの名前の変更
• 　　６－２－８．文字列をDelimiter(単文字列)で区切り、配列で返す
• 　　６－２－９．文字列をDelimiter(複数文字列可)で区切り、配列で返す
• ７．最後に

１．背景

小さなグループ内の共通の会議や打合せは、日付形式のホワイトボードに書き込まれたり、OutLookの様な日程アプリで管理する事も多いかと思います。また、自前のホームページ上に表示している場合もあるかもしれません。
しかしその運営面を考えてみると、ホワイトボードでは近くの人で無いと見えませんし、アプリやホームページ維持にはお金もメンテナンス技術も必要です。
今回紹介する「Excelマクロ＋CSVファイル」なら、共有のファイルサーバーさえあれば皆で見たり書き込めたりが出来ます。
また、データ先としてCSVファイルを使用する事で、Excel以外の様々なツールで読み書き出来るため、例えば「Excelでデータ追加・修正して閲覧はブラウザを使う」等、使い方にも幅が出てくると思います。

２．概要

今回紹介するのは、図２－１の様な「日毎の予定を表示したカレンダー」です。

図２－１

前回「年月をスクロールバーで選択する予定表ひな型」では、「カレンダー型予定表のひな型」を紹介しました。日付の下にデータ記入行はあらかじめ設定しておきましたが、データは入っておらず空欄でした。
今回はCSVファイルからデータを読み書きすることで、そのデータ記入行にデータを入れた状態でカレンダーを閲覧できるようにしました。

また、データの書き換えは、右上の「データ追加・修正」ボタンで起動するダイアログ上で行います。ダイアログの中では、追加変更する日付をスクロールバーで選択し、テキストボックスの中で追加修正を行います。
追加修正が完了したら「ファイル書込み」ボタンによりCSVファイルを書き換え、変更内容は表示しているカレンダーに反映されます。

カレンダーの年月は「前月」「次月」ボタンでの１か月移動に加え、図２－２のように１年先までスクロールバーで一発選択できるようになっています。（カレンダー年月移動については、前編を参照下さい）

図２－２

３．プログラム

今回の内容は、前編「年月をスクロールバーで選択する予定表ひな型」の後編です。カレンダーを表示する部分は、前編をほぼそのまま使用しているため説明は極簡単にし、追加した「CSVファイルとのやり取り」「データ記入ダイアログ」の部分を中心に説明していきます。
カレンダー部分の詳細については、前編を参照してください。

尚、プログラム的には前編と区別できるように、「CSVファイルとのやり取り」については Module２ に、「データ記入ダイアログ」は UserForm２ にコードを記載し、前編（Module１、UserForm１）と分けました。

４．フォームへのコントロールの配置

４－１．年月設定ダイアログ（UserForm１）

年月設定ダイアログのUserForm１は、各コントロールをフォーム上に図４－１のように配置します。

図４－１

４－２．予定データ追加修正ダイアログ（UserForm２）

予定データ追加修正ダイアログのUserForm２は、各コントロールをフォーム上に図４－２のように配置します。

図４－２

ボタン表面の文字は、配置時に変更しています。その他についてはInitialize等でプロパティを変更しています。

５．フォームコード

５－１．年月設定ダイアログ（UserForm１）

年月を設定するダイアログ（UserForm1）のコードは図５－２です。

流れを簡単に説明すると図５－１のようになります。
年月変更ボタンのクリックにより、Module１経由でUserForm１が起動します。フォーム内では、共有変数Tdateをコントロール間でやり取りして設定する年月表示を行い、年月が決定したらその日付を標準モジュール（Module1）へ戻しています。
なおUserForm1のコードは、前編と同じです。

図５－１

1. '==========　⇩①　変数の宣言（UserForm1）　===================
2. Dim Tdate As Date
3. '==========　⇩②　フォームの起動（UserForm1：Subプロシージャでデータ受け渡し）　=====
4. Public Sub Start1(TD As Date)
5. 　If TD = 0 Then TD = Now
6. 　Tdate = TD
7. 　Me.Show
8. 　TD = Tdate
9. End Sub
11. '==========　⇩③　フォームの起動（UserForm1：Functionプロシージャでデータ受け渡し）　====
12. Public Function Start2(TD As Date) As Date
13. 　If TD = 0 Then TD = Now
14. 　Tdate = TD
15. 　Me.Show
16. 　Start2 = Tdate
17. End Function
18. '==========　⇩④　フォーム初期化（UserForm1）　=================
19. Private Sub UserForm_Initialize()
20. 　ScrollBar1.Min = -12
21. 　ScrollBar1.Max = 12
22. 　ScrollBar1.Value = 0
24. 　Me.Label1.TextAlign = fmTextAlignCenter
25. 　Me.Label2.TextAlign = fmTextAlignCenter
26. 　Me.Label3.TextAlign = fmTextAlignCenter
27. 　Me.Label4.TextAlign = fmTextAlignCenter
28. 　Me.Label5.TextAlign = fmTextAlignCenter
29. 　Me.Label6.TextAlign = fmTextAlignCenter
30. 　Me.Label7.TextAlign = fmTextAlignCenter
31. 　Me.Label8.TextAlign = fmTextAlignCenter
32. 　Me.Label9.TextAlign = fmTextAlignCenter
33. 　Me.Label10.TextAlign = fmTextAlignCenter
35. 　Me.Label1.ForeColor = RGB(128, 128, 128)
36. 　Me.Label2.ForeColor = RGB(64, 64, 64)
37. 　Me.Label3.ForeColor = RGB(0, 0, 0)
38. 　Me.Label4.ForeColor = RGB(64, 64, 64)
39. 　Me.Label5.ForeColor = RGB(128, 128, 128)
40. 　Me.Label6.ForeColor = RGB(128, 128, 128)
41. 　Me.Label7.ForeColor = RGB(64, 64, 64)
42. 　Me.Label8.ForeColor = RGB(0, 0, 0)
43. 　Me.Label9.ForeColor = RGB(64, 64, 64)
44. 　Me.Label10.ForeColor = RGB(128, 128, 128)
46. 　Me.Label1.Font.Size = 9
47. 　Me.Label2.Font.Size = 10
48. 　Me.Label3.Font.Size = 12
49. 　Me.Label4.Font.Size = 10
50. 　Me.Label5.Font.Size = 9
51. 　Me.Label6.Font.Size = 9
52. 　Me.Label7.Font.Size = 10
53. 　Me.Label8.Font.Size = 12
54. 　Me.Label9.Font.Size = 10
55. 　Me.Label10.Font.Size = 9
57. 　Me.Label3.Font.Bold = True
58. 　Me.Label8.Font.Bold = True
60. 　Me.Caption = "予定表の年月を選択して下さい"
61. End Sub
62. '==========　⇩⑤　フォームアクティブ時（UserForm1）　====================
63. Private Sub UserForm_Activate()
64. 　Call YMout
65. End Sub
66. '==========　⇩⑥　年月の表示（UserForm1）　=================
67. Private Sub YMout()
68. 　Dim Ldate As Date, Fdate As Date, LLdate As Date, FFdate As Date
70. 　Ldate = DateAdd("m", -1, Tdate)　　　 '前月
71. 　LLdate = DateAdd("m", -2, Tdate)　　 '前々月
72. 　Fdate = DateAdd("m", 1, Tdate)　　　 '次月
73. 　FFdate = DateAdd("m", 2, Tdate)　　　 '次々月
75. 　Me.Label3 = Year(Tdate)
76. 　If Not Year(Tdate) = Year(Ldate) Then
77. 　　Me.Label2 = Year(Ldate)
78. 　Else
79. 　　Me.Label2 = ""
80. 　End If
82. 　If Not Year(Ldate) = Year(LLdate) Then
83. 　　Me.Label1 = Year(LLdate)
84. 　Else
85. 　　Me.Label1 = ""
86. 　End If
88. 　If Not Year(Tdate) = Year(Fdate) Then
89. 　　Me.Label4 = Year(Fdate)
90. 　Else
91. 　　Me.Label4 = ""
92. 　End If
94. 　If Not Year(Fdate) = Year(FFdate) Then
95. 　　Me.Label5 = Year(FFdate)
96. 　Else
97. 　　Me.Label5 = ""
98. 　End If
100. 　Me.Label6 = Month(LLdate)
101. 　Me.Label7 = Month(Ldate)
102. 　Me.Label8 = Month(Tdate)
103. 　Me.Label9 = Month(Fdate)
104. 　Me.Label10 = Month(FFdate)
105. End Sub
106. '==========　⇩⑦　スクロールバー操作時の動作（UserForm1）　==================
107. Private Sub ScrollBar1_Change()
108. 　Tdate = DateAdd("m", ScrollBar1.Value, Tdate)
109. 　ScrollBar1.Value = 0
110. 　Call YMout
111. End Sub
113. Private Sub ScrollBar1_Scroll()
114. 　Static LastValue As Integer
115. 　Tdate = DateAdd("m", ScrollBar1.Value - LastValue, Tdate)
116. 　LastValue = ScrollBar1.Value
117. 　Call YMout
118. End Sub
119. '==========　⇩⑧　「今月ボタン」のクリック時（UserForm1）　==================
120. Private Sub CommandButton1_Click()　　 '//「今月」ボタン
121. 　Tdate = Now
122. 　Call YMout
123. End Sub
124. '==========　⇩⑨　フォーム終了時の処理（UserForm1）　============
125. Private Sub CommandButton2_Click()　　 '//「OK」ボタン
126. 　Me.Hide
127. End Sub
129. Private Sub CommandButton3_Click()　　 '//「Cancel」ボタン
130. 　Tdate = 0
131. 　Me.Hide
132. End Sub
134. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)　 '//右上×印で終了した時
135. 　Cancel = True
136. 　Tdate = 0
137. 　Me.Hide
138. End Sub

図５－２

５－２．予定データ追加修正ダイアログ（UserForm２）

５－２－１．フォーム内共有変数の宣言

UserForm２の中では、「カレンダー初日の日付データ」を共有変数 Xdate として保持します。。
役目としては「UserForm１の変数Tdate」とほぼ同じです。TdateもXdateもフォーム内のみで有効な変数ですし、２つのダイアログを同時に起動することもありませんので、変数名が同じでも問題ないのですが、混乱しないように今回は別名にしました。

139. '==========　⇩⑮　変数の宣言（UserForm2）　================
140. Dim Xdate As Date　　 '←カレンダーの初日

図５－３

５－２－２．フォームの起動

ワークシート上の「データ追加･修正」ボタン（Ｈ１セル上に配置したボタン）をクリックし、Module２の「AddData プロシージャ」（図６－４）経由で呼び出されるのが図５－４のStart3プロシージャです。

141. '==========　⇩⑯　フォームの起動（UserForm2）　=================
142. Public Sub Start3(TD As Date)　　　　　　　　 '←「ﾃﾞｰﾀ追加修正」ボタン→AddData経由で起動するﾌﾟﾛｼｰｼﾞｬ
143. 　If TD = 0 Then TD = Now　　　　　　　　　　 '←カレンダー日付が無かった場合は今月にする
144. 　Xdate = DateSerial(Year(TD), Month(TD), 1)　 '共有変数Xdateに初日の日付を代入
145. 　Me.Show　　　　　　　　　　　　　　　　　　　 '←フォームを起動
146. End Sub

図５－４

「AddData プロシージャ（図６－４）」は、引数として表示されているカレンダーの日付（TD As Date）を渡してくれます。
もしカレンダーが表示されていない（＝日付も無い）場合は、引数TDにはゼロ（日付にすると1899年12月31日）が渡されてしまいます。1899年のデータを今更作っても意味がありませんので、１４３行目では日付ゼロの場合には今日の日を代入しています。
１４４行目では、引数の日付（ゼロの場合は今日の日付）を使い、その月の初日の日付をモジュール変数Xdateに代入しています。UserForm1のTdate変数（初日に限っていない）と異なり、Xdateに「初日」を代入するのは、その値とスクロールバーの位置（Value値：ゼロ～(月末日－１)）を足すことで、データの日付の役割を与えるためです。
１４５行目では、UserForm2を起動させています。

５－２－３．フォーム起動時の初期化（Initialize　及び　Activate）

フォーム（UserForm2）が表示される前に、発生するイベントがInitializeイベントとActivateイベントです。初めて起動する際にはInitialize が発生した後に Activateが発生し、フォームが隠され（Hide）た後に再表示する時にはActivateが発生します。

147. '==========　⇩⑰　フォーム起動時の初期化（UserForm2）　====================
148. Private Sub UserForm_Initialize()
149. 　Me.TextBox1.MultiLine = True
150. 　Me.TextBox1.EnterKeyBehavior = True
151. 　Me.TextBox1.Font.Size = 14
152. 　Me.Label1.Font.Size = 14
153. End Sub
155. Private Sub UserForm_Activate()
156. 　Me.ScrollBar1.Min = 0
157. 　Me.ScrollBar1.Max = Day(DateSerial(Year(Xdate), Month(Xdate) + 1, 0)) - 1
158. 　Me.ScrollBar1.Value = 0
159. 　Call TextPut
160. End Sub

図５－５

Initializeイベント（１４８～１５３行目）では、TextBoxと年月日表示用のLabel１のプロパティを設定しています。
１４９行目の「MultiLine = True」は、TextBox内で複数行表示を可能にするものです。
１５０行目の「EnterKeyBehavior = True」は「Enterキーを押した時に、TextBox内で改行」の役割を与えるものです。これを設定しない（= False）場合、「Enterキーを押すと次のコントロールに移る」という意味になるのですが、今回は「ワープロの様にTextBoxを使いたい」為に、プロパティを変更（= True）しています。
（「EnterKeyBehavior = False」の場合でも「Ctrl ＋ Enter」で改行できます。）

１５１行目はTextBoxのフォントサイズ設定、１５２行目は年月日を表示するLabel1のフォントサイズを設定しています。

起動時、およびHide後再表示する時に発生するActivateイベント（１５５～１６０行目）では、表示される度に異なる部分について設定をします。

１５６～１５８行目は、日付を変更するためのスクロールバーの可動範囲を設定します。
例えば３１日まである月の場合、初日は変数Xdateに代入されていますので、０～３０をXdateに足せばその月全部を表せられることになります。ですのでMinをゼロと置き（１５６行目）、Maxは「月の最終日ー１」とします。
最終日の算出方法は「翌月の初日の１日前」という意味で、「Day(DateSerial(Year(Xdate), Month(Xdate) + 1, 0)) 」としました。（「月の最終日の計算方法」を参照下さい）
ダイアログが起動し最初に現れるデータをどこにするかですが、その月の初日としたため（当月のデータのみを扱うのであれば、最初に操作した日のデータを現すようにするのですが、様々な月のデータを扱うため初日にしました。）１５８行目で初期Value値にゼロを代入しています。

表示準備が整いましたので１５９行目でTextPutプロシージャ（TextBoxにデータを書き込み）を呼び出します。

５－２－４．ダイアログのTextBoxにデータを表示

ダイアログのTextBoxにデータを表示するのが図５－６です。

161. '==========　⇩⑱　TextBoxにデータを表示（UserForm2）　============
162. Private Sub TextPut()
163. 　Dim Ldate As Long
164. 　Me.Label1.Caption = Format(Xdate + ScrollBar1.Value, "yyyy/mm/dd(aaa)")
165. 　Ldate = Xdate + ScrollBar1.Value
167. 　If Sched.Exists(Ldate) Then
168. 　　Me.TextBox1.Value = Sched(Ldate)
169. 　Else
170. 　　Me.TextBox1.Value = ""
171. 　End If
172. End Sub

図５－６

まず、１６４行目でTextBox1の上側に配置した「年月日を表示するためのLabel1」に日付を代入します。
例えば「2020/5/5」などと普通に表示するのであれば「Me.Label1.Caption = Xdate + ScrollBar1.Value 」で問題ありません。今回は「会社・グループの予定をカレンダーに書き込む」という目的なので「曜日は必須」と考え、Format関数を使って曜日も一緒に表示させました。ちなみに「aaa」の部分が曜日になります。

１６５行目は表示する（＝スクロールバーの指している）日付を計算しています。この値を使い１６７～１７１行目の式で、TextBoxに「CSVファイルから取り込んだ日毎のデータ」を表示します。

システムの中で「複数のデータ」をどの様な形で保持するかですが、「配列」「Collectionオブジェクト」「Dictionaryオブジェクト」等、いくつかの方法が考えられます。 今回のシステムの特徴は「予定データがある日もあれば、無い日もある」「データを追加したり削除したりする」である事を考慮し、「Dictionary」を使う事にしました。 詳細は図６－５のところで説明していきますが、Dictionaryは「Key」と「Item」の組み合わせで出来ており、Key値はダブる事ができませんので、日ごとにデータ管理するには都合が良いのです。 そのKey値に使えるデータ型も、文字列や数値と共にDate型も使用できるので、「日付：予定内容」をセットで扱うことにしました。

１６７行目で「Sched」というものが出てきますが、これは図６－５で「Dictionaryオブジェクトとして生成したオブジェクト」で、「SChed（日付）」とすれば、日付に紐づけられた予定内容が引き出せます。
また「Sched.Exists(日付)」は、「日付のデータは存在するか？」を調べ、存在すればTrueを返します。
ですので１６７～１７１行目は「日付のデータが存在すれば予定内容をTextBoxに書き込み、存在しなければ空文字をTextBoxに入れる」という意味になります。

５－２－５．スクロールバー操作時の動作

ある日付の予定内容の編集をするためには、その日の内容をまずTextBoxに表示させなければなりません。
そのため、スクロールバーを操作して日付を変更させるのですが、スクロールバーのどこを操作するかで発生するイベントが異なってきます。
図５－７はスクロールバーの部位名ですが、その部位と発生するイベントを図５－８にまとめました。


図５－７

クリックする場所	操作	動く量・示す値	発生イベント
スクロール矢印	クリック	SmallChangeプロパティの量	Changeイベント
スクロールボックスと スクロール矢印の間の領域（レール）	クリック	LargeChangeプロパティの量	Changeイベント
スクロールボックス	クリックし移動中	スクロールボックスの位置のValue値 (動く量はValue=1ずつ)	Scrollイベント
	移動後クリックを離す	クリックを離した場所のValue値	Changeイベント

図５－８

Changeイベントは良く知られていますが、今回の場合は特に「スクロールボックスを移動させている最中にも日付表示を移動する必要がある」ため、「Changeイベント」及び「Scrollイベント」の両方を使います。

173. '==========　⇩⑲　スクロールバーによるTextBoxの日付の移動（UserForm2）　=============
174. Private Sub ScrollBar1_Change()　　　 '//日付変更用ｽｸﾛｰﾙﾊﾞｰのChange
175. 　Call TextPut
176. End Sub
178. Private Sub ScrollBar1_Scroll()　　　 '//日付変更用ｽｸﾛｰﾙﾊﾞｰのScroll
179. 　Call TextPut
180. End Sub

図５－９

Changeイベント（１７４～１７６行目）、Scrollイベント（１７８～１８０行目）とも、「TextPutプロシージャ」を呼び出します。こうすることで、スクロールバーのどこを操作してもリアルタイムに日付が移動し、それに対応した予定内容も移動してくれます。

５－２ー６．TextBoxを変更した時のDictionaryデータの追加修正

TextBoxの内容をユーザーが変更させた後、TextBoxを更新しょうとすると「BeforeUpdateイベント」が発生します。
つまり「BeforeUpdateイベントが発生した ＝ ユーザーが内容を追加修正した」らBeforeUpdateイベントを動かし、BeforeUpdateイベント経由で「保持データ」に修正を加えるのが図５－１０のDicMakeプロシージャです。

181. '==========　⇩⑳　TextBoxを変更した時のDictionaryデータの追加修正（UserForm2）　======
182. Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
183. 　Call DicMake(Xdate + Me.ScrollBar1.Value)　　 '//TextBoxの内容を変更した時
184. End Sub
186. Sub DicMake(d As Date)　　　 '←保持データの修正
187. 　If Sched.Exists(d) Then
188. 　　Sched.Remove (d)
189. 　　ChangeFlag = True
190. 　End If
192. 　If Not TextBox1.Value = "" Then
193. 　　Sched.Add Key:=d, Item:=Me.TextBox1.Value
194. 　　ChangeFlag = True
195. 　End If
196. End Sub

図５－１０

「BeforeUpdateイベント」は１８２～１８４行目で、イベントが発生したら「DicMake」プロシージャしたらを呼び出します。引数として、その時の日付である「Xdate + Me.ScrollBar1.Value」を渡します。

TextBoxのイベントは十数個ありますが、編集に関わるものは図５－１１に示す５個です。 （キー、マウスの操作イベントは除いています） 図５－１１ 図５－１１は、TextBoxへの操作に伴い、何のイベントが発生するかを整理したものです。 赤字操作は「TextBoxの内容をマクロで表示し、ユーザーが手作業で書き換えた後、日付を移動・又は操作ボタンをクリック」する流れで、赤線で示すように、BeforeUpdate、AfterUpdateイベントが発生しています。 また、黒字の操作は「TextBoxの内容をマクロで表示し、ユーザーは何もせず、日付を移動・又は操作ボタンをクリック」する流れで、黒線で示すようにBeforeUpdate、AfterUpdateイベントは発生しません。 つまり「BeforeUpdateの発生 ＝ TextBoxの内容をユーザーが書き換えた」ことになるのです。 なお、たとえTextBox内にマウスを乗せても書き換えなければ、BeforeUpdate、AfterUpdateイベントは発生しません。

１８６～１９６行目がBeforeUpdateイベントから呼び出される「DicMake」プロシージャです。引数（d As Date）として変更を加えられた予定の日付を受け取ります。
なお、UserForm2の中では「Xdate」も「Me.ScrollBar1.Value」も共有されていますので、日付を引数として受取る必要も無いのですが、「与えられた日付についてのみ処理をする」という意味を持たせて引数を設定しました。

さて１８６～１９６行目では保持データを更新しているのですが、「TextBoxの内容を追加修正した」と言う情報だけでは処理が出来ません。元の保持データにどの様な処理をするのかを決めるには、状況をもっと細分化する必要があります。（図５－１２）

	編集前の状況	編集中	編集完了時	TextBoxのBeforeUpdateイベント	データ処理方法
1	文字列が存在した （データがあった）	追記・修正した	文字列として残った	発生	データ更新
2		全部削除した	空文字になった		データ削除
3		何もしなかった	元の文字列のまま	ー	そのまま
4	空文字だった	記入した	文字列として残った	発生	データ新作
5		記入したが消した	空文字になった		そのまま
6		何もしなかった	空文字のまま	ー

図５－１２

図５－１２の一番右の列を見てもらうと分かる通り、保持データに対する処理方法は「そのまま」を除けば３種類必要です。

今回使用している「Dictionaryオブジェクト」のプロパティ・メソッドは、以下のようなものがあります（一部のみ）。
　データを更新：Sched(日付) = 更新するデータ
　データを削除：Sched.Remove (日付)
　データの新作：Sched.Add Key:=日付, Item:=内容
　データの存在：Sched.Exists(日付)　→返り値Trueは有り、返り値Falseは無し

図５－１２の分岐をそのままコードにしようとすれば図５－１３のようになります。

197. Sub DicMake2(d As Date)
198. 　Select Case Sched.Exists(d)
199. 　　Case True
200. 　　　If Not TextBox1.Value = "" Then
201. 　　　　Sched(d) = TextBox1.Value　　 '←No.1
202. 　　　　ChangeFlag = True
203. 　　　Else
204. 　　　　Sched.Remove (d)　　　　　　 '←No.2
205. 　　　　ChangeFlag = True
206. 　　　End If
207. 　　Case False
208. 　　　If Not TextBox1.Value = "" Then
209. 　　　　Sched.Add Key:=d, Item:=Me.TextBox1.Value　　 '←No.4
210. 　　　　ChangeFlag = True
211. 　　　End If
212. 　End Select
213. End Sub

図５－１３

この図５－１３に対して図５－１０のDicMakeプロシージャでは、「データが存在するなら、まずは削除（１８６～１９０行目）」→「TextBoxにデータがあるなら新作（１９２～１９５行目）」の方法を使っています。コードも約半分で収まります。
どちらか、分かり易い方で実施してもらえば良いと思います。

図５－１０の１８９・１９４行目では、「データを更新しましたフラグ」を立てるために「ChangeFlag = True」を行っています。
これはダイアログで予定内容を変更（新作・削除含む）したままの状態では、メモリー上のデータが最新になっているだけで、CSVファイルに保存されている訳ではありません。
ダイアログの「ファイル書込み」ボタンをクリックして初めて、CSVファイルへの書き込みを行うようにしています。

このように直接CSVファイルに書き込まない理由は、ハード的な書込みにはある程度の処理時間がかかるのと、間違えて削除してしまった予定を復活させる道を作っておくべきとの考えから、このような流れにしました。
そこでメモリー上のデータ変更のフラグ（ChangeFlag）を立て（=True）、もしダイアログのCancelボタンをうっかりクリックしてしまった時には「本当に終了して良いか」のコメントを出しています。（図５－１６）

フラグを立てる・寝かすの場所については、図５－１４のように考えました。

図５－１４

この図５－１４の中で迷ったのが、「次月ボタン」等でカレンダーを動かす時点でフラグが立っている時の動作です。この時にも「本当にメモリー上の変更データを消去して良いか」のコメントを出す必要があるのかもしれません。
しかし、ダイアログのCancelで一度コメントを出しているので、二度同じようなコメントを出すのも煩わしいと思い、年月変更時は無視する事としました。

もし重要なデータを扱う場合は、「年月の切り替えでもコメントを出す」「前回データをバックアップファイルとして、一定時間残す」などの機能も必要だと思います。

なお今回システムでは、誰でもデータの書き換えが可能な仕様となっていますが、「ある権限以上の人でないと変更できない」機能の追加も考えられます。
もし、全機能をこの１つのファイルだけで運営するのであれば、「データ追加修正」ボタンにパスワード認証を設ける必要があります。但し「閲覧用」と「メンテナンス用」とでファイルを分ける等の対策が取れる様なら、「閲覧用はデータ追加修正ボタンを削除する」ような運用でも良いと思います。

５－２ー７．「ファイル書込・終了」ボタンの動作（UserForm2）

ダイアログの「ファイル書込・終了」ボタンをクリックした時に発生するイベントプロシージャが図５－１５です。

214. '==========　⇩(21)　データ書き込みボタンによる書込み指令（UserForm2）　===============
215. Private Sub CommandButton1_Click()　　　 '//ﾌｧｲﾙ書込み・終了ボタン
217. 　Call CSVwrite(Xdate)
218. 　ChangeFlag = False
219. 　Call DateMake(Xdate)
220. 　Me.Hide
221. End Sub

図５－１５

２１７行目は「CSVwrite」を呼び出しています。CSVwriteは「CSVファイルへの書込」でModule２の図６－１４になります。
CSVファイルは月毎に作っています（例えば、2020年7月のCSVファイルなら、202007.csv としています）ので、月の初日である変数Xdateを引数で渡し、年月を換算して呼び出します。

「CSVファイルへの書込」が完了しましたら、CSVファイルの中身とメモリー上の保持データが同一になりますので、２１８行目でデータ変更フラグ「ChangeFlag」を寝かします（=False）。

データはCSVファイルに書き込まれましたので、２１９行目で改めてカレンダーを再表示し、保持データを目に見える様にすることで、ユーザーは内容をチェックする事が出来ます。
カレンダーが再表示されたら２２０行目でダイアログを隠します（Hide）。

なお操作の手順として、TextBoxの内容を変更した後、日付を移動しないまま「ファイル書込・終了」ボタンを押す場合もあります。しかし、図５－１１で分かる通り「ファイル書込・終了」ボタンを押した瞬間にTextBoxは「BeforeUpdateイベントを発生」させますので、「メモリー上の保持データ」を更新してくれます。

５－２ー８．「Cancel」ボタンの動作（UserForm2）

ダイアログのCancelボタンをクリックした時に発生するイベントプロシージャが図５－１６です。

222. '==========　⇩(22)　Cancelボタンによるデータ変更無視（UserForm2）　===========
223. Private Sub CommandButton2_Click()　　　　　　 '//Cancelボタン
224. 　Dim Ans As Integer
225. 　Dim St As String　　　　　　　　　　　　　　 '←警告文字列の変数宣言
226. 　If ChangeFlag = True Then
227. 　　St = "データが変更されています。" & vbCrLf & "終了しても良いですか？"
228. 　　Ans = MsgBox(St, vbOKCancel)
229. 　　If Ans = 2 Then Exit Sub
230. 　End If
231. 　Me.Hide
232. End Sub

図５－１６

Cancelボタンでの動作ですが、「データが更新されている時には、更新内容をCSVファイルに反映しなくても良いかの忠告」をする必要があります。
そのため、２２６行目でデータ更新のフラグ（ChangeFlag）が立っている（=True）かを判断し、２２８行目でメッセージを出します。メッセージ作成にはMsgBox関数を使用し、第二引数のボタンの種類に「vbOKCancel」を指定することで、図５－１７のような表示になります。

図５－１７

「OK」をクリックするとMsgBoxの返り値は１となり、「Cancel」では２が返ります。（MsgBoxの右上の×印も２が返ります。）
この値を２２８行目のAns変数で受け取り２２９行目で値を判定し、Cancel（＝２）であればプロシージャを抜けて「予定内容ダイアログ」を残します。ユーザーは「更新したデータを消したらマズイ」と思い、改めて「ファイル書込」ボタンでCSVファイル保存してくれるはずです。

「OK」ボタンをクリック（返り値＝１）した際は、If文を抜けて２３１行目でダイアログを終了（Hide）します。
但し、ダイアログ終了しても ChangeFlagは立ったままですので、再度「追加修正」ボタンを押してダイアログを起動し、何も編集せずにCancelボタンをクリックしても、「データが変更されています」が現れます。
これはChangeFlag が、「１つのダイアログを起動し閉じる間」ではなく「カレンダーの表示年月を開いている間」が生きている時間、と考えれば納得できると思います。

５－２ー９．ダイアログ右上×印の動作（UserForm2）

ダイアログ右上の×印をクリックして閉じようとした時の動作が図５－１８です。

212. '==========　⇩'(23)'　ダイアログ右上×印の操作禁止（UserForm2）　==========
213. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
214. 　MsgBox "ボタンで操作して下さい"
215. 　Cancel = True
216. End Sub

図５－１８

今回は「右上×印は、操作禁止」という考えで、２１４行目でコメントを出し、２１５行目の「Cancel = True」で×印操作を無視しています。操作は正規のボタンのみを許している形です。

なお、「右上×印は、Cancelと同等」という考え方もあるかと思います。ですので、図５－１９のようにプログラムがCancelボタンに流れるようにも考えてみました。 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 　Cancel = True　　　 '←これがあると、BeforeUpdateイベントが発生しない 　Call CommandButton2_Click End Sub 図５－１９ しかし、これには欠点があります。「QueryCloseイベントのコードが存在し、Cancel=True でダイアログを閉じなくすると、ダイアログ右上の×印をクリックしても BeforeUpdateイベントが発生しない」のです。 つまり「ダイアログ右上×印の強制終了機能を殺すと、×印はコントロールでは無くなる」とも言えるかもしれません。 現象的に言うと「TextBoxを編集した直後にCancelボタンをクリックすると「データ変更されています」が表示される」のに、「TextBoxを編集した直後に×印をクリックすると、そのままダイアログが閉じる」ことになります。 ですので、無念ですが「×印は操作禁止」としました。

６．標準モジュールのコード

６－１．カレンダーの作成（Module１）

年月選定のダイアログをユーザーが操作し、表示年月が決定したらその日付をも標準モジュール側へ戻してきます。その戻された日付を元にカレンダーを配列上に並べ、、最後にワークシートにデータを貼り付けてカレンダーを完成させます。
（図５－１を参照下さい）

この図６－１のコードは「年月をスクロールバーで選択する予定表ひな型」とほとんど同じですが、カレンダーの日付を作る「DateMakeプロシージャ」の中で、二か所のみ追加しています。（２４８行目、２５５～２５６行目）
これは、表示するカレンダー年月に対応したCSVファイルを読み込み、予定データをメモリー上に展開し（２４８行目）、カレンダーの日付を配列に代入していく際に、予定内容が存在したら一緒に配列に代入する（２５５～２５６行目）というものです。
これにより、完成したカレンダーの日付の下に、その日の予定が記載されることになります。

221. '==========　⇩⑩　変数の宣言（標準モジュール）　=============
222. Const CalTitleRow As Integer = 2　　 'カレンダーのタイトル行の行位置
223. Const CalStartRow As Integer = 3　　 'カレンダーの日付範囲の開始行
224. Const CalStartCol As Integer = 2　　 'カレンダーの日付範囲の開始列
225. Const YM As String = "D1"　　　　　 '年月表示してあるセル位置
226. '==========　⇩⑪　「年月変更」ボタンで作動（標準モジュール）　===========
227. Sub Ymake()　　 '「年月変更」ボタン
228. 　Dim TD As Date
230. 　TD = Sheet1.Range(YM)
231. 　Call UserForm1.Start1(TD)
232. 　 ' TD = UserForm1.Start2(TD)　
233. 　If TD = 0 Then Exit Sub
234. 　Call DateMake(TD)
235. End Sub
236. '==========　⇩⑫　カレンダーの日付を記入　=================
237. Sub DateMake(TD As Date)　　　　 'カレンダーの数値記入
238. 　Dim FirstDay As Date
239. 　Dim LastDay As Integer
240. 　Dim FirstWeek As Integer
241. 　Dim CalArray(1 To 12, 1 To 7) As Integer
242. 　Dim i As Integer, j As Integer, k As Integer
244. 　FirstDay = DateSerial(Year(TD), Month(TD), 1)
245. 　LastDay = Day(DateSerial(Year(TD), Month(TD) + 1, 0))
246. 　FirstWeek = Weekday(FirstDay)
248. 　Call CSVread(TD)　　　　　　　　　 '←CSVﾌｧｲﾙの呼び出し
250. 　For i = FirstWeek To LastDay + FirstWeek - 1
251. 　　k = Int((i - 1) / 7) + 1
252. 　　j = i - (k - 1) * 7
253. 　　CalArray(k * 2 - 1, j) = i - FirstWeek + 1
255. 　Ldate = DateSerial(Year(TD), Month(TD), i - FirstWeek + 1)　　　　　 '←日付を計算
256. 　If Sched.Exists(Ldate) Then CalArray(k * 2, j) = Sched(Ldate)　　　　 '←ﾃﾞｰﾀ有れば書き込み
257. 　Next i
259. 　Sheet1.Cells(CalStartRow, CalStartCol).Resize(12, 7) = CalArray
260. 　Sheet1.Range(YM).Value = FirstDay
261. End Sub
262. '==========　⇩⑬　「前月」「次月」ボタンで作動　===================
263. Sub IncMonth()　　　 '次月カレンダーの表示
264. 　Call DateMake(DateAdd("m", 1, Sheet1.Range(YM)))
265. End Sub
267. Sub DecMonth()　　　 '前月カレンダーの表示
268. 　Call DateMake(DateAdd("m", -1, Sheet1.Range(YM)))
269. End Sub
270. '==========　⇩⑭　カレンダー外観作成　==================
271. Public Sub CalMake()　　　 'カレンダーの外観作成。罫線・彩色は別（1回だけ実施）
272. 　Dim i As Integer
274. 　Windows(ThisWorkbook.Name).DisplayZeros = False　　 '数値ゼロは非表示
275. 　Sheet1.Range(YM).NumberFormatLocal = "yyyy""年""m""月"""
277. 　With Sheet1.Cells(CalTitleRow, CalStartCol).Resize(1, 7)　　 '曜日行
278. 　　.HorizontalAlignment = xlCenter
279. 　　.Font.Size = 11
280. 　　.Font.Bold = True
281. 　　.EntireRow.RowHeight = 19
282. 　End With
284. 　For i = 0 To 11 Step 2　　　 '日付行
285. 　　With Sheet1.Cells(CalStartRow + i, CalStartCol).Resize(1, 7)
286. 　　　.HorizontalAlignment = xlCenter
287. 　　　.Font.Size = 16
288. 　　　.Font.Bold = True
289. 　　　.EntireRow.RowHeight = 21
290. 　　End With
291. 　Next i
293. 　For i = 1 To 11 Step 2　　　 'コメント行
294. 　　With Sheet1.Cells(CalStartRow + i, CalStartCol).Resize(1, 7)
295. 　　　.HorizontalAlignment = xlGeneral
296. 　　　.Font.Size = 10
297. 　　　.Font.Bold = False
298. 　　　.EntireRow.RowHeight = 73
299. 　　End With
300. 　Next i
302. 　For i = 0 To 6　　　　　　 '列の調整
303. 　　With Sheet1.Cells(CalStartRow, CalStartCol + i)
304. 　　　.EntireColumn.ColumnWidth = 19
305. 　　End With
306. 　Next i
307. End Sub

図６－１

６－２．CSVファイルとのやり取り（Module２）

前編「年月をスクロールバーで選択する予定表ひな型」と分けて説明できるように、CSVファイルとのやり取りについてはModule2に記載しました。

６－２－１．モジュール定数・変数の宣言（Module２）

Module2の先頭でモジュール定数・変数の宣言をします。（図６－２）

308. '==========　⇩(24)　定数・変数の宣言（Module2）　=============
309. Const CSV_PATH As String = "C:¥User¥USER¥csv¥"　　　 '←各PCの環境に合わせて変更して下さい
310. Const HEADER As Integer = 1 　　　　　　　　　　　　 'header有り＝１、header無し＝0
311. Const CHARACTER As String = "utf-8"
312. Public Sched As Object
313. Public ChangeFlag As Boolean

図６－２

３０９行目は、CSVファイルの保管場所を絶対パスで指定します。相対パスではエラーが発生します。
なおサンプルファイルを試行する際には、「存在するパス」をまず設定して下さい。

３１０行目は、CSVファイルのヘッダ行の有無を設定します。
今回システム（サンプルファイル）は、Header有り（=1）でCSVファイル（Header行のあるファイル）を作成しています。
しかし、もし既存のシステムの置き換えとして考えるのであれば、既存データ（Header有無の双方）に合わせられる様にと考え、定数として設定しました。

３１１行目はCSVファイルの文字コードを設定します。これもサンプルファイルはUTF-8ですが、既存データに合わせられるようにしています。

３１２行目は「Sched」オブジェクトの宣言で、schedule（スケジュール）の略のつもりです。
CSVファイルを読み込み、PCメモリー内では予定内容を保持データとして記憶していますが、その保持方法には「配列」「Collection」「Dictionary」等の方法が考えられます。その３つを図６－３で比較してみます。

	配列	Collection	Dictionary
イメージ	ﾜｰｸｼｰﾄの様なﾃｰﾌﾞﾙ	頁が振られたﾌｧｲﾘﾝｸﾞ資料 （Key有は､目次付）	単語ｶｰﾄﾞ(表:Key 裏:Item)
使用に必要な手順	Dim 配列名(要素数) ･･･静的配列 Dim 配列名() ･･･動的配列	Dim ｺﾚｸｼｮﾝ名 As New Collection と先頭で宣言要	Set ﾃﾞｨｸｼｮﾅﾘ名= CreateObject (Scripting.Dictionary) とｵﾌﾞｼﾞｪｸﾄ生成要
Itemのﾃﾞｰﾀ型	ー	全て(配列､ｵﾌﾞｼﾞｪｸﾄも)OK	全て(配列､ｵﾌﾞｼﾞｪｸﾄも)OK
Keyの設定	ー	任意指定	必ず指定
Keyの存在確認	ー	ない	Exists(Key値)=Trueなら存在
Keyに使える型	ー	String型のみ	全ての型(配列以外)
ﾃﾞｰﾀ行の追加	動的配列で宣言し ReDimでｻｲｽﾞUP	Add(Item,[Key])	Add(Key,Item)
ﾃﾞｰﾀの呼出し	配列名(ｲﾝﾃﾞｯｸｽ番号,･･･)	ｺﾚｸｼｮﾝ名(ｲﾝﾃﾞｯｸｽ番号) ｺﾚｸｼｮﾝ名(Key値)	ﾃﾞｨｸｼｮﾅﾘ名(key値)
ﾃﾞｰﾀ行の削減	必要行のみを 別配列にCopy	Remove ｲﾝﾃﾞｯｸｽ番号 Remove Key値	Remove(Key)
ﾃﾞｰﾀ行の全削減	Preserve無しで Redim	Removeﾒｿｯﾄﾞで 1行ごとに削除	RemoveAllﾒｿｯﾄﾞで削除
ﾃﾞｰﾀの重複	許可	Key無しの時は許可 Key設定時はKey重複→ｴﾗｰ発生	Keyの重複不可
ﾜｰｸｼｰﾄとの ﾃﾞｰﾀ授受	そのまま代入 そのまま貼付け	1行ずつ代入･貼付	1行ずつ代入･貼付
その他	n次元が可能	Addする時に､ﾃﾞｰﾀ 追加位置の指定可	KeyとItemの一覧を 配列に出力可

図６－３

今回は、以下の様なデータの特徴から「Dictionary」を使用することにしました。
　●「日付」⇔「予定内容」が１対１でつながっている。
　●年月を変更する時は、一旦全データを削除する。
　●追加、削除、修正の作業が多い。
　●日付をKeyにするので、KeyにDate型が使えるものが良い。

尚、CollectionのKeyは文字列ですが、例えば「2020/07/01」と文字列をKeyにする方法はあると思います。しかし「2020/7/1」と比べると、Date型だと同一値なのですがString型だと違う値と判断されてしまいます。この点からもDictionaryにしました。

３１３行目の「changeFlag」は、ＰＣメモリー上の保持データに変更を加えた場合に「False → True」とフラグを立てて、「データ変更したのに、CSVファイルへの保存をしなかった」というミスを防ぐものです。
どの時点でフラグを立てたり寝かしたりするかは、図５－１４を参照下さい。

６－２－２．「データ追加修正」ボタンによる実行（Module２）

カレンダー上部のＨ１セルの位置に配置した「データ追加修正」ボタンに登録してあるマクロが図６－４です。

314. '==========　⇩(25)「データ追加修正」ボタンから呼び出されるマクロ　==============
315. Public Sub AddData()
316. 　Call UserForm2.Start3(Sheet1.Range(YM))
317. End Sub

図６－４

３１６行目は、カレンダーの日付（＝Range(YM)）を引数として、UserForm2のStart3プロシージャ（図５－４）を呼び出し、Start3の中から予定変更ダイアログを表示させます。そのダイアログに表示されているデータは「カレンダーの日付と同じ月の予定内容」になります。

６－２－３．CSVファイルからデータを読み取り（Module２）

図６－１の２４８行目から呼び出されるのが、図６－５です。
役割としては、引数として受取った年月に対応したCSVファイルからデータを読み取り、メモリー上の保持データに展開します。

318. '==========　⇩(26)　CSVファイルからデータを読み取り、メモリー上の保持データにする　=======
319. Public Sub CSVread(YM As Date)
320. 　Dim St As Object
321. 　Dim buf As String
322. 　Dim buf1() As String
323. 　Dim buf2() As String
324. 　Dim URL As String
325. 　Dim CSVrow As Long
326. 　Dim i As Long
328. 　URL = Format(YM, "yyyymm")
329. 　URL = CSV_PATH & URL & ".csv"
331. 　Set Sched = CreateObject("Scripting.Dictionary")
332. 　ChangeFlag = False
333. 　If Sched.Count > 0 Then Sched.RemoveAll
334. 　If Dir(URL) = "" Then Exit Sub
336. 　Set St = CreateObject("ADODB.Stream")
337. 　St.Charset = CHARACTER
338. 　St.Open
339. 　　St.LoadFromFile URL
340. 　　buf = St.ReadText
341. 　St.Close
343. 　Do While Right(buf, Len(vbCrLf)) = vbCrLf
344. 　　buf = Left(buf, Len(buf) - Len(vbCrLf))
345. 　Loop
347. 　buf1 = mySplit(buf, vbCr)
348. 　 'buf1 = mySplit2(buf, vbCrLf)
349. 　CSVrow = UBound(buf1, 1)
352. 　For i = HEADER To CSVrow
353. 　　buf2 = mySplit(buf1(i), ",")
354. 　　Sched.Add Key:=CDate(buf2(0)), Item:=buf2(1)
355. 　Next i
357. 　Set St = Nothing
358. End Sub

図６－５

まず、読み取るCSVファイルは、図６－６の様なものです。

図６－６

この中で「」は改行の印で、Excelで言えば「vbCrLf」になります。また「」はスペースです。
１つ１つのデータは「日付」と「内容」が「,（カンマ）」で区切られており、データとデータの間は改行「」で区切られています。また「内容」は、両端を「"（ダブルクォーテーション）」で囲まれています。

もう一度、図６－６を見てみると、１行目は「タイトル行」と分かります。２行目は、「日付」＋「,（カンマ）」＋「内容」みたいですが、「内容」を囲っているはずの「"（ダブルクォーテーション）」が最後に付いていません。
そこで３行目を見てみると、最後に「"（ダブルクォーテーション）」が付いており、ここまでが「内容」と分かります。
つまり、タイトル行の次の１つ目のデータは２～３行目となり、「内容」の文字列の中には改行が含まれている、となります。

同様に２つ目のデータは図６－６の４～７行目で、「内容」には３つの改行が含まれています。３つ目のデータは８行目のみで、この「内容」には改行は含まれていません。
この様に、今回のCSVファイル中のデータは「改行を含む内容データ」が有ることが特徴です。

図６－５のコードを見ていきます。
３２８行目は、引数として受取ったカレンダーの日付「YM」を加工しています。加工の方法は、年を「yyyy（４桁）」月を「mm（２桁）」と指定していますので、例えば2020年7月1日でしたら「202007」となります。
代入する先の変数URLはString型で宣言しています（３２４行目）ので「202007」も文字列です。

３２９行目では、３つの文字列を結合しています。１つ目は、定数CSV_PATH（図６－２の３０９行目）で、CSVファイルが置いてある場所を示しています。２つ目は３２８行目で加工した年月で「202007」の様な文字列になります。３つ目は固定で「.csv」でCSVファイルの拡張子となります。
この３つを結合することで、例えば「"C:¥User¥USER¥csv¥202007.csv"」とファイルを一意に示すことができます。

３３１行目は、Dictionaryを使用するために、Dictionaryオブジェクトを生成しています。

３３２行目は、変数ChangeFlagにFalseを代入し、フラグを寝かしています。ChangeFlagはメモリー内の保持データを変更した際にフラグを立て、CSVファイルへの保存を促すものです。
しかし次の３３３行目の「保持データ削除」を実行することで、このフラグも不要になりますので、ChangeFlag＝Falseとするのです。

３３３行目は「Sched.Count」でDictionaryデータの数を調べてデータがあれば（ > 0）、データを全て削除（Sched.RemoveAll）しています。
このCSVreadプロシージャは、年月を変えるごとに呼び出され、CSVファイルが存在すればDictionaryデータを作ります。一方でカレンダーの表示にはその表示月のデータだけを選んで内容表示しますし、CSVファイルへの書込みも表示月のデータだけを選んで書込みますので、「表示に使われていないDictionaryデータが残っていても問題無」さそうです。

しかし、残っている事が前提となると、３５４行目の「Sched.Add」でDictionaryデータを追加する前に、その存在をExistsメソッドで確かめる必要が出てきます。また、使っていないデータにメモリーを使うのも無駄ですので、今回は「不要になった時点で、古いデータは捨てる」ことにしました。

３３４行目は「Dir(URL)」を実行しています。Dir関数は、引数にファイルの「パス＋ファイル名」を指定すると、返り値として「指定したファイルが存在すればファイル名」が、「存在しなければ空文字（""）」が返ってきます。
今回のCSVファイルは年月ごとに作られますが、図６－７の様に「予定の無い年月にはCSVファイルが存在しません」。


図６－７

ですので、３３４行目では返り値が空文字（""）の時は「CSVファイルが存在しないため、メモリー上の保持データを作らない」事になりますので、CSVreadプロシージャを抜けます。

尚「作らないのであれば、３３１行目のDictionaryオブジェクトを作る前に実行しても良いのでは」と思う方もいるかもしれません。しかし、データが無くても「Dictionaryオブジェクトは作っておかないといけない」のです。
３３１行目で作られたSchedオブジェクトを使って、例えば図６－１の２５６行目では「Sched.Exists(Ldate)」とデータの存在を調べていますが、Schedオブジェクトが無ければエラーが発生してしまいます。同様に、UserForm2を開いた時にもSchedオブジェクトを探して処理しています。
ということで、図６－５の目的は「Schedオブジェクトを作る」ことも目的の１つなのです。

３３６～３４１行目は、CSVファイルを開き、データを吸い上げる部分です。
まず３３６行目はStreamオブジェクトを生成しています。Streamオブジェクトは、ファイルを読み書きする時に使うものですが、当サイトの「CSVファイルの読み込み」も参照願います。

３３７行目は、文字コードを設定します。設定値である定数CHARACTERは図６－２の３１１行目で設定していますが、もし既存システムが存在しているならば、そちらに合わせて下さい。全くの新規システムであれば何でもOKです。

３３８行目でStreamオブジェクトを開き、３３９行目でファイルを呼び出します。呼び出すファイルは目的のCSVファイルで、３３４行目で「存在することは確認済み」なので、ここでエラーは出ないはずです。
３４０行目では、呼び出したファイルの内容をテキストとして読み込みます。読み込んだ文字列は変数bufに代入されます。
３４１行目で、開いていたStreamオブジェクトを閉じます。

読み込んだデータbufは、一列の文字列です。改行印もvbCrLfとして文字列の中に含まれており、図６－６の９行目の様に「最後端に改行が存在」するファイルも良く見掛けます。
この最後端の改行はデータ処理には邪魔ですので、取り除いておく必要があります。その「最後端の改行を取り除く」のが３４３～３４５行目になります。

文字列は図６－８の様に一列に並んでおり、最後端の「Cr + Lf」を１セットずつ取り除き、最後端が「Cr + Lf」では無くなるまで続けます。（図６－８で言えば「"」が最後端になるまで）

図６－８

次に、タイトル行、及びデータを１つ区切りに分割する作業をします。タイトル行、及びデータ間は改行である「vbCrLf」で区切られていますので、単純に Split(buf,vbCrLf) とすれば良い様に思えますが、データの中に「Cr + Lf」（＝vbCrLf）が含まれていますので、そこで区切られてしまってはデータがバラバラになってしまいます。
そこで３４７行目では、mySplit関数（図６－２４）を使い「"（ダブルクォーテーション）で囲まれた中にある特定の文字列（この場合は改行印）を除いて、特定の文字列で区切る」作業をしています。

ある特定の文字列は今回vbCrLfなので、式で表すと「mySplit（buf , vbCrLf）」のはずです。しかし３４７行目は「mySplit（buf , vbCr）」となっています。
引数としたいvbCrLfは、実は１文字では無く「vbCr + vbLf」で１＋１＝２文字列です。図６－２４のmySplit関数は「第二引数の区切り文字列は１文字列」とし、第一引数の文字列bufの１文字１文字を第二引数の区切り文字との比較を繰り返す事をしています。
当然ながら１文字≠２文字ですので、mySplit関数は何も返さないということになりエラーが発生してしまいます。

では「mySplit（buf , vbCr）」で分割するとどうなるかを見ていきます。
まず、CSVファイルからデータを読み取り、最後端のvbCrLfを取り除いた「３４５行目を抜けた時の変数buf」は、図６－９の様になっています。

図６－９

変数bufの文字列の中には「Cr + Lf (＝vbCrLf)」がいくつか含まれていますが、濃い色のvbCrLfがデータを区切っているvbCrLfです。薄い色はデータ中の「改行」です。

これを「mySplit（buf , vbCr）」で、「vbCr」で分割します。
mySplit関数は、「"（ダブルクォーテーション）」で囲まれた文字列データの中の改行印は無視しますので、濃い色の「Cr」でデータが切れていき、図６－１０の様な行データになります。

図６－１０

この１つ１つの行データを３５３行目でもう一度mySplit関数にかけます。但し今度は、行データの「日付」と「内容」とを区切っている「,（カンマ）」で区切ります。（図６－１１）
今回のデータでは、「"（ダブルクォーテーション）」で囲まれた中には「,（カンマ）」は含まれていませんが、もし含まれていても無視されます。

図６－１１

図６－１１の状態でデータ分割は完了です。ただし日付の先頭にくっついている「Lf」が気になります。この「Lf」は、本当はvbCrLfで区切るべきところを「vbCrで区切ってしまった」ために、残されたカスみたいな存在です。
この後この日付データは、「buf2(0)」として３５４行目の「Sched.Add Key:=CDate(buf2(0)), Item:=buf2(1)」でDictionaryオブジェクトのキーになりますが、その前に「CDate(buf2(0))」とDate型変換されています。
Date型変換では、文字列が日付っぽかったら日付にしてくれます。先頭に目には見えない「vbLf」がくっついていても何の問題も無く日付になるのです。

反対に３４７行目で「buf1 = mySplit(buf, vbLf)」と、「vbLf」を使って、分割すると様相は全く変わります。（図６－１２）

図６－１２

内容データの後端に「vbCr」が残ってしまうのです。
「vbCr」は、ワークシートのセル内では何もしませんが、TextBox内では改行の印になります（ちなみにvbLfは、セル内でもTextBox内でも改行印になります）ので、CSVファイルへの読出・書込を繰り返すたびに改行が増えてしまう事になります。
ですので、３４７行目は「buf1 = mySplit(buf, vbCr)」としました。

しかし、やっぱり「気持ち悪い」という方のために、「複数文字列を区切り文字に指定できる関数」を作ってみました。それが図６－２５の「mySplit2」です。
詳細説明は図６－２５のところでしますが、これでしたらvbLfもvbCrも残らずにデータ区切りが可能になります。試行するのであれば、サンプルファイルの３４７行目の代わりに３４８行目を生かして下さい。

３４９行目は、データ行の行数を計算しています。図６－１０の例であればタイトル行・データ行含めて４行ですが、配列はゼロから始めています（図６－２４の４９３行目）ので、CSVrow＝３となります。

３５２～３５５行目は、データ行を「日付」と「内容」に分割し、Dictionaryデータのセットにする部分です。
まず３５２行目で繰り返し数を決めます。csvファイルにタイトル行が存在する場合はHEADER＝１ですから、１から開始させることでタイトル行を除外することが出来ます。

３５３行目は図６－１１でも説明しましたが、「mySplit(buf1(i), ",")」とmySplit関数を使う事で、「,（カンマ）」で「日付」列と「内容」列を分割しています。
分解した「日付」と「内容」は図６－１３の様にゼロ始まりの配列となっており、配列のインデックスは「日付＝０」、「内容＝１」になっています。

図６－１３

３５４行目ではその日付と内容をDictionaryデータにしています。
まずKeyには、「CDate(buf2(0))」と日付の文字列をDate型に変換してセットしています。またItemには、内容であるbuf2(1)を入れています。

３５７行目は、３３６行目で生成したStreamオブジェクトを解除するものです。StreamオブジェクトはCSVファイルを読み込む為に使用したものですが、既に役目は完了しています。

６－２－４．CSVファイルにデータを書き込む（Module２）

図５－１５の「ファイル書込・終了」ボタンをクリックする事で実行されるのが、図６－１４のCSVwriteプロシージャです。

359. '==========　⇩(27)　CSVファイルにデータを書き込む　============
360. Sub CSVwrite(YM As Date)
361. 　Dim FN As String　　　　　　　　　　　　　　 '←正規ﾌｧｲﾙ名
362. 　Dim RN As String 　　　　　　　　　　　　　　 '←ﾊﾞｯｸｱｯﾌﾟﾌｧｲﾙ名
363. 　Dim NewFileOK As Boolean 　　　　　　　　　 '←CSVﾌｧｲﾙの書込みが成功したか否かのﾌﾗｸﾞ
365. 　FN = Format(YM, "yyyymm") & ".csv"
366. 　RN = "_" & Format(Now, "yyyymmddhhnnss") & "_" & FN
368. 　If Not Dir(CSV_PATH & FN) = "" Then 　　　　　 '←元ﾌｧｲﾙ有ったら
369. 　　If Not Sched.Count = 0 Then 　　　　　　　　　 '←書込みデータ有り
370. 　　　Call FileReName(FN, RN) 　　　　　　　　　 '←元ﾌｧｲﾙの名前変更
371. 　　　NewFileOK = NewFileMake(YM, FN) 　　　　　 '←新ﾌｧｲﾙ作成
373. 　　　If NewFileOK = False Then
374. 　　　　MsgBox "新ファイルが作れませんでした。" _
375. 　　　　　　　　& vbCrLf & "旧ファイルに戻します。" _
376. 　　　　　　　　& vbCrLf & "管理者に連絡して下さい。"
377. 　　　　Call FileReName(RN, FN) 　　　　　　　　 '←元ﾌｧｲﾙの名前変更
378. 　　　Else
379. 　　　　Call FileDelete(RN) 　　　　　　　　　　 '←予備ﾌｧｲﾙの削除(予備ﾌｧｲﾙ不要の場合)
380. 　　　End If
381. 　　Else 　　　　　　　　　　　　　　　　　　 '←書込みデータ無し
382. 　　　 'Call FileReName(FN, RN) 　　　　　　　　 '←元ﾌｧｲﾙの名前変更(予備ﾌｧｲﾙとして残す場合)
383. 　　　Call FileDelete(FN) 　　　　　　　　　　 '←元ﾌｧｲﾙの削除(予備ﾌｧｲﾙ不要の場合)
384. 　　End If
385. 　Else 　　　　　　　　　　　　　　　　　　　　　 '←元ﾌｧｲﾙ無かったら
386. 　　If Not Sched.Count = 0 Then 　　　　　　　　　 '←書込みデータ有り
387. 　　　NewFileOK = NewFileMake(YM, FN) 　　　　　 '←新ﾌｧｲﾙ作成
388. 　　　If NewFileOK = False Then
389. 　　　　MsgBox "新ファイルが作れませんでした。" _
390. 　　　　　　　　& vbCrLf & "管理者に連絡して下さい。"
391. 　　　End If
392. 　　End If
393. 　End If
394. End Sub

図６－１４

CSVwriteプロシージャは、引数として、表示されているカレンダーの年月をDate型として受取ります。
その年月を使って、３６５行目では「表示年月のCSVファイル名」を作ります。 ３６６行目では、そのCSVファイル名の前に、「現在の日時」をアンダースコア（ _ 印）と共に結合したファイル名を作ります。これはバックアップのファイル名で、正規ファイルが保存出来たあとすぐに削除してしまうのであれば「"BackUp" & FN 」でも良いのです。
しかし、もし「バックアップファイルもしばらく残したい」という時には、保存しようとするバックアップと同じファイル名が残っている可能性が出てきます。もし同じものがあると、実行時エラーが発生し「既に同名のファイルが存在しています。」とマクロが停止してしまいます。
そこでバックアップファイルのファイル名は「決して同名にならない現在の日時」をファイル名に追加しました。
（「ファイル書込」ボタンを連打されると、同一時刻のファイルが出来る可能性は残りますのでご注意を）

また、３６５～３６６行目ではFormat関数を使って日付・時刻の書式を変更していますが、例えば「３６５行目は、拡張子も含めて以下の様に書くこともできるのでは？」と思われる方もいるかもしれません。
　　FN = Format(YM, "yyyymm.csv") 　　←これは間違い
しかし、「.csv」の文字の中には、Format関数で定められている日時を表す記号が２つ（ c と s ）も入っており、残念ながら思い通りのファイル名にはなりません。もし書くのであれば、
　　FN = Format(YM, "yyyymm.¥c¥sv") 　
と、「文字ですよ」という意味になるように「¥」をそれぞれの文字の前につけてエスケープさせてください。

３６８～３９３行目はIf文が何層にもなっており複雑な分岐をしています。まず分岐の考えの元となる図５－１２を再掲します。

	編集前の状況	編集中	編集完了時	TextBoxのBeforeUpdateイベント	データ処理方法
1	文字列が存在した （データがあった）	追記・修正した	文字列として残った	発生	データ更新
2		全部削除した	空文字になった		データ削除
3		何もしなかった	元の文字列のまま	ー	そのまま
4	空文字だった	記入した	文字列として残った	発生	データ新作
5		記入したが消した	空文字になった		そのまま
6		何もしなかった	空文字のまま	ー

図６－１５（図５－１２と同じ）

図６－１５は、メモリー内の保持データでの処理でしたが、これをファイルの立場で書き直したものが図６－１６です。
一番右列には、その処理方法に対応したコード番号を記載しました。

	ファイルの存否	メモリー上の保持データ	ファイル処理方法	コード行
1 (3)	ファイルが存在する	Dictionaryデータが1つ以上ある	ファイル更新	370～380行目
2		Dictionaryデータが無い	ファイル削除	382～383行目
4 (6)	ファイルが存在しない	Dictionaryデータが1つ以上ある	ファイル新作	387～391行目
5		Dictionaryデータが無い	何もしない	ー

図６－１６

この図６－１６の「ファイルの存否」列を判断しているのが３６８行目のIf文＋３８５行目のElse文、「メモリー上の保持データ」列を判断しているのが３６９行目のIf文＋３８１行目のElse文、及び３８６行目のIf文です。
各ブロックごとに説明していきます。

１（３）の「ファイルが存在する」＋「Dictionaryデータがある」の場合です。
３７０行目で、まず「FileReName」プロシージャを呼び出し、存在しているファイルのファイル名を変更します。第一引数に現在のファイル名、第二引数に変更後のファイル名を指定します。ここでは「正規ファイル名（FN）　→　バックアップファイル名（RN）」としていますので、正規ファイルのファイル名をバックアップファイル名に変更しています。

次に「NewFileMake」関数を呼出し、表示カレンダーの年月のCSVファイルを新作しています。その時のファイル名は正規ファイル名（FN）です。「NewFileMake」関数は、「ファイルが正常に作成されたらTrueを返す」ことにしています。
その返り値をNewFileOK変数で受取り、作成に失敗した（＝False）ら、３７４～３７７行目を実行します。
失敗時は「作成に失敗しました・・・」とのコメントを出し、３７７行目で「FileReName」プロシージャを再び呼び出します。
ここでの「FileReName」の引数は３７０行目の逆ですので、「バックアップファイル名（RN）→正規ファイル名（FN）」となり、バックアップしたファイルを元の正規ファイルに戻しています。
作成が成功した時は、３７９行目の「FileDelete」プロシージャで、不要になったバックアップファイル（RN）を削除します。

２の「ファイルが存在する」＋「Dictionaryデータが無い」の場合です。
３８３行目で「FileDelete」プロシージャを呼び出し、不要になった正規ファイル（FN）を削除します。
その前の３８２行目に「FileReName」をコメントアウトしてありますが、３８３行目をコメントアウトにし３８２行目を生かすと「バックアップファイル（RN）を残してから正規ファイルを削除する」という意味になります。

４（６）の「ファイルが存在しない」＋「Dictionaryデータが有る」の場合です。
バックアップする元ファイルがありませんから、３８７行目で正規ファイル（FN）を新作します。
「NewFileMake」関数の返り値がFalseであれば「ファイル作成失敗」という意味ですので、３８９～３９０行目でコメントを出し終了します。なお、バックアップファイルがありませんから、戻すことも不可能です。

５の「ファイルが存在しない」＋「Dictionaryデータが無い」場合は、何もしませんので、分岐先はありません。

なお、図６－１４はIf文を重ねて分岐させていますが、他の方法もあります。図６－１７で紹介します。

395. '==========　⇩(28)　CSVファイルにデータを書き込む（Select Case　版）　================
396. Sub CSVwrite2(YM As Date)
397. 　Dim FN As String 　　 '←正規ﾌｧｲﾙ名
398. 　Dim RN As String 　　 '←ﾊﾞｯｸｱｯﾌﾟﾌｧｲﾙ名
399. 　Dim NewFileOK As Boolean
401. 　FN = Format(YM, "yyyymm") & ".csv"
402. 　RN = "_" & Format(Now, "yyyymmddhhnnss") & "_" & FN
404. 　Select Case (Not Dir(CSV_PATH & FN) = "") * 2 + (Not Sched.Count = 0)
405. 　　　　　　　　　 '↑元ﾌｧｲﾙ有ったら 　　　　　　　　　　　↑書込みデータ有り
406. 　　Case -3　　　　　　　　　　　　　 '（元ファイル有り＋書込みデータ有り）
407. 　　　Call FileReName(FN, RN) 　　　　　　　　　　 '←元ﾌｧｲﾙの名前変更
408. 　　　NewFileOK = NewFileMake(YM, FN) 　　　　　　 '←新ﾌｧｲﾙ作成
410. 　　　If NewFileOK = False Then
411. 　　　　MsgBox "新ファイルが作れませんでした。" _
412. 　　　　　　　　& vbCrLf & "旧ファイルに戻します。" _
413. 　　　　　　　　& vbCrLf & "管理者に連絡して下さい。"
414. 　　　　Call FileReName(RN, FN) 　　　　　　　　　 '←元ﾌｧｲﾙの名前変更
415. 　　　Else
416. 　　　　Call FileDelete(RN) 　　　　　　　　　　　　 '←予備ﾌｧｲﾙの削除(予備ﾌｧｲﾙ不要の場合)
417. 　　　End If
418. 　　Case -2　 　　　　　　　　　　　　 '（元ファイル有り＋書込みデータ無し）
419. 　　　 'Call FileReName(FN, RN) 　　　　　　　　　　 '←元ﾌｧｲﾙの名前変更(予備ﾌｧｲﾙとして残す場合)
420. 　　　Call FileDelete(FN) 　　　　　　　　　　　　　 '←元ﾌｧｲﾙの削除(予備ﾌｧｲﾙ不要の場合)
421. 　　Case -1　 　　　　　　　　　　　　　 '（元ファイル無し＋書込みデータ有り）
422. 　　　NewFileOK = NewFileMake(YM, FN) 　　　　　　　 '←新ﾌｧｲﾙ作成
423. 　　　If NewFileOK = False Then
424. 　　　　MsgBox "新ファイルが作れませんでした。" _
425. 　　　　　　　　& vbCrLf & "管理者に連絡して下さい。"
426. 　　　End If
427. 　End Select
428. End Sub

図６－１７

図６－１７の４０４行目のSelect文では「 (Not Dir(CSV_PATH & FN) = "") * 2 + (Not Sched.Count = 0)」を評価式にしています。
前半の「(Not Dir(CSV_PATH & FN) = "")」は、図６－１４の３６８行目のIf文と同じで、「ファイルが存在すればTrue」となります。Excelの中でTrue、Falseを計算に使うと「True＝－１」「False＝０」です。
一方、後半の「 (Not Sched.Count = 0)」は「保持データが存在すればTrue」となります。
ですので「 (Not Dir(CSV_PATH & FN) = "") * 2 + (Not Sched.Count = 0)」の計算は、図６－１８の様になります。

	ファイルが存在	保持データが存在	(Not Dir(CSV_PATH & FN) = "") * 2　+　(Not Sched.Count = 0)の値
1(3)	有	有	（－２）＋（－１）＝　－３
2	有	無	（－２）＋（　０）＝　－２
4(6)	無	有	（　０）＋（－１）＝　－１
5	無	無	（　０）＋（　０）＝　　０

図６－１８

この表の右列の値をSelect Case文で仕訳けて、図６－１６の内容を実行していけば、図６－１４と同じ結果が得られます。
If文を多重にすると行頭が揃わなくなりますが、Select Case だと揃えられるので少しコードが読み易くなるかもしれません。試してみるのも良いかと思います。

６－２－５．CSVファイルを新作する（Module２）

図６－１４の３７１・３８７行目から呼び出されるのが、図６－１９のNewFileMake関数です。引数として、「年月（YM）」及び「保存するファイル名（Fname）」を渡されます。
FnameはYMから作ります（例えば、図６－１４の３６５行目）ので、引数としてはYMのみでも成立します。今回は同じ式を繰り返すのを嫌って引数を２つにしましたが、YMのみにした場合は、プロシージャ内に変換式（図６－１４の３６５行目相当）を記述して下さい。

429. '==========　⇩(29)　DictionaryデータからCSVファイルを作成する　===============
430. Function NewFileMake(YM As Date, Fname As String) As Boolean
431. 　Dim St As Object
432. 　Dim buf As String
433. 　Dim i As Date
434. 　Const adWriteLine = 1
436. 　Set St = CreateObject("ADODB.Stream")
437. 　St.Charset = CHARACTER
438. 　 'st.Type = AdTypeText　　　　　　　　　　 '既定値(2)　
439. 　St.Open
441. 　　If HEADER = 1 Then
442. 　　　St.WriteText """日付"",""内容""", adWriteLine
443. 　　End If
445. 　For i = YM To DateSerial(Year(YM), Month(YM) + 1, 0)
446. 　　If Sched.Exists(i) = True Then
447. 　　　buf = i & ",""" & Sched(i) & """"
448. 　　　St.WriteText buf, adWriteLine
449. 　　End If
450. 　Next i
451. 　On Error Resume Next
452. 　　St.SaveToFile CSV_PATH & Fname　　　　　 ', adSaveCreateNotExist (既定＝1)
453. 　　If Err.Number = 0 Then NewFileMake = True
454. 　On Error GoTo 0
456. 　St.Close
457. 　Set St = Nothing
458. End Function

図６－１９

４３６行目は、CSVreadプロシージャ（図６－５の３３６行目）と同様にStreamオブジェクトを生成します。
４３７行目は文字コードを設定します。設定値のCHARACTER定数は、図６－２の３１１行目で設定してあるものです。

４３８行目は、StreamオブジェクトのTypeプロパティにAdTypeText（数値＝２）を設定するものですが、コメントアウトしてあります。 Streamオブジェクトを「事前バインディング」（ツールの参照設定で「Microsoft ActiveX Data Objects x.x Library」をON）する場合には、定数「AdTypeText」には「２」という値が設定されるのですが、今回の「実行時バインディング」（４３６行目のCreateObjectを使用）では「AdTypeText」には値が入っていません。 ですので、実行時バインディングの場合は、プロパティ設定の前に、使用する定数の宣言と値代入が必要となります。 しかし今回Typeプロパティに設定したいAdTypeTextは既定値であるため、あえてプロパティ設定をしなければAdTypeText（値２）が入る為にコメントアウトにしています。

４３９行目でStreamオブジェクトを開きます。
４４１行目は、定数HEADERが１（＝Header有）であれば、４４２行目を実行しタイトル行を作成します。
ここで使用されている「WriteText メソッド」はStreamオブジェクトにテキストを書き込むの意味で、第一引数に「書き込む文字列」、第二引数には「文字列の末尾に行区切り記号を書き込む」のadWriteLineを指定します。
なおadWriteLineは「CrLf」を書き込むとは限りません。「LineSeparator プロパティ」で指定した「adCR」・「adCRLF」・「adLF」のどれかで行区切りをするのです。但し「adCRLF」が既定値ですので、何も指定していない為に「CrLf」が区切り文字になっているのです。

さてタイトルにする文字列ですが、複数の「"（ダブルクォーテーション）」が連続しており分かり難くなっています。


図６－２０

４４２行目のWriteTextメソッドの第一引数には「文字列」を指定することになるので、両端のダブルクォーテーションは「全体を囲み、１つの文字列とするためのダブルクォーテーション」となります。残りは２つずつのダブルクォーテーションが４組あり、ダブルクォーテーション２つで「１つのダブルクォーテーションという文字」を表しています。

４４５行目はFor～Next文で、カウント変数ｉは「カレンダーの初日（引数YM）」から「最終日」までを順に調べながらCSVデータを作っていきます。尚、最終日の計算方法は「月の最終日の計算方法」を参照下さい。
４４６行目は、カウント変数ｉ（日付）のKeyが Dictionaryデータに存在するかを確認し、存在すれば「i & ",""" & Sched(i) & """"」を変数bufに代入します。

ここでもダブルクォーテーションが連続して使用されているので、図６－２１で説明しておきます。

図６－２１

４連続のダブルクォーテーションの内、外側のダブルクォーテーションは文字列として囲ってるものであり、中の２個は、「２つで１つのダブルクォーテーションという文字」を表しています。

ここでカウント変数ｉはDate型ですので、当初４４７行目の先頭のｉには「2020/07/01 00:00.00」のように「時刻も文字列として入ってしまうのでは」と考えていました。その為、Format関数を使ったり、Date型をClngでシリアル値にしたりしていました。 しかし、Date型でも日付のみ（Double型で言うと小数点以下の無い整数値）の場合は、時刻の無い日付として出力されるようですので、何も変換せずに直接ｉを使うようにしています。

４４８行目では、組み立てた１行のデータをStreamオブジェクトに書き込んでいます。第二引数のadWriteLineは４４２行目と同じです。

タイトル行、データ行のStreamオブジェクトへの書込みが完了すると、４５３行目でSaveToFileメソッドを使って「Streamオブジェクトに書き込んだ内容を、ファイルに出力」します。出力先は、第一引数である「CSV_PATH & Fname」ですので、カレンダー表示月のCSVファイルになります。

しかし、万一書込みが失敗した場合にはエラーが発生します。そのためエラーとラップとして４５１行目に「On Error Resume Next」を置き、エラーが出ても進ませます。書込み実行後４５３行目でエラー番号を調べ（エラーが出たら、Err.Numberはゼロ以外が出る）、ゼロだったら（＝正常に書込みが完了した）Functionプロシージャの返り値としてTrueを代入します。
なお、ゼロ以外（エラーが出た）の場合は、既定値であるFalseがFunctionプロシージャの返り値になります。

４５６行目でStreamオブジェクトを閉じ、４５７行目でStreamオブジェクトを解放します。

６－２－６．CSVファイルを削除（Module２）

図６－１４の３７９・３８３行目から呼び出されるのが、ファイルを削除するFileDeleteプロシージャです。（図６－２２）
引数としては「削除するファイル名」を受取ります。

459. '==========　⇩(30)　CSVファイルを削除する　===============
460. Sub FileDelete(Fname As String)
461. 　Dim Fso As Object
462. 　Set Fso = CreateObject("Scripting.FileSystemObject")
463. 　Fso.GetFile(CSV_PATH & Fname).Delete
465. 　Set Fso = Nothing
466. End Sub

図６－２２

４６２行目ではFileSystemObjectオブジェクトを生成します。 ４６３行目では、引数のファイル名をGetFileの引数にすることで、そのファイル名をFileオブジェクトとして受取り、FileオブジェクトのDeleteメソッドでファイル削除をしています。
４６３行目の代わりに「Fso.Deletefile (Fname)」を使っても同じ結果になります。尚この場合の「Deletefile」はFileSystemObjectオブジェクトのDeletefileメソッドです。
どちらでも、分かり易い方を使用して下さい。

６－２－７．CSVファイルの名前の変更（Module２）

ファイル名を変更するプロシージャが図６－２３です。図６－１４からは、３７０・３７７・３８２行目から呼び出されます。
引数は２つあり、第一引数には変更前の既存のファイル名、第二引数には変更後のファイル名を指定します。
当然ながら第二引数のファイル名が既存のファイル名だとエラーが発生します。

467. '==========　⇩(31)　CSVファイルの名前を変更する　=============
468. Sub FileReName(Name1 As String, Name2 As String)
469. 　Dim Fso As Object
470. 　Set Fso = CreateObject("Scripting.FileSystemObject")
472. 　Fso.GetFile(CSV_PATH & Name1).Name = Name2
474. 　Set Fso = Nothing
475. End Sub

図６－２３

４７０行目は、FileSystemObjectオブジェクトを生成します。
４７２行目では、引数のファイル名をGetFileの引数にすることで、そのファイル名をFileオブジェクトとして受取り、FileオブジェクトのNameプロパティでファイル名を付け直しています。
他の方法として「Fso.MoveFile Name1, Name2 」を使うこともできます。MoveFileはFileSystemObjectオブジェクトのメソッドで「ファイルを移動」するのが主目的ですが、「同じフォルダで異なるファイル名」を使うことで、ファイル名変更することが出来ます。

６－２－８．文字列をDelimiter(単文字列)で区切り、配列で返す（Module２）

図６－５の３４７・３５３行目から呼び出されるもので、文字列を特定の文字列（Delimiter）で区切り、配列として返す関数です。これだとSplit関数と同じなのですが、このmySplit関数は「文字列の中のDelimiter文字列は無視」するようにしています。
この関数については「CSVファイルの読み込み」で詳細説明していますので、そちらを参考にして下さい。

476. '==========　⇩(32)　文字列をDelimiter(単文字列のみ)で区切り、配列で返す　========
477. Function mySplit(buf As String, Delimiter As String) As String() '出力をString型へ
478. 　 '//buf=対象文字列 '//Delimiter＝区切り文字
479. 　Const MOJI As String = """"　　　 '←文字列を囲っている文字(ここでは｢"｣)を指定
480. 　Dim MOJI_count As Boolean　　　　 '←MOJIを数える変数。奇数ならFalse、偶数ならTrue
481. 　Dim SP() As String　　　　　　　　 '←String型へ。１行分のデータをｶﾝﾏ印で分割した値を入れる配列
482. 　Dim buf1 As String　　　　　　　　 '←bufから切り出した1文字
483. 　Dim buf2 As String　　　　　　　　 '←切り出した文字をまとめた文字列
484. 　Dim i As Long, cnt As Long　　　　 '←カウンタ変数
486. 　buf = buf & Delimiter
488. 　For i = 1 To Len(buf)
489. 　　buf1 = Mid(buf, i, 1)
490. 　　If buf1 = MOJI Then
491. 　　　MOJI_count = Not MOJI_count
492. 　　ElseIf (buf1 = Delimiter And MOJI_count = False) Then
493. 　　　ReDim Preserve SP(0 To cnt)
494. 　　　cnt = cnt + 1
495. 　　　SP(UBound(SP, 1)) = buf2
496. 　　　buf2 = ""
497. 　　Else
498. 　　　buf2 = buf2 & buf1
499. 　　End If
500. 　Next i
502. 　mySplit = SP
503. End Function

図６－２４

なお「CSVファイルの読み込み」内のmySplit関数と異なるところが１箇所だけあります。関数の戻り値である配列のデータ型をVariant型 → String型に変更しました。
戻り値側をVariant型にしたその当時の理由は、戻り値の配列の内容は「片方に日付の値、もう片方にString型の内容」と型が混ざった値が入るためVariant型の方がBetterだろう、と考えたからです。

しかし今回のシステムでは、３４７行目で「vbCr」で区切り、その区切ったデータを３５３行目で「,（カンマ）」で区切っています。簡単に言うと１回目の出力が２回目の入力になるのです。
もともとのコードは出力がVariant型で入力がString型でしたので、２回目でエラーが発生してしまいました。汎用性の高い関数ほど、入力・出力のデータ型には注意が必要だと反省しています。

６－２－９．文字列をDelimiter(複数文字列可)で区切り、配列で返す（Module２）

図６－２４のmySplit関数では、第二引数のDelimiterは単文字列としてアルゴリズムを考えました。しかしvbCrLfのような２文字で文字列を区切る場合には使えない事が分かりました。
（今回のシステムでは、vbCr の１文字で区切ることで運よく成立することは出来ましたが）
そこでDelimiterに複数文字列を使える区切り方法を図６－２５で紹介します。

504. '==========　⇩(33)　文字列をDelimiter(複数文字列可)で区切り、配列で返す　　==========
505. Function mySplit2(buf As String, Delimiter As String) As String()
506. 　　　 '//buf=対象文字列 //Delimiter＝区切り文字列
507. 　Const MOJI As String = """"　　 '←文字列を囲っている文字(ここでは｢"｣)を指定
508. 　Dim SP() As String　　　　　　　 '←String型へ。１行分のデータをｶﾝﾏ印で分割した値を入れる配列
509. 　Dim PStart As Long　　　　　　　 '←Delimiterで分割される文字列の先頭位置
510. 　Dim PEnd As Long　　　　　　　　 '←Delimiterで分割される文字列の最終位置
511. 　Dim PMid As Long
512. 　Dim MOJIcount As Long　　　　　 '←その位置までに出てきたMojiの数
513. 　Dim cnt As Long
514. 　Dim Pbuf As String
516. 　cnt = 0　　　　　　 '←データ行の要素数（ゼロ始まり）
517. 　PStart = 1　　　　 '←データの先頭位置
518. 　PMid = 1　　　　　 '←検索の先頭位置
520. 　If Delimiter = "" Then
521. 　　ReDim Preserve SP(0 To 0)
522. 　　mySplit2 = SP　　　 '←Delimiterが空だと関数内でエラーが出る為、空配列を戻して終了させる
523. 　　Exit Function
524. 　End If
526. 　buf = buf & Delimiter　　 '←同じﾙｰﾁﾝｺｰﾄﾞでﾃﾞｰﾀ区切りを可能にする為､ﾃﾞｰﾀ塊の最後に区切り文字を結合
527. 　Do
528. 　　Do
529. 　　　PEnd = InStr(PMid, buf, Delimiter)
530. 　　　Pbuf = Mid(buf, PStart, PEnd - PStart)
531. 　　　MOJIcount = Len(Pbuf) - Len(Replace(Pbuf, MOJI, ""))
532. 　　　If MOJIcount Mod 2 = 0 Then
533. 　　　　ReDim Preserve SP(0 To cnt)
534. 　　　　SP(cnt) = Pbuf
535. 　　　　cnt = cnt + 1
536. 　　　　Exit Do
537. 　　　End If
538. 　　　PMid = PEnd + Len(Delimiter)
539. 　　　DoEvents: DoEvents
540. 　　Loop While Not PEnd = Len(buf) - Len(Delimiter) + 1
542. 　　PStart = PEnd + Len(Delimiter)
543. 　　PMid = PStart
544. 　　DoEvents: DoEvents
545. 　Loop While Not PEnd = Len(buf) - Len(Delimiter) + 1
547. 　mySplit2 = SP
548. End Function

図６－２５

アルゴリズムはmySplitとは全く異なります。図６－２６で説明します。

図６－２６

まず文字列の先頭からDelimiterをInStr関数で捜します（③）。探し当てた位置までの文字列の中に「データを囲む記号（ここではダブルクォーテーション）」が何個あるか数えます（④）。
「データを囲む記号」は、先頭と最後尾を囲んでいますので必ず偶数です。先頭から数えていき、もし奇数ならば「データの中に居る」と考えられます。
ですので、偶数であればデータの区切りと判断し、そこまでのデータは戻り値用の配列に格納します。
奇数の場合は、先程見つけたデータ中のDelimiterのすぐ後ろを探索の先頭にして、それ以降でDelimiterを再び探します。
文字列を全て探せば、必ず「データを囲む記号」は偶数個になるはずですので、そこで最後のデータを配列に格納できます。

以上の考え方を踏まえて、図６－２５のコードを説明します。
５１６～５１８行目は、データを格納する配列の要素数（cnt変数）と検索の開始位置を示すポインター（PSart、PMid）の初期化です。ポインターのPStartはデータの先頭位置を表し、もう一方のPMidはDelimiterを捜す際の先頭位置を現しています。

５２０～５２４行目は、関数を呼び出す時にDelimiterが空文字の場合にはエラーが発生してしまうため、空の配列を戻してエラーを回避しています。

５２６行目は引数で渡された文字列の最後にDelimiterを結合しています。
これは、文字列の最後のデータを取り出す時にも、途中のデータ取り出しと同じルーチン（Delimiterを検出しダブルクォーテーションの個数が偶数だったらデータと見なす）で進められるようにするためです。（図６－２６の中の⑩の状態）

５２７～５４５行目の中にはDo～Loopが二重になっています。内側のDo～Loopは５２８～５４０行目になりますが、内側は１つのデータを確定して配列に格納するまでの処理で、外側は次のデータに移る処理の役目になっています。

５２９行目はDelimiterを検出しています。検索のスタート位置はPMidで、Delimiterの次の文字から（開始時は先頭文字から）です。
５３０行目は５２９行目で検出したDelimiterの手前までの文字列を取得しPbuf変数に代入しています。この時のスタート位置は５２９行目とは少し異なり、データの区切りと確定したDelimiterの次の文字からになります。

５３１行目は５３０行目で切り出した文字列Pbufの中に、何個の区切り文字MOJI（今回はダブルクォーテーション）が入っているか計算しています。手法としては図６－２７の様になってます。

図６－２７

ある文字列（Pbuf）の中に「データを囲む区切り文字MOJI（ここではダブルクォーテーション）」が何個あるかを数えるには、「データを囲む記号MOJI」をReplace関数で「長さゼロの文字列」に置換し、元の文字列の中さと比較をするのです。
置換されると、その文字としては「長さ１→長さゼロ」になりますので、「置換された個数＝短くなった長さ」となるのです。

５３２行目では、偶数か奇数かを判断しています。「データを囲む記号MOJI」の個数に対して「Mod関数（割った余りを計算）」を使い、２で割って余りがゼロなら偶数となります。
「偶数＝データの区切り」ですので、５３３～５３６行目を実行します

まず５３３行目ではデータを入れる配列SPのサイズを１つ大きくします（インデックスはゼロ始まり）。
５３４行目では、サイズアップした配列SPの最後に切り出した文字列を格納します。
５３５行目では次のデータのためにcnt変数（データの数量）を１つ増やしてから、Exit Doで内側のDo～Loopを抜けます。

一方、奇数だった場合は「まだデータの途中」の為 Do～Loop内の５２９行目に戻りますが、その前に５３８行目を実行します。
５２９行目で再度Delimiterを検索するのですが、このままでは「またデータ途中のDelimiterを検出してしまう」ため、検索のスタート位置を移動してあげる必要があります。そこで５３８行目では、検出したDelimiterの次の文字に検索スタート位置（PMid）をずらしています。
５３９行目の「DoEvents：DoEvents」は、万一内側Do～Loopが無限になってしまった時の為のおまじないです。
「：（コロン）」でつないでいるのは、２つのコードを「１行で記述している」という意味になります。

５３６行目で内側Do～Loopを抜けた（＝データ区切りのDelimterを見つけた）ら、５４２行目に移ります。
５４２行目では「新たなデータの検索」に移行したため、検索スタート位置をDelimiterの次の文字位置に移動させます。５４３行目は、その同じ位置をPMidに代入していますが、これは５１７～５１８行目で先頭位置を揃えるのと同じ意味になります。
５４４行目の「DoEvents：DoEvents」は、外側Do～Loopが無限になってしまった時の対策です。

尚、５４０・５４５行目のDo～Loopを回している条件式を「Not PEnd = Len(buf) - Len(Delimiter) + 1」としています。右辺の「 Len(buf) - Len(Delimiter) + 1」は、図６－２６で分かるように「最後のDelimiterを検出した位置」であり、PEndがその位置に来るとNotが付いているために条件式がFalseになりDo～Loopが終了します。
ピンポイントでFalseを出しているため、もし心配であるなら「もし通り過ぎても止まる」ように「Loop While PEnd < Len(buf) - Len(Delimiter) + 1」とする方法も良いと思います。

５４７行目では、分割したデータを格納した配列SPを、Function関数の戻り値とするためmySplit2に代入しています。

７．最後に

自分の中では「CSVファイルへの書き出し」をメインテーマにExcelを作ったつもりでしたが、説明を書き進めてみるとDictionaryデータやデータの分割、TextBoxのイベント等の方がメインになってしまった感があります。
またこの予定表はExcelとして一応完成したものの、インターネット・イントラネット上のサイトでデータを共有しようとすればHTML等でCSVファイルを取り込めるようにする事はほぼ必須とも思っています。
追々やっていかないと言う認識は持っていますので、まずは使えそうな環境でお役に立てばと思います。

一方、今回は「FileSystemObject」や「Stream」を使ってファイル削除・ファイル名変更・ファイル作成などの操作がありましたが、その様な操作を権限として許可されているのか否かを、もう少し考慮しなければ・・・と思っています。データをマクロを記述してあるExcel以外に保存しようとした時には必ず発生する問題とも思いますので、充分なチェックと試行が必要と思います。


CSVファイルでデータを読み書きする月間予定表（it-033.xlsm）
2020年7月CSVデータ（202007.csv）

・サンプルファイルで試行する場合には、CSVファイルを保管するフォルダを作り、そのフルパスをModule2の先頭の定数「CSV_PATH」に指定してから動かす様にして下さい。 ・２番目の添付ファイル「202007.csv」はサンプルデータですので、そのCSV保管フォルダにコピーしなくても構いません。 ・CSVのサンプルデータを使わない場合、サンプルファイルを起動させても初期状態では予定は表示されません。

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