Excel Access VBA と スマホに一眼レンズ と 一眼カメラ

ExcelAccessのVBAの覚書とスマホに一眼レンズをつけて写真を撮ってみました 一眼カメラの写真もあります

広告

※このエリアは、60日間投稿が無い場合に表示されます。記事を投稿すると、表示されなくなります。

インプットボックスで指定した期間を計算して日付を入力

2017-06-17 13:28:33 | ExcelVBAの備忘録
インプットボックスで指定した期間を計算して日付を入力

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

目次へ

ジャンル:
ウェブログ
コメント   この記事についてブログを書く
この記事をはてなブックマークに追加
« 小樽 天狗山 山頂の 雲海 | トップ | 小樽 天狗山からの朝日です »
最近の画像もっと見る

コメントを投稿

ExcelVBAの備忘録」カテゴリの最新記事