同時に複数のブックで作業していて、非アクティブなブックをすべて非表示にするのに役立つマクロが必要な場合は、この記事が間違いなく役立ちます。

この記事では、現在使用されていない複数のブックを非表示にする方法に焦点を当てます。

質問：他のアプリケーションをスムーズに切り替えることができるように、現在使用しているものを除くすべてのExcelファイルをすばやく非表示にする必要があります。私のこのユニークな要件のためのVBAコードを探したいと思います。

非アクティブなすべてのワークブックを非表示にするコードを取得するには、以下の手順に従ってVBエディターを起動する必要があります。[開発者]タブをクリックします。[コード]グループから[VisualBasic]を選択します

img1

  • ワークシートモジュールに次のコードをコピーします

Sub HideInactiveExcelWorkbooks()

Application.ScreenUpdating = False

Dim aWin As Window

Set aWin = ActiveWindow

Dim win As Window

For Each win In Application.Windows

win.Visible = False

Next win

aWin.Visible = True

Application.ScreenUpdating = True

End Sub

img2

  • 上記のコードは、すべての非アクティブなワークブックをすぐに非表示にします注：上記のマクロはアクティブなワークブックを非表示にしません。

すべてのワークブックを再表示するには、次の手順に従う必要があります。

[表示]タブをクリックします[再表示]をクリックします

img3

  • これにより再表示ワークブックが表示されます

img4

それぞれを選択して[OK]ボタンをクリックすると、ワークブックが再表示されます結論：*上記のマクロコードを使用すると、1回のクリックで非アクティブな数百のワークブックを非表示にできます。

image 48 If you liked our blogs, share it with your friends on Facebook. And also you can follow us on Twitter and Facebook.

_私たちはあなたからの連絡をお待ちしております。私たちの仕事を改善、補完、または革新し、あなたのためにそれをより良くする方法を教えてください。 [email protected]_までご連絡ください