Excel VBA質問箱 IV

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

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


34642 / 76734 ←次へ | 前へ→

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

【47242】更新日付の自動変更 くやっち 07/3/6(火) 9:30 質問
【47243】Re:更新日付の自動変更 ぱっせんじゃー 07/3/6(火) 10:02 発言
【47268】Re:更新日付の自動変更 くやっち 07/3/6(火) 23:31 質問
【47270】Re:更新日付の自動変更 Kein 07/3/7(水) 1:02 回答
【47276】Re:更新日付の自動変更 くやっち 07/3/7(水) 8:15 質問
【47298】Re:更新日付の自動変更 Kein 07/3/7(水) 16:30 回答
【47452】Re:更新日付の自動変更 くやっち 07/3/10(土) 22:45 お礼

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