中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

圖文/蘭色幻想(來(lái)自Excel精英培訓(xùn)微信平臺(tái))

在excel中隱藏工作表比較方便，選取多個(gè)工作表后右鍵菜單點(diǎn)隱藏即可，但取消工作表隱藏就非常麻煩了。需要一個(gè)一個(gè)的取消。

效果演示：

按ctrl+shift+Q隱藏所有工作表（指定不隱藏的除外）

按Ctrl+Q取消所有工作表

這個(gè)快捷鍵很好用，但...不是Excel自帶的，而是需要我們手工添加。如果你也想使用，就隨蘭色一起做吧。

一、設(shè)置和使用

步驟1 粘貼代碼

復(fù)制下面的代碼，excel工作表標(biāo)簽右鍵菜單中點(diǎn)“查看代碼” ，會(huì)打開(kāi)一個(gè)叫【visual baisc...】的窗口，在這個(gè)窗口中點(diǎn)擊插入模塊，然后把代碼復(fù)制粘貼到右邊的空白窗口中。最后把文件保存為'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

注：如果你有多個(gè)工作表不需要隱藏，可以把

If Sheets(x).Name <> '總表' Then

替換為

If InStr('總表-表1-表2', Sheets(x).Name) = 0 Then

（表之間用-連接放在引號(hào)里,可以連接任意多個(gè)表名）

步驟2：設(shè)置快捷鍵

按alt+f8打開(kāi)宏窗口 - 選取“取消隱藏” - 選項(xiàng) - 輸入“小寫(xiě)”的q，確定后再選“隱藏”，輸入大寫(xiě)的Q。

(當(dāng)然你也可以設(shè)置其他的字母作為快捷鍵)

二、刪除和修改

1、刪除

按上面方法打開(kāi)visible basic窗口，在左上的“工程”窗口選取模塊1”模塊1‘，如果刪除就點(diǎn)右鍵的“移除模塊” 。

2、修改

雙擊模塊1，然后在右邊的窗口中更改代碼。關(guān)閉窗口。

蘭色說(shuō)：在excel中現(xiàn)有功能和函數(shù)公式做不到的事，VBA基本上都可以幫你完成。所以才有那么多人迷戀VBA的學(xué)習(xí)，下一個(gè)會(huì)是你嗎？

點(diǎn)擊左下角“閱讀原文”查看蘭色和小妖錄制的數(shù)據(jù)透視表全套+函數(shù)全套+技巧全套+VBA編程全套視頻教程