業務改善コンサルタントが教える Excel VBA自動化のすべて〜35の事例で課題解決力を身につける〜

サポートページ

この記事を読むのに必要な時間：およそ 0.5 分

本書のサンプルファイルをダウンロードできます。

データはzip形式の圧縮ファイルでダウンロードできます。圧縮ファイルをダウンロードしていただき，適宜解凍してご利用ください。

ファイルやフォルダ名が文字化けするなどの不備がありましたので，修正いたしました。2023年2月28日以前にダウンロードされた方は，お手数ですがダウンロードし直していただきますよう，お願いいたします。

（2023年2月28日最終更新）

本書の以下の部分に誤りがありました。ここに訂正するとともに，ご迷惑をおかけしたことを深くお詫び申し上げます。

（2023年2月22日最終更新）

誤	`日付 = Format(.Range("B2").Value, "m月d日")`
正	`日付 = Format(.Range("B2").Value, "yyyy年m月d日")`

誤	`日付 = Format(.Range("B2").Value, "m月d日")`
正	`日付 = Format(.Range("B2").Value, "yyyy年m月d日")`

誤	`開始日 = Format(.Range("B2").Value, "m月d日") 終了日 = Format(.Range("C2").Value, "m月d日")`
正	`開始日 = .Range("B2").Value 終了日 = .Range("C2").Value`

誤	`開始日 = Format(.Range("B2").Value, "m月d日") 終了日 = Format(.Range("C2").Value, "m月d日")`
正	`開始日 = .Range("B2").Value 終了日 = .Range("C2").Value`