Excel総合相談所 104at BSOFTExcel総合相談所 104 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト187:名無しさん＠そうだ選挙にいこう 12/08/02 21:50:03.65 >>184 どんなときにOn Error Resume Nextが必要になるか考えてみては 188:名無しさん＠そうだ選挙にいこう 12/08/02 22:12:58.24 Sub 全部閉じる() Dim WB$(3), i& WB(0) = "八木かなえ.xls" WB(1) = "田中理恵.xls" WB(2) = "木村文子.xls" WB(3) = "福原愛.xls" WB(4) = "市川美余.xls" On Error Resume Next For i = 0 To 4 If ThisWorkbook.name <> WB(i) Then Workbooks(WB(i)).Close End If Next On Error GoTo 0 End Sub >>157のOnErrorの位置は単純に書き間違いでしょうね んで、>>175は間違いじゃないけど不適切だと思う。 （For Nextのなかで毎回指定するようなものではない） 個人的には、なるべく関係ないところに影響しないように On Error Resume Nextの適用範囲は小さくとっておいたほうが よいと考えている 189:188 12/08/02 22:18:28.40 >>188 自分でファイルの数減らしてテストしたときの変更を戻し忘れてた Dim WB$(3)はDim WB$(4)の間違いです あと、マクロを実行するブック自身が その5つのファイルに含まれてるかどうかは 質問からは判断できないから If ThisWorkbook.name <> WB(i) Then の部分は消すわけには行かないと思う 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch