インプットボックスで指定した期間を計算して日付を入力
Dim 期間自, 期間至, 期間年
Public Sub 期間計算()
期間自 = Cells(行番号, 列番号)'元の日付が入力されているセル
期間年 = InputBox("年数", "契約期間", 3)'デフォルトで3年
期間至 = DateAdd("yyyy", 期間年, 期間自)
期間至 = DateAdd("d", -1, 期間至)'1日引く
Cells(行番号, 列番号) = 期間至'結果を入力するセル
End Sub
目次へ
Dim 期間自, 期間至, 期間年
Public Sub 期間計算()
期間自 = Cells(行番号, 列番号)'元の日付が入力されているセル
期間年 = InputBox("年数", "契約期間", 3)'デフォルトで3年
期間至 = DateAdd("yyyy", 期間年, 期間自)
期間至 = DateAdd("d", -1, 期間至)'1日引く
Cells(行番号, 列番号) = 期間至'結果を入力するセル
End Sub
目次へ