ExcelでXNUMX枚を除くすべてのシートを選択するにはどうすればよいですか？

[すべてのシートを選択]機能を適用して、ブックのすべてのシートタブを選択できますが、Excelで特定のシートを除くすべてのシートを選択するアイデアはありますか？

VBAコードの特定のタブを除くすべてのシートタブを選択します

VBAコードの特定のタブを除くすべてのシートタブを選択します

特定のタブを除くすべてのタブを選択するには、次のVBAコードが役立ちます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

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

VBAコード：XNUMXつを除くすべてのシートを選択します。

Sub selectallbutone()
'Updateby Extendoffice
Dim x As Long
Sheet1.Select
For x = 2 To ThisWorkbook.Sheets.Count
    If Sheets(x).Name <> "Sheet5" Then Sheets(x).Select Replace:=False
Next x
End Sub

Note：上記のコードでは、 Sheet5 は、すべてのシートを選択するときに除外するシート名です。必要に応じて変更してください。

3。 そして、 F5 このコードを実行するにはキーを押します。特定のタブを除くすべてのシートタブが選択されています。スクリーンショットを参照してください。