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

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

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

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

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

目次へ

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

コメントを投稿


コメント利用規約に同意の上コメント投稿を行ってください。

数字4桁を入力し、投稿ボタンを押してください。

あわせて読む

トラックバック

この記事のトラックバック  Ping-URL
  • 30日以上前の記事に対するトラックバックは受け取らないよう設定されております。
  • 送信元の記事内容が半角英数のみのトラックバックは受け取らないよう設定されております。
  • このブログへのリンクがない記事からのトラックバックは受け取らないよう設定されております。
  • ※ブログ管理者のみ、編集画面で設定の変更が可能です。