Excel使用vba一键隐藏所有工作表。
1.首先我们打开一个工作样表作为例子。
2.使用alt f11组合键打开vbe编辑器,创建一个新模块,并在模块编辑窗口中输入以下代码:
选项显式
Sub()
将I标注为整数
对于i=1到张。数数
如果床单(一)。然后命名为“源数据”
床单(一)。可见=0
如果…就会结束
下一个x
末端接头
3.要解读这段代码,首先要知道工作表的命名规则默认是按照数字顺序递增的,工作表的顺序是sheets1,sheets2,直到最后一张工作表。因此,我们在这里定义了一个for循环,初始值为1,最终值为工作表的个数。
4.然后我们判断工作表名称。工作表有下标值,这些值按照上一步中提到的顺序命名。也可以自定义名称,就是这里写的‘源数据’。小于标准不等于。
5.visible属性是一个可见属性,作为表对象的属性是可见的或隐藏的。这里写0表示隐藏,我们可以更直观的写false。
6.制作一个按钮并指定这个宏。让我们运行它,我们可以看到除了源数据工作表之外的所有工作表都被隐藏了。如果需要回复,只需要将宏代码中visible的属性值0修改为1或true后运行即可。