エクセルの日付計算

質問

以前、日付計算を返答頂きましてありがとうございました。

以下のようにするための入力方法について質問します。
A列の日付入力に対して、F列に自動的に○日後が表示されるようにするにはどのように入力したらいいでしょうか？

宜しくお願いします。

回答No.3

sakusaker7

ちょっと調べて VBAで組んでみました。
とりあえずバージョンなので手を入れるべきところは多々ありますが
まあこんな感じできるよ。ということで、

このスクリプトを、以下のようにしてExcelシートに貼り付けてください。

・このマクロを使用したいシートを開き
・ALTキーを押しながらF11キーを押下
・Visual Basic Editor が開かれるのでそこから
ウィンドウの左上にあるプロジェクトというタイトルのペインにある
VBAプロジェクト→Microsoft Excel Object → sheet1をダブルクリック
　(別にほかのシートでもかまいませんが、選択したシートに対して有効工になります)
　右側の大きなペインに新たにウィンドウが開かれるので
ウィンドウの上のほうの左側にある general と表示されているリストボックスをworkbookにする
その右にあるリストボックスをChangeにする

ここまでのステップで

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

という二行が貼り付けられるので、この二行の間に以下のコードを貼り付けてください。

Dim R As Range

Application.EnableEvents = False

For Each R In Target
If R.Column = 1 Then
Cells(R.Row, 6).Value = "=" & "a" & CStr(R.Row) & "+30"
End If
Next

Application.EnableEvents = True

貼り付けたら、一応ブックをセーブしてからファイル→終了してMicrosoft Excel に戻る を選択

これでA列のどこかのセルにデータを入れると、その行のF列にA列の値＋30の
値を放り込むようになります。
エラーチェックも何もせずに単純に+30しているだけなので、
たとえばA30に100とか入力するとF30には130が入ったりします。

たたき台にでも使ってください。

回答No.2

sakusaker7

#1の補足にある質問の意味が今ひとつ取れないのですが、

・A列には日付が入力されるけれども、それは最初からあるものではない。
・A列のセルに日付が入力されたら即F列の対応するセルにA列のセルに入った
日付の30日後の日付が表示されるようにしたい。

ということですか?

F1 に =D1+30 と入力して、それを下に必要なだけコピーすれば列指定だけ
数字が変わっていきませんか?
これだとA列に実際にデータが入るまで 30 という表示になると思いますが、
IF関数を使ってやればそれを回避することは可能です。

あー、こういう事前準備なしに、任意のA列のセルにデータ入ったらF列に
反映したいということでしょうか?
だとすると、組み込みの関数だけではダメで、VBA使ってマクロを書く必要があります。

補足

丁重なご回答ありがとうございました。
A列に始まり日（毎回違った日を入力を入力）入れるとF列に３０日後の終了日が自動的に上がってくるようにしたいんですが、関数の苦手な私としてはどうにかならないものかと考えていたのですが、何か難しそうですね。回答にあったように一つ一つ入力した方が、ミスがないかも知れませんね。

回答No.1

sakusaker7

日付データが文字列として入っているのでなければ、セルA1に日付データがあるとして
セルF1に =A1+1 を入れると一日後の日付になります。

文字列として入ってるのであればDATEとかDATEVALUEといった関数を使ってシリアル値を求めてください。

補足

例えば、A列項目に常に日付データが入力されるとして、F列の項目にはA列で入力した日付の３０日先が自動的に表示されるためには、どのように関数入力をしたら良いのかわからないものでしょうか？