ExcelのVBAでの、終了処理について教えてください。

◇-ExcelのVBAでの、終了処理について教えてください。-はな。(8/22-22:05)No.9153
　┗Re:ExcelのVBAでの、終了処理について教えてください。-無人(8/22-23:42)No.9167
　　┗Re:ExcelのVBAでの、終了処理について教えてください。-無人(8/23-00:22)No.9172
　　　┗Re:ExcelのVBAでの、終了処理について教えてください。-milkhouse(8/23-00:56)No.9174
　　　　┗Re:ExcelのVBAでの、終了処理について教えてください。-はな(8/25-05:19)No.9372

「何か一言」を読む Facebookコメントができます

▲このページのトップに戻る

9153	ExcelのVBAでの、終了処理について教えてください。	はな。	8/22-22:05
メーカー名：富士通 OS名：Windows98 パソコン名：FMV ソフト名：98NT（たしか） -- ExcelのVBAで、終了処理の記述のところで、activeworkbook以外に開いているexcelの Bookがあれば、activeworkbookのみ終了して、excelは終了しない。 activeworkbookしか開いていないなら、activeworkbookのcloseとexcelの終了も行う。このような処理をしたいのですが、activeworkbook以外に開いているbookがあるか否かの記述はどのようにしたらいいのでしょうか？

▲このページのトップに戻る

9167	Re:ExcelのVBAでの、終了処理について教えてください。	無人	8/22-23:42
記事番号9153へのコメント Dim i As Long If Workbooks.Count > 1 Then For i = Workbooks.Count To 2 Step -1 Workbooks(i).Close Next Else Application.Quit End If

▲このページのトップに戻る

9172	Re:ExcelのVBAでの、終了処理について教えてください。	無人	8/23-00:22
記事番号9167へのコメント読み間違えた。 activeworkbook以外に開いているexcelのBookがあれば、 activeworkbookのみ終了だったのか... If Workbooks.Count > 1 Then Workbooks(1).Close Else Application.Quit End If

▲このページのトップに戻る

9174	Re:ExcelのVBAでの、終了処理について教えてください。	milkhouse URL	8/23-00:56
記事番号9172へのコメント >If Workbooks.Count > 1 Then Workbooks(1).Close >Else Application.Quit >End If 無人さんが簡潔な解答を書かれておられますのでそれに対する補足を少し・・ブロック形式で書かれる場合はステートメントを分けて Sub Macro1() If Workbooks.Count > 1 Then Workbooks(1).Close Else Application.Quit End Sub のように、単一行で書かれる場合は Sub Macro1() If Workbooks.Count > 1 Then Workbooks(1).Close Else Application.Quit End Sub でないとエラーになりますよね

▲このページのトップに戻る

9372	Re:ExcelのVBAでの、終了処理について教えてください。	はな	8/25-05:19
記事番号9174へのコメント m(__)mありがとうございました。またわからないことがでてきたらよろしくお願いいたします。

パソコントラブル解決・過去ログTOP > ログTOP > ExcelのVBAでの、終了処理について教えてください。

何か一言(本ページで参考になったならないを含めて残してあります)
◎：解決　○：参考になった　×：参考にならなかった　！：アドバイスあり

参考	回数	投稿日時	何か一言
◎	初めて	2006/07/05/(水) 16:29:27	MSIE6/WinXP
◎	数度目	2008/06/20/(金) 11:20:54	MSIE6/WinXP
◎	初めて	2012/06/11/(月) 14:42:04	MSIE8/WinXP