Excel VBA質問箱 IV

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

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


24427 / 76732 ←次へ | 前へ→

【57653】Re:BeforeCloseイベントについて
発言  kobasan  - 08/9/7(日) 9:59 -

引用なし
パスワード
   >>赤×(右上のアイコン)  → EXCEL終了ウィンドウ終了
> 赤×(右上のアイコン)  → EXCELウィンドウ終了

下記コードで、とりあえず、この両方で閉じます

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Workbooks.Count = 2 Then
   ThisWorkbook.Close False
   Exit Sub
  End If
  '念のため保存しておく(ここで上書きしたくない場合はSavedを使う)
  '開くかどうかの分岐
  ThisWorkbook.Save
  If MsgBox("002を開きますか?", vbYesNo) = vbYes Then
   Workbooks.Open "002.xls"
   ThisWorkbook.Close False
  End If
End Sub

とりあえずで、気に入らないのは、
   ThisWorkbook.Close False
を2回記述しているところです。手抜きですが、これくらいです。
0 hits

【57629】BeforeCloseイベントについて いかぽっぽ 08/9/6(土) 0:08 質問
【57638】Re:BeforeCloseイベントについて りん 08/9/6(土) 12:42 発言
【57640】Re:BeforeCloseイベントについて こたつねこ 08/9/6(土) 13:12 発言
【57641】Re:BeforeCloseイベントについて りん 08/9/6(土) 13:59 発言
【57642】Re:BeforeCloseイベントについて こたつねこ 08/9/6(土) 14:54 発言
【57645】Re:BeforeCloseイベントについて kobasan 08/9/6(土) 19:29 発言
【57646】Re:BeforeCloseイベントについて りん 08/9/6(土) 19:52 発言
【57648】Re:BeforeCloseイベントについて こたつねこ 08/9/6(土) 19:56 発言
【57649】Re:BeforeCloseイベントについて りん 08/9/6(土) 20:14 発言
【57650】Re:BeforeCloseイベントについて kobasan 08/9/6(土) 22:50 発言
【57651】Re:BeforeCloseイベントについて kobasan 08/9/6(土) 23:56 発言
【57653】Re:BeforeCloseイベントについて kobasan 08/9/7(日) 9:59 発言
【57654】Re:BeforeCloseイベントについて kobasan 08/9/7(日) 12:43 回答
【57666】Re:BeforeCloseイベントについて ichinose 08/9/8(月) 8:48 発言
【57668】Re:訂正 ichinose 08/9/8(月) 10:38 発言
【57800】Re:訂正 kobasan 08/9/13(土) 16:46 発言
【57806】Re:訂正 りん 08/9/13(土) 18:16 発言

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