投稿者: oki2a24

やりたいこと

• 12月の翌月は1月だが、この数字を簡単に VBA で取得したい。
• 月によって最終日が異なるが、月末日の数字を簡単に VBA で取得したい。

ポイント

• DateSerial メソッドを使用する。引数は、年、月、日、の数字。
• DateSerial メソッドは 1〜12以外の月数字や、1〜28、29、30、31以外の日にち数字とした場合、はみ出た分を自動的に加減して計算してくれる。
• 例えば、DateSerial(2015, 14, 0) ⇒ 2016/01/31 (14月 → 翌月2月 & 0日 → 前日末日) となる。
• 来月の月数字 (y は年の4桁文字列、m は月の数字文字列) : month(DateSerial(y, m + 1, 1))
• 今月末の日にち数字 (y は年の4桁文字列、m は月の数字文字列) : day(DateSerial(y, m + 1, 0))

VBA コード

追記: 更に改善版です！

• 【Excel VBA】【改善2】座標でなく、フォーマットシートに設定したキーに対応する場所に書き込むクラスの仕様変更とリファクタリング♪ – oki2a24

フォーマットに指定した変数に対応する場所に書き込むことでセルの位置、つまり座標を意識しないでよくなるクラスを書きました。

• 【Excel VBA】セル番号などの絶対座標指定ではなく、セルに変数として指定した文字列に対応した場所に書き込む変数指定で帳票を楽に作れるようにするクラス！ | oki2a24

抽象度が高まり、よいと存じます。

今回は、これを改善いたしましたので、それを記録いたします♪

ポイント

• 利用者が誤ってテンプレートの変数を削除した場合でもエラーとさせたくない。そのために、CellValues に設定していたキーに対応するテンプレートになくても無視するようにした。
• 書き込み対象ワークシートに書き込んだ後、書き込み先範囲を移動するメソッドを追加した。これにより、ループを使って同じフォーマットの複数の帳票を作成できる。
  • WriteToVariableAndOffset → オフセット移動
  • WriteToVariableAndDown → 下に移動
• プロパティにしなくとも問題ないものはプロパティから削除し、スリム化した。
• 省略しても可読性が維持できると思った部分は短く書き、行数を短くした。

次の点は、あえて対応いたしませんでした。

• フォーマットの変数に対応する値がコードに設定されていない場合は、テンプレートの変数がそのまま書き込み先シートに書き込まれてしまう。
• このとき、特にエラーは発生しない。
• コード側でのフォーマット変数定義漏れに気がつくチャンスが増えるメリットがある。
• また、コード側で値が取得できないことがあると予めわかっている場合は、空文字で初期化しておけば良い。
• よって、特に対処しない。