VBA常用小代码：批量取消隐藏工作表

论坛 › 期权论坛 › 期权     
A 笑语VBA工作室   2019-7-20 10:03   2840   0


  1. Sub qxyc()
复制代码
  1.     Dim sht As Worksheet
复制代码
  1.     '定义变量
复制代码
  1.     For Each sht In Worksheets
复制代码
  1.     '循环工作簿里的每一个工作表
复制代码
  1.         sht.Visible = xlSheetVisible
复制代码
  1.         '将工作表的状态设置为非隐藏
复制代码
  1.     Next
复制代码
  1. End Sub
复制代码
顺手配个操作动画：

代码一两行，工作不用忙断肠，说的就是这种情况了。您也动手试一下吧。
回复
分享到 :
0 人收藏
返回列表
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

1级新秀
A 笑语VBA工作室

积分:
帖子:
精华:
+ 关注 私信
期权论坛 期权论坛
期权网络科技版权所有
关于我们
联系我们
加入我们
反馈问题
免责声明
积分充值
统一社会信用代码
积分规则
网站地图
爱文库
下属网站
官方
新浪微博
微信公众号
◆
下载
表情包
App下载
期权论坛 期权论坛

QQ咨询|关于我们|Archiver|手机版|小黑屋|( 辽ICP备15012455号-4 ) Powered by 期权论坛 X3.2 © 2001-2016 期权工具网&期权论坛 Inc.

发布
内容

下载期权论坛手机APP