Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


43384 / 76732 ←次へ | 前へ→

【38397】Re:BeforeCloseイベント
質問  Nina  - 06/6/1(木) 21:44 -

引用なし
パスワード
   ▼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

0 hits

【37769】BeforeCloseイベント たくぴょん 06/5/18(木) 14:56 質問
【37777】Re:BeforeCloseイベント ぴかる 06/5/18(木) 16:22 回答
【37801】Re:BeforeCloseイベント Kein 06/5/18(木) 22:06 回答
【37806】Re:BeforeCloseイベント Nina 06/5/18(木) 23:04 質問
【37808】Re:BeforeCloseイベント Kein 06/5/19(金) 1:25 発言
【38397】Re:BeforeCloseイベント Nina 06/6/1(木) 21:44 質問
【38404】Re:BeforeCloseイベント Kein 06/6/1(木) 23:39 回答
【38405】Re:BeforeCloseイベント Nina 06/6/2(金) 7:59 お礼
【37814】Re:BeforeCloseイベント ハチ 06/5/19(金) 10:34 回答

43384 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free