hide_kichiの情報

気になる情報を適当にアップしていきます

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

f:id:hide_kichi:20161222140546p:plain

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

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

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

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

EXCELで範囲指定(ドラッグ)します。

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

 

まずEXECLの 

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

「日付変換(年).xlsm」を開きます。

f:id:hide_kichi:20161222141417p:plain

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

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

f:id:hide_kichi:20161222141619p:plain

f:id:hide_kichi:20161222141702p:plain

一瞬で変換します。

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

 プログラムサンプル

    
    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