選択したセルの値を+7日するマクロ

公民館使用日誌の「使用年月日」。第１週の火曜日と金曜日のクラスを入力した後は、コピペして使用年月日はハンドで+7日していたが、面倒なのでマクロですることにした。

Sub プラス7日する()
Dim C As Range
Dim datDate As Date

    For Each C In Selection
        datDate = C.Value
        datDate = DateAdd("d", 7, datDate)
        C.Value = datDate
    Next
End Sub

よく解らないのが変数 C の定義。

Dim C

でも動くが、これでは Option Explicit にする意味が半減する。

Dim C As Range

としたが、これで良いのだろうか？ 動くことは動くが‥‥　森本家のワークシート に聞いてみようか...