图文/兰色幻想(来自Excel精英培训微信平台) 在excel中隐藏工作表比较方便,选取多个工作表后右键菜单点隐藏即可,但取消工作表隐藏就非常麻烦了。需要一个一个的取消。
效果演示: 按ctrl+shift+Q隐藏所有工作表(指定不隐藏的除外) 按Ctrl+Q取消所有工作表 这个快捷键很好用,但...不是Excel自带的,而是需要我们手工添加。如果你也想使用,就随兰色一起做吧。 一、设置和使用 步骤1 粘贴代码 复制下面的代码,excel工作表标签右键菜单中点“查看代码” ,会打开一个叫【visual baisc...】的窗口,在这个窗口中点击插入模块,然后把代码复制粘贴到右边的空白窗口中。最后把文件保存为'Excel启用宏的工作簿'。 代码: Sub 取消隐藏() For x = 1 To Sheets.Count If Sheets(x).Name <> '总表' Then Sheets(x).Visible = -1 End If Next x End Sub Sub 隐藏() For x = 1 To Sheets.Count If Sheets(x).Name <> '总表' Then Sheets(x).Visible = 0 End If Next x End Sub 注:如果你有多个工作表不需要隐藏,可以把 If Sheets(x).Name <> '总表' Then 替换为 If InStr('总表-表1-表2', Sheets(x).Name) = 0 Then (表之间用-连接放在引号里,可以连接任意多个表名) 步骤2:设置快捷键 按alt+f8打开宏窗口 - 选取“取消隐藏” - 选项 - 输入“小写”的q,确定后再选“隐藏”,输入大写的Q。 (当然你也可以设置其他的字母作为快捷键) 二、删除和修改 1、删除 按上面方法打开visible basic窗口,在左上的“工程”窗口选取模块1”模块1‘,如果删除就点右键的“移除模块” 。 2、修改 双击模块1,然后在右边的窗口中更改代码。关闭窗口。 兰色说:在excel中现有功能和函数公式做不到的事,VBA基本上都可以帮你完成。所以才有那么多人迷恋VBA的学习,下一个会是你吗? 点击左下角“阅读原文”查看兰色和小妖录制的数据透视表全套+函数全套+技巧全套+VBA编程全套视频教程 |
|