Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34646 / 76738

←次へ　｜　前へ→


	【47298】Re:更新日付の自動変更

Kein - 07/3/7(水) 16:30 -


	引用なし

	パスワード

そうなると、ちょっとややこしくなりますね・・。
以下のようなマクロでテストしてみたら、概ね目的どおりの動作を
しているようです。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　 Dim Ans As Integer
　
　 With ThisWorkbook
　　　If .Saved = False Then
　　　　 Ans = MsgBox("日付を入れて保存しますか" & vbLf & _
　　　　 "「いいえ」を押すと日付を入れずに保存します" & _
　　　　 vbLf & "「キャンセル」なら保存しません", 35)
　　　　 Select Case Ans
　　　　　　Case 2
　　　　　　　 Application.SendKeys "%n", True
　　　　　　Case 6
　　　　　　　 With .Worksheets(1).Range("T1")
　　　　　　　　　.Value = Date
　　　　　　　　　Worksheets.FillAcrossSheets .Cells
　　　　　　　 End With
　　　　　　　 .Save
　　　　　　Case 7
　　　　　　　 .Save
　　　　 End Select
　　　End If
　 End With
End Sub

これをThisWorkbookモジュールへ入れた後、セルに何かの値を入力して、
保存せずにそのまま閉じるボタンを押して下さい。メッセージが出てきたら
必ず「はい」か「いいえ」のボタンを押して下さい。そうすることによって
日付のあるなしに拘わらず、入れたマクロが保存されます。次回からは
「キャンセル」を押してみるテストも、出来るようになります。

0 hits

▼

【47242】更新日付の自動変更 くやっち 07/3/6(火) 9:30