| |
Jaka さん、こんにちは〜
>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
ありがとうございます。
や、私もそれもちらと考えたのですが、
Workbook_BeforeCloseで、セルの初期化処理をしてるんですよ。
ボタンで終了させても、エクセルの「×」で終了させても通るように。
初期化処理を、サブルーチン化しといて、
ThisWorkbook.Close (True)の前と、Workbook_BeforeCloseの両方で呼び出すようにするしかないかなあ？
ところで
>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さんとこでは、そんな現象なかったですか？
あ、うちはWindows98se＋Excel2002なんですけど
|
|
つん
- 03/11/7(金) 12:25 -
