Excel通过宏一键自动取消所有隐藏工作表

平时的汇报工作中,经常会隐藏工作底稿的工作Sheet,仅显示汇报工作表。

在后续数据维护或者数据勾稽过程中,可能需要取消隐藏工作表。

如果涉及的工作表较多,一个一个手工取消隐藏的话,非常影响工作效率。

这里提供一个宏代码,可以实现一键自动取消所有隐藏的工作表。

代码如下:

Sub qxyc()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Visible = xlSheetVisible
Next
End Sub

使用方法:

  1. 打开Excel,在工作表页签右键,选择”查看代码“;
  2. 在弹出的窗口最上方菜单,依次选择”插入-模块“,复制粘贴以上代码,保存;
  3. 选择你要创建超链接目录的工作表,点击代码窗口顶部菜单的”运行“;
  4. 接下来就是见证奇迹的时刻。
-> 加入科技玩家交流群组:点击加入 <-
注意:
1.文中二维码和链接可能带有邀请性质,请各位玩家自行抉择。
2.请勿通过链接填写qq号与密码、银行卡号与密码等个人隐私信息。
3.禁止纯拉人头,拉app注册等信息,发现必小黑屋。
4.同一种信息仅发一次,多发会被删除。
5.文章中源码或APP等,无法保证其绝对安全,需自行辨别。
6.文章关联方不想展示也可以微信站长“socutesheep”删除。
本文由 @LAzySheep 发布。如若转载,请注明出处: 科技玩家 » Excel通过宏一键自动取消所有隐藏工作表

给TA买糖
共{{data.count}}人
人已买糖
Office

Excel通过宏自动创建工作表超链接目录

2021-3-4 10:01:00

Office

如何在Word中输入”方框打勾☑️“?

2021-5-22 16:25:13

20 条回复 A文章作者 M管理员
贴心提醒
请认真对待作者付出,勿发表无意义言论,触发过滤规则的评论将无法提交,包含敏感词的评论会自动变成待审核状态哦。
  1. kiwi

    这个不错的

  2. popp

    感谢分享

  3. nikoyy

    感谢分享,很不错

  4. 大大的强

    进来了解一下。

  5. 小技技

    谢谢分享~

  6. Engeind

    学习了

  7. dch

    发现我还是个小学生啊

  8. 爷你好帅

    感谢分享

  9. dadada

    感谢分享

  10. Cherish

    感谢分享

  11. zxasqw0577

    这个不错啊

  12. mxin

    mark。升级中

  13. 大军

    还有人研究excel

  14. Atlantis

    收藏了

  15. 瓶子

    这个有用!谢谢。

  16. 鬼神冰

    感谢分享

  17. 萝卜头

    谢谢分享,学习了

  18. xgzz

    很好,学习了

  19. welion

    感谢分享,很不错

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索