| |
▼Kein さん：
>>D1に書かれていた
>これは Book1, Book2 のどちらの、どういう名前のシートにですか ?
>そもそも Book1 から Book2 を作成する、という現状のコードは
>どういうものでしょーか ? ここへ提示してみて下さい。
大変失礼しました。時間だけが経過してしまいました。
説明が不十分でした･･･
私のやりたいことを書いてしまったのですが、本来の内容とはずれているかも知れませんが、期限のあるもので、エクセルを閉じる時に
期限３日前・期限２日前・期限１日前・期限当日と日にちが経過するに従って日数が少なくなり、期限が過ぎると何も出ないようなことが出来無いものか？と思って質問させていただいたのです。
今まで色々と考えていましたが･･･経過日数に追随する方法がわから無いままです。
良い方法が有りましたら、ご教授ください。
期限の日をＡ１に入力しておいて、期限を書きました。
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 "提出日は３日後です"
End If
On Error GoTo 0
End Sub
|
|
Nina
- 06/6/1(木) 21:44 -
