|
▼Kein さん:
>>D1に書かれていた
>これは Book1, Book2 のどちらの、どういう名前のシートにですか ?
>そもそも Book1 から Book2 を作成する、という現状のコードは
>どういうものでしょーか ? ここへ提示してみて下さい。
大変失礼しました。時間だけが経過してしまいました。
説明が不十分でした・・・
私のやりたいことを書いてしまったのですが、本来の内容とはずれているかも知れませんが、期限のあるもので、エクセルを閉じる時に
期限3日前・期限2日前・期限1日前・期限当日と日にちが経過するに従って日数が少なくなり、期限が過ぎると何も出ないようなことが出来無いものか?と思って質問させていただいたのです。
今まで色々と考えていましたが・・・経過日数に追随する方法がわから無いままです。
良い方法が有りましたら、ご教授ください。
期限の日をA1に入力しておいて、期限を書きました。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Dim TheDate As Date
TheDate = Range("A1")
If DateDiff("d", TheDate, Now) >= -3 Then
MsgBox "提出日は3日後です"
End If
On Error GoTo 0
End Sub
|
|