日付変更を効率的に : 日付増減ボタンの作成

入力されている日付を1日または7日増減させるマクロを作ってボタン化します。日付の修正は、日にち部分だけ選択して入力するか年からきちんと入力するかですが、どちらも微妙に面倒です。また、「7月2日の1週前倒し」のような計算でミスしたり、年を省いて入力したら翌年になってしまったり…。

多くの日付を書き換えるスケジュール管理シートなどでは、ボタンクリックで処理できるようにすると格段に効率化できます。

日付増減マクロ

Sub DateChg()

    Dim oRng As Range
    Dim nameShp As String
    
    On Error Resume Next
    nameShp = Application.Caller
    If Err.Number <> 0 Then Exit Sub
    On Error GoTo 0
    
    For Each oRng In Selection
        With oRng
            If IsDate(.Value) And Not (.HasFormula) Then
                .Value = .Value + CInt(nameShp)
            End If
        End With
    Next oRng
    Set oRng = Nothing
End Sub

このマクロは、ボタンとして配置した図形から呼び出すことを想定しています。ボタンは複数ですがマクロは一つで対応できます。