|
▼Kein さん:
>そうなると、ちょっとややこしくなりますね・・。
>以下のようなマクロでテストしてみたら、概ね目的どおりの動作を
>しているようです。
>
>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モジュールへ入れた後、セルに何かの値を入力して、
>保存せずにそのまま閉じるボタンを押して下さい。メッセージが出てきたら
>必ず「はい」か「いいえ」のボタンを押して下さい。そうすることによって
>日付のあるなしに拘わらず、入れたマクロが保存されます。次回からは
>「キャンセル」を押してみるテストも、出来るようになります。
うわーっ!
すごいです。
ありがとうございます。
出張で返信が遅くなり申し訳ありませんでした。
ちょっとやってみます。
また分からなると思いますのでご教授ください。
|
|