EXCEL　年末　月/日で１月以降を入力すると年が翌年にならない

年末にEXCELで月/日で１月以降を入力すると年が翌年にならない

1/10は2016/1/10になってしまいます。

2017/1/10で入力すれば問題は解消されるのですが普段から/の入力なので面倒です。

そこでマクロ作りました。

①EXCELで範囲指定（ドラッグ）します。

②範囲指定された1月、２月は翌年（2017)に変換します。

 

まずEXECLの　

「変換したいEXCELファイル」と

「日付変換（年）.xlsm」を開きます。

①

②マクロを起動します。[開発]ー[マクロ]

（日付CONV)を選択します。

一瞬で変換します。

戻るボタンはきかないのでバックアップ取って試してください。

 プログラムサンプル

    
    Sub 日付CONV()

   Dim x As Range, i As Long
    For Each x In Selection
       
       If IsDate(x.Value) = True Then
            work_dt = c.Value
            If work_dt >= #1/1/2016# And work_dt < #3/1/2016# Then
                
               x.Value = DateAdd("yyyy", 1, work_dt)
               
            End If
       End If
       
    Next x

End Sub