Note: The other languages of the website are Google-translated. Back to English

如何使用复选框在Excel中隐藏或取消隐藏工作表?

复选框是Excel中的一项有用功能。 在这里,我将向您展示如何使用复选框在Excel中隐藏或取消隐藏指定的工作表。

使用复选框在Excel中隐藏或取消隐藏工作表


使用复选框在Excel中隐藏或取消隐藏工作表

假设您在工作簿中有一个名为checkbox1的复选框。 取消选中此复选框时,您希望某个工作表自动隐藏在此工作簿中,并在选中该复选框时取消隐藏此工作表。 请如下实现。

1.打开包含Checkbox1的工作表,右键单击工作表选项卡,然后单击“确定”。 查看代码 从右键单击菜单中。

备注:插入时,该复选框应为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应用程序 窗口。

从现在开始,取消选中checkbox1时,指定的工作表“ Sheet5”将自动隐藏。 您可以通过选中复选框来显示它。 看截图:


相关文章:


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (11)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
你如何在同一页面上做多个? 然后如何使用复选框隐藏工作表 3 或 4?
该评论由网站上的主持人最小化
私有子 CheckBox1_Click()
出错时继续下一步
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
END SUB
该评论由网站上的主持人最小化
Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo 复选框? 非常感谢!
该评论由网站上的主持人最小化
Basta con copiar la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada。

私有子 CheckBox1_Click()
出错时继续下一步
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
END SUB
该评论由网站上的主持人最小化
如何隐藏或取消隐藏具有多个复选框的工作表? 例如,除非选中 checkbox_1、checkbox_2 和 checkbox_3,否则需要隐藏工作表“MainMenu”。
该评论由网站上的主持人最小化
你好。 我对 ActiveX 控件很陌生。 我试图在一张纸上设置多个复选框,这些复选框将隐藏特定的工作表,而不是所有的工作表或每次都隐藏相同的工作表。 这两种情况都是我的经验。 我需要完成的是:
CheckBox1 隐藏 Sheet2
CheckBox2 隐藏 Sheet3
CheckBox3 隐藏 Sheet4
CheckBox4 隐藏 Sheet5
CheckBox5 隐藏 Sheet6
CheckBox6 隐藏 Sheet7
CheckBox7 隐藏 Sheet8
CheckBox8 隐藏 Sheet9
该评论由网站上的主持人最小化
嗨杰克,
只需重复代码并更改复选框编号和工作表名称即可。 试试下面的代码。

私有子 CheckBox1_Click()

出错时继续下一步

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

END SUB

私有子 CheckBox2_Click()

出错时继续下一步

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

END SUB

私有子 CheckBox3_Click()

出错时继续下一步

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

END SUB

私有子 CheckBox4_Click()

出错时继续下一步

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

END SUB

私有子 CheckBox5_Click()

出错时继续下一步

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

END SUB

私有子 CheckBox6_Click()

出错时继续下一步

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

END SUB

私有子 CheckBox7_Click()

出错时继续下一步

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

END SUB

私有子 CheckBox8_Click()

出错时继续下一步

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

END SUB
该评论由网站上的主持人最小化
水晶,
非常感谢……它工作得很好!
该评论由网站上的主持人最小化
嗨水晶,
有没有可以扭转这种情况的功能? IE。 除非勾选复选框,否则工作表会隐藏?
该评论由网站上的主持人最小化
你好,
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。

私有子 CheckBox1_Click()
出错时继续下一步
ThisWorkbook.Sheets("Eplucher, laver, desinfecter").Visible = CheckBox1.Value
END 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 高级副总裁
该评论由网站上的主持人最小化
嗨天空53,
我好像你没变 CheckBox1.值 到第二个 VBA 代码中相应的复选框名称。
请更改第二个代码中的以下行:
ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox1.Value

ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox2.Value
这里还没有评论
请用英文发表您的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护