アクティブなワークブックを除くすべてのワークブックをすばやく閉じるにはどうすればよいですか？

コンピューターで複数のブックが開かれている場合、現在、すべてを閉じて、アクティブなブックを残しておきます。 他のワークブックをXNUMXつずつ閉じる以外に、このジョブに対処するための簡単な方法はありますか？ この記事では、ワンクリックでそれを解決するためのいくつかの簡単な方法について説明します。

VBAコードでアクティブなワークブックを除くすべてのワークブックを閉じる

Officeタブでアクティブなブックを除くすべてのブックを閉じる

VBAコードでアクティブなワークブックを除くすべてのワークブックを閉じる

次のVBAコードを使用すると、アクティブなワークブックを除く、開いているすべてのワークブックをすばやく閉じることができます。次のようにしてください。

1。 開いたままにしておきたいワークブックをアクティブにします。

2。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：アクティブなブックを除くすべてのブックを閉じます

Private Sub CloseOtherWorkbook()
'Updateby Extendoffice
Dim xWB As Workbook
Application.ScreenUpdating = False
For Each xWB In Application.Workbooks
    If Not (xWB Is Application.ActiveWorkbook) Then
        xWB.Close
    End If
Next
Application.ScreenUpdating = True
End Sub

4。 次に、 F5 このコードを実行するためのキーを押すと、他のすべてのブックが一度に閉じられますが、アクティブなブックのみが残ります。

Officeタブでアクティブなブックを除くすべてのブックを閉じる

新製品に興味のある方は- Office Tab複数のドキュメント/ファイルを1つのタブウィンドウで開くことができ、1回のクリックですべてのワークブックを閉じてアクティブなワークブックを残すことができます。 Officeタブをダウンロードする.

インストールした後 Office Tab、開いているすべてのワークブックがXNUMXつのタブ付きウィンドウに表示されます。スクリーンショットを参照してください。

次に、開いたままにしておきたいブック名をクリックし、[名前]タブを右クリックして、[ その他を閉じる コンテキストメニューから、スクリーンショットを参照してください。

そして、アクティブなブックのみが開かれていることがわかります。

関連記事：

Excelですべてのブックをすばやく閉じるにはどうすればよいですか？