Excel VBA質問箱 IV

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

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


43377 / 76732 ←次へ | 前へ→

【38404】Re:BeforeCloseイベント
回答  Kein  - 06/6/1(木) 23:39 -

引用なし
パスワード
   Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim TheDate As Date
  Dim DyX As Long
 
  With Worksheets("Sheet1").Range("A1") 'シートへの参照を付けること
   If Not IsDate(.Value) Then
     MsgBox "日付がクリアされています", 48
     .Parent.Activate: Cancel = True
     Exit Sub
   Else
     TheDate = .Value
   End If
  End With
  DyX = Date - TheDate
  If DyX >= 1 Then
   MsgBox "提出日は " & DyX & " 日後です", 64
  End If
End Sub

というコードでどうでしょーか ?

2 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 回答

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