VBA：OneMonthLaterマクロの解説

　こんにちは、今日は、時間を操る小さなVBAスクリプト「OneMonthLater」について話しましょう。このスクリプトは、現在の日付とその1ヶ月後の日付を計算してくれる便利なツールです。では、このコードがどのように動作するのか、一緒に見ていきましょう。

コード

Sub OneMonthLater()

    Range("A1").Value = DateSerial(Year(Now), Month(Now), Day(Now))

    Range("A2").Value = DateSerial(Year(Now), Month(Now) + 1, Day(Now))

End Sub

　まず、`Sub OneMonthLater()`は、このマクロが「OneMonthLater」という名前であることを示しています。これは、ExcelのVBAエディタで実行するための手続き（または「サブルーチン」）です。

　次に、`Range("A1").Value = DateSerial(Year(Now), Month(Now), Day(Now))`という行があります。ここで`Range("A1").Value`は、ExcelのA1セルに値を設定することを意味します。そして、`DateSerial`関数は、年、月、日を引数として受け取り、それらを組み合わせて日付を返します。この場合、`Year(Now)`, `Month(Now)`, `Day(Now)`はそれぞれ、現在の年、月、日を返します。つまり、この行はA1セルに今日の日付を設定します。

　さらに、`Range("A2").Value = DateSerial(Year(Now), Month(Now) + 1, Day(Now))`という行では、A2セルに1ヶ月後の日付を設定しています。ここで重要なのは、`Month(Now) + 1`です。これにより、現在の月に1を加えて、次の月を得ることができます。ただし、12月（月が12）の場合は、年を1つ進めて月を1に戻す必要がありますが、`DateSerial`関数は自動的にこれを処理してくれます。

　最後に、`End Sub`は、手続きの終わりを示しています。

このマクロは、プロジェクトの期限管理やイベントのスケジューリングなど、さまざまな場面で役立ちます。例えば、レポートの提出期限が毎月変わる場合、このマクロを使って次の期限を簡単に計算できます。