如何使用複選框在Excel中隱藏或取消隱藏工作表？

複選框是Excel中的一項有用功能。在這裡，我將向您展示如何使用複選框在Excel中隱藏或取消隱藏指定的工作表。

使用複選框在Excel中隱藏或取消隱藏工作表

使用複選框在Excel中隱藏或取消隱藏工作表

驚人！在Excel中使用高效選項卡，例如Chrome，Firefox和Safari！

每天節省50％的時間，並減少數千次鼠標單擊！

假設您在工作簿中有一個名為checkbox1的複選框。取消選中此復選框時，您希望某個工作表自動隱藏在此工作簿中，並在選中該複選框時取消隱藏此工作表。請如下實現。

1.打開包含Checkbox1的工作表，右鍵單擊工作表選項卡，然後單擊“確定”。 查看代碼 從右鍵單擊菜單中。

備註：插入時，該複選框應為ActiveX複選框。

2。在裡面 Microsoft Visual Basic for Applications 窗口，請將以下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 for Applications 窗口。

從現在開始，取消選中checkbox1時，指定的工作表“ Sheet5”將自動隱藏。您可以通過選中復選框來顯示它。看截圖：

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。

閱讀更多... 免費下載... 採購...

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載... 採購...

留言 (11)

還沒有評分。成為第一位評論！

科特尼

大約5年前

#21493

網站主持人對此評論進行了最小化

你如何在同一頁面上做多個？然後如何使用複選框隱藏工作表 3 或 4？

艾托赫茲科特尼

大約4年前

#21494

網站主持人對此評論進行了最小化

Private Sub CheckBox1_Click（）
在錯誤恢復下一頁
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
END SUB

即時報告

艾托赫茲

大約4年前

#24303

網站主持人對此評論進行了最小化

Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo 複選框？非常感謝！

即時報告

艾托赫茲艾托赫茲

大約4年前

#24304

網站主持人對此評論進行了最小化

Basta con copiar la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada。

Private Sub CheckBox1_Click（）
在錯誤恢復下一頁
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
END SUB

即時報告

沙魯爾

大約3年前

#29743

網站主持人對此評論進行了最小化

如何隱藏或取消隱藏具有多個複選框的工作表？例如，除非選中 checkbox_1、checkbox_2 和 checkbox_3，否則需要隱藏工作表“MainMenu”。

Jack

大約2年前

#33485

網站主持人對此評論進行了最小化

你好。我對 ActiveX 控件很陌生。我試圖在一張紙上設置多個複選框，這些複選框將隱藏特定的工作表，而不是所有的工作表或每次都隱藏相同的工作表。這兩種情況都是我的經驗。我需要完成的是：
CheckBox1 隱藏 Sheet2
CheckBox2 隱藏 Sheet3
CheckBox3 隱藏 Sheet4
CheckBox4 隱藏 Sheet5
CheckBox5 隱藏 Sheet6
CheckBox6 隱藏 Sheet7
CheckBox7 隱藏 Sheet8
CheckBox8 隱藏 Sheet9

水晶 Jack

大約2年前

#33486

網站主持人對此評論進行了最小化

嗨傑克，
只需重複代碼並更改複選框編號和工作表名稱即可。試試下面的代碼。

Private Sub CheckBox1_Click（）

在錯誤恢復下一頁

ThisWorkbook.Sheets("Sheet2").Visible = CheckBox1.Value

END SUB

Private Sub CheckBox2_Click（）

在錯誤恢復下一頁

ThisWorkbook.Sheets("Sheet3").Visible = CheckBox2.Value

END SUB

Private Sub CheckBox3_Click（）

在錯誤恢復下一頁

ThisWorkbook.Sheets("Sheet4").Visible = CheckBox3.Value

END SUB

Private Sub CheckBox4_Click（）

在錯誤恢復下一頁

ThisWorkbook.Sheets("Sheet5").Visible = CheckBox4.Value

END SUB

Private Sub CheckBox5_Click（）

在錯誤恢復下一頁

ThisWorkbook.Sheets("Sheet6").Visible = CheckBox5.Value

END SUB

Private Sub CheckBox6_Click（）

在錯誤恢復下一頁

ThisWorkbook.Sheets("Sheet7").Visible = CheckBox6.Value

END SUB

Private Sub CheckBox7_Click（）

在錯誤恢復下一頁

ThisWorkbook.Sheets("Sheet8").Visible = CheckBox7.Value

END SUB

Private Sub CheckBox8_Click（）

在錯誤恢復下一頁

ThisWorkbook.Sheets("Sheet9").Visible = CheckBox8.Value

END SUB

即時報告

Jack 水晶

大約2年前

#33487

網站主持人對此評論進行了最小化

水晶，
非常感謝……它工作得很好！

傑德

大約 1 年前

#36736

網站主持人對此評論進行了最小化

嗨水晶，
有沒有可以扭轉這種情況的功能？ IE。除非勾選複選框，否則工作表是隱藏的？

Sky53

大約4個月前

#40280

網站主持人對此評論進行了最小化

你好，
Je cherche à afficher des pages avec des case à cocher。 Les Chekbox sont toutes sur la meme feuille de calcul。
J'ai copié le Premier Code et l'ai dupliquer。

Private Sub CheckBox1_Click（）
在錯誤恢復下一頁
ThisWorkbook.Sheets("Eplucher, laver, desinfecter").Visible = CheckBox1.Value
END SUB

Private Sub CheckBox2_Click（）
在錯誤恢復下一頁
ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox1.Value
END SUB

Malheureusement, si je ne coche pas la première case ma seconde case ne fonctionne pas。 Pourriez-vous m'aider 高級副總裁

水晶 Sky53

大約4個月前

#40364

網站主持人對此評論進行了最小化

嗨天空53，
我好像你沒變 CheckBox1.Value 到第二個 VBA 代碼中相應的複選框名稱。
請更改第二個代碼中的以下行：
ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox1.Value
至
ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox2.Value

即時報告

這裡還沒有評論

留下你的意見

以訪客身份發帖

登入

名稱（必填）

電子郵件（必填）

評價此帖子：

重設

0 字符

我同意附帶條約