您的位置 首页 > 数码极客

【excel隐藏快捷键】excel工作表隐藏的快捷键,原来可以一键取消所有,太方便了

在Excel中隐藏工作表更方便。选择多个工作表后,隐藏右键单击菜单点即可

但是取消隐藏工作表很麻烦。

需要取消。

今天点击一下就可以取消所有工作表,分享隐藏的方法。

效果演示:

按ctrl+shift+Q隐藏所有工作表(指定不隐藏的除外)

按Ctrl+Q取消所有工作表


这个快捷键很好用,但...不是Excel自带的,而是需要我们手工添加。如果你也想使用,就一起来学习吧。

一、设置和使用

步骤1 粘贴代码

复制下面的代码,excel工作表标签右键菜单中点“查看代码” ,会打开一个叫【visual baisc...】的窗口,在这个窗口中点击插入模块,然后把代码复制粘贴到右边的空白窗口中。最后把文件保存为"Excel启用宏的工作簿"。


代码:


Sub 取消隐藏()

For x = 1 To S

If Sheets(x).Name <> "总表" Then

Sheets(x).Visible = -1

End If

Next x

End Sub

Sub 隐藏()

For x = 1 To S

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的学习,下一个会是你吗?

关于作者: admin

无忧经验小编鲁达,内容侵删请Email至wohenlihai#qq.com(#改为@)

热门推荐