Excelでアクティブなシートまたは選択したシートのみをすばやく表示するにはどうすればよいですか？

作業中のワークブックに複数のシートがある場合、アクティブまたは選択したシートのみを表示し、他のシートを非表示にしたい場合があります。これを1つずつ手動で非表示にすることなく、どのように迅速に対処できますか？

VBAを使用してアクティブなシートのみを表示する

Kutools for Excelを使用して選択したシートのみを表示する

VBAを使用してアクティブなシートのみを表示する

以下は、アクティブなシート以外のすべてのシートを迅速に非表示にするVBAコードです。

Alt + F11 キーを押して、 Microsoft Visual Basic for Applications ウィンドウを表示します。

次に、挿入 > モジュール をクリックし、以下のVBAコードを新しいモジュールウィンドウに貼り付けます。

VBA: アクティブなシートのみを表示する

Sub Macro1()
'UpdatebyKutoolsforExcel20160409
  Dim xSht As Object
  For Each xSht In ThisWorkbook.Sheets 
  If xSht.Name <> ThisWorkbook.ActiveSheet.Name 
  Then xSht.Visible = False
  Next
  End Sub

実行ボタンをクリックするか、 F5キーを押してVBAを実行すると、現在アクティブなシートのみが表示され、他のシートは非表示になります。

Kutools for Excelを使用して選択したシートのみを表示する

Kutools for Excelがインストールされている場合、1回のクリックで非アクティブなシートや選択されていないシートを迅速に非表示にできます。

無料で Kutools for Excel をインストール後、次の手順を実行してください：

表示したいシートをアクティブ化するか、シートを選択してから、 Kutools > 表示と非表示 > 非アクティブなシートを非表示にするをクリックします。スクリーンショットをご覧ください：

これで、選択されていないシートが非表示になります。

ヒント： すべてのシートを表示したい場合は、 Kutools > 表示と非表示 > すべてのシートを再表示をクリックします。スクリーンショットをご覧ください：

関連記事

• Excelでセル値に基づいて行を非表示にする方法は？
• Excelでワークシート名の動的なリストを作成する方法は？
• Excelでセル値に基づいてワークシート名を変更する方法は？