Note: The other languages of the website are Google-translated. Back to English
ログイン  \/ 
x
or
x
今すぐ登録  \/ 
x

or

チェックボックスを使用してExcelでワークシートを非表示または再表示するにはどうすればよいですか?

チェックボックスはExcelの便利な機能です。 ここでは、チェックボックスを使用して、Excelで指定したワークシートを表示または再表示する方法を説明します。

チェックボックスを使用して、Excelでワークシートを表示または再表示します


チェックボックスを使用して、Excelでワークシートを表示または再表示します


ブックにcheckbox1という名前のチェックボックスがあるとします。 このチェックボックスをオフにすると、特定のワークシートがこのブックで自動的に非表示になり、チェックボックスをオンにしたときにこのワークシートが再表示されます。 次のようにしてください。

1.チェックボックス1が含まれているワークシートを開き、シートタブを右クリックして、をクリックします。 コードを表示 右クリックメニューから。

注意:挿入するときは、チェックボックスをActiveXチェックボックスにする必要があります。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウの場合は、以下のVBAコードをコピーしてコードウィンドウに貼り付けてください。 スクリーンショットを参照してください:

VBAコード:チェックボックスを使用して、指定したワークシートを非表示または再表示します

Private Sub CheckBox1_Click()
    On Error Resume Next
    ThisWorkbook.Sheets("Sheet5").Visible = CheckBox1.Value
End Sub

注意:コードでは、Sheet5はcheckbox1で非表示または再表示するワークシートの名前です。 必要に応じてワークシート名を置き換えてください。

3。 押す 他の + Q キーを同時に閉じて アプリケーション向け Microsoft Visual Basic 窓。

今後、チェックボックス1のチェックを外すと、指定したワークシート「Sheet5」が自動的に非表示になります。 そして、チェックボックスをチェックすることでそれを表示することができます。 スクリーンショットを参照してください:


関連記事:


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

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 全機能30日間の無料トライアル。 60日間の返金保証。
kteタブ201905

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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性が50%向上し、毎日何百ものマウスクリックが減ります。
officetab下部
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jack · 1 years ago
    Hi. I'm very new to ActiveX Controls. I am trying to have multiple checkboxes on one sheet that will hide specific sheets and not all of them or the same one every time. These two scenarios have been my experience. What I need to accomplish is:
    CheckBox1 hides Sheet2
    CheckBox2 hides Sheet3
    CheckBox3 hides Sheet4
    CheckBox4 hides Sheet5
    CheckBox5 hides Sheet6
    CheckBox6 hides Sheet7
    CheckBox7 hides Sheet8
    CheckBox8 hides Sheet9

    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Jack,
      Just repeat the code and change the checkbox numbers and the sheet names. Try the below code.

      Private Sub CheckBox1_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet2").Visible = CheckBox1.Value
      End Sub
      Private Sub CheckBox2_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet3").Visible = CheckBox2.Value
      End Sub
      Private Sub CheckBox3_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet4").Visible = CheckBox3.Value
      End Sub
      Private Sub CheckBox4_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet5").Visible = CheckBox4.Value
      End Sub
      Private Sub CheckBox5_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet6").Visible = CheckBox5.Value
      End Sub
      Private Sub CheckBox6_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet7").Visible = CheckBox6.Value
      End Sub
      Private Sub CheckBox7_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet8").Visible = CheckBox7.Value
      End Sub
      Private Sub CheckBox8_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet9").Visible = CheckBox8.Value
      End Sub
      • To post as a guest, your comment is unpublished.
        Jack · 1 years ago
        Crystal,
        Thanks so much...it worked perfectly!
  • To post as a guest, your comment is unpublished.
    Syahrul · 2 years ago
    How do I hide or unhide a sheet with multiple checkbox? For example sheet "MainMenu" need to be hide unless checkbox_1, checkbox_2 & checkbox_3 are checked.
  • To post as a guest, your comment is unpublished.
    aitorhdzramos@gmail.com · 3 years ago
    Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo checkbox? Muchas gracias!
    • To post as a guest, your comment is unpublished.
      aitorhdzramos@gmail.com · 3 years ago
      Basta con copiar la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada.

      Private Sub CheckBox1_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
      ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
      ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
      End Sub
  • To post as a guest, your comment is unpublished.
    Kourtney · 3 years ago
    How do you do multiple on the same page? How do i then hide sheet 3 or 4 with a checkbox?
    • To post as a guest, your comment is unpublished.
      aitorhdzramos@gmail.com · 3 years ago
      Private Sub CheckBox1_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
      ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
      ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
      End Sub