メインコンテンツへスキップ

Excelで非表示のシートと表示のシートを切り替える方法は?

他の人に見られたくない重要なデータを含むシートがある場合、ワークシートを非表示にすることは、Excelのデータを保護する簡単な方法です。 ただし、非表示のシートを表示してから再度非表示にする必要がある場合もあります。通常は、XNUMX枚ずつ再表示する必要があります。通常、この操作を適用すると、面倒で時間がかかります。 この記事では、ワークシートを非表示と非表示の間で切り替える簡単な方法をいくつか紹介します。

VBAコードで非表示と非表示の間でシートを切り替えます

Kutools for Excelを使用して、シートを非表示と非表示の間で切り替えます


矢印青い右バブル VBAコードで非表示と非表示の間でシートを切り替えます

Sheet1、Sheet2、およびSheet3が非表示になっているブックがある場合、次のVBAコードを使用すると、それらをすばやく表示でき、XNUMX回クリックすると再び非表示になります。 次のようにしてください。

1に設定します。 OK をクリックします。 Developer > ビジュアルベーシック、および新しい アプリケーション用のMicrosoftVisual Basic ウィンドウが表示されたら、クリックします インセット > モジュール、モジュールに次のコードを入力します。

Sub ToggleHideUnhideDataSheets()
Application.ScreenUpdating = False
Dim wb As Workbook
Dim ShtNames() As Variant
Set wb = ActiveWorkbook
ShtNames = Array("Sheet1", "Sheet2", "Sheet3")
For i = 0 To UBound(ShtNames)
wb.Sheets(ShtNames(i)).Visible = Not wb.Sheets(ShtNames(i)).Visible
Next i
Application.ScreenUpdating = True
End Sub

上記のコードでは、 ShtNames = Array( "Sheet1"、 "Sheet2"、 "Sheet3") は変数であり、必要に応じて非表示のワークシート名を変更できます。

2。 次に、 F5 キーを押してコードを実行すると、非表示のシートが表示されています。もう一度非表示にする場合は、を押してください。 F5 もう一度キーを押します。


矢印青い右バブル Kutools for Excelを使用して、シートを非表示と非表示の間で切り替えます

隠しワークシートの可視性を切り替える の機能 Kutools for Excel、[ワークシート]コマンドをクリックすると、シートを非表示と非表示の間で簡単に切り替えることができます。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手.

Kutools for Excelをインストールしたら、次の手順で実行できます。

1。 いくつかの非表示のワークシートが含まれている必要があるワークブックを開きます。

2に設定します。 OK をクリックします。 クツール > ワークシート、スクリーンショットを参照してください:

doc-toggle-hidden-sheets1

あなたがをクリックすると ワークシート コマンドをXNUMX回実行すると、非表示のシートがすべて表示されます。もう一度非表示にする場合は、[ ワークシート XNUMX回目のコマンド。 スクリーンショットを参照してください:

doc-toggle-hidden-sheets2
-1
doc-toggle-hidden-sheets3
-1
doc-toggle-hidden-sheets2

Note:この機能は、非連続の非表示シートにも適用されます。

この機能について詳しく知りたい場合は、をクリックしてください。 隠しワークシートの可視性を切り替える.


関連記事:

Excelで非表示の列と表示されている列を切り替えます

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Works great, but how would you modify this to use the sheet's CodeNames instead of "Sheet" names?

That way user can still change the Tab name and Tab order as needed.

Thanks!
This comment was minimized by the moderator on the site
At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)
This comment was minimized by the moderator on the site
[quote]At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)By Greg[/quote] Thanks for your feedback. We will change it soon. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations