在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的學習,下一個會是你嗎?
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!