| |
適当に聞き流してください。
Private Sub Workbook_××のたぐいって、
XPになってもろくに動かない時があるみたいですよ！
私自身ろくに解っていないので、
「これって何ででしょう？」って、聞かれると、
どうしてなんでしょうね！
御決まりの使用って奴じゃないんですか？
ってな事になっちゃって、ごめんなさい。
んで、どっちも上書き保存しちゃっているみたいなんで、こんな風にして見ました。
Private Sub CommandButton1_Click()
Dim i As Integer
i = MsgBox("yesでファイル、noでエクセルを閉じます", vbYesNo)
If i = vbYes Then
ThisWorkbook.Close (True)
Else
ThisWorkbook.Save
Application.Quit
End If
End Sub
マクロで保存する、しないを分けるとなると色々問題がありそうで．．・
私が前に色々テストした感じでは．．。
その時は、結局うまく行かなかったんで、今回こんな感じにして見ました。
（このうまく行くいかないは、Excel.Ver等の違いでも違うでしょうけどマシンスペックでも代わるって来ると思います。）
意味不明な雑談は終了して、
保存しないで終了が入った場合、こんな風にして見ました。
これがなかなかうまく行かなくて．．．。
やっぱしボツやね！
Private Sub wwCommandButton1_Click()
Dim i As Integer
i = MsgBox("yesで保存して終了、noで保存しないで終了", vbYesNo)
If i = vbNo Then
Application.DisplayAlerts = False
'ThisWorkbook.Save
DoEvents
Application.OnTime Now(), "qqqq"
ThisWorkbook.Close (False)
Else
ThisWorkbook.Save
DoEvents
Application.Quit
End If
End Sub
標準ジュール
Sub qqqq()
Application.Quit
End Sub
|
|
Jaka
- 03/11/7(金) 11:05 -
