Sponsored Links
こんにちは!Lenocoです。本日も見てくださりありがとうございます。
今回はブックのループについてです!!!
Sponsored Links
Contents
ブックのループ
以下のコードでは、
開いているブックを一つずつ見ていき、ブック名が「Book」から始まる場合、そのブックを保存せず閉じています。
コード
Sub CloseWorkbook()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name Like "Book*" Then
wb.Close False
End If
Next
End Sub
このツールの使いどころ
こちらのマクロ、どんな時に使うかというと、
新規ブックを作成して保存するような動きをするマクロを作成しているとき、
デバッグで何度も何度もその処理を繰り返すかと思います。
デバッグをしているうちに、気づくと「Book1」「Book2」・・・「Book30」のようにどんどんブックが増えてしまいます。
気づいたら都度都度消すのですが、多ければ多いほど手で消すのは大変ですよね。
そんなときに先ほどのマクロを使います!
「Book」から始まるブックを全て保存せず閉じてくれます。
アドインにしてクイックアクセスツールバーもしくはリボンに入れておくと便利ですね。
Lenoco
Sponsored Links