Excel中使用簡單的VBA語句來實現批量取消隱藏工作表功能

Excel一直到2013版，也沒有提供批量取消隱藏工作表的功能，這點確實比較遺憾，今天教大家用簡單的VBA語句來實現這超酷炫的取消隱藏工作表功能。

Excel文件中隱藏了N個工作表，要求在主界面表中設置分別設置“隱藏”和“取消隱藏”按鈕。并實現隱藏指定工作表的功能。

步驟

1、在工作表標簽右鍵菜單上，點“查看代碼”在打開的窗口中，“插入”- “模塊" - 把下面的代碼粘貼到右側的窗口中。關閉當前Visual basic窗口。

代碼

Sub 隱藏()Dim arrApplication.ScreenUpdating = False表名 = Array("表2", "表4", "表5")

'上句設置要隱藏的表名Sheets(表名).Visible = 0Sheets("主界面").SelectApplication.ScreenUpdating = TrueEnd Sub

Sub 取消隱藏()Application.ScreenUpdating = FalseDim arrFor x = 1 To Sheets.CountSheets(x).Visible = -1Next xSheets("主界面").SelectApplication.ScreenUpdating = TrueEnd Sub

2、在“主界面”表中開發工具 - 插入 - 表單控件 - 拖畫兩個按鈕，并分別指定宏。

添加“開發工具”選項卡方法：

2010版:文件 - 選項 - 自定義功能區

2007版: office按鈕- excel選項 - 常用 - 顯示"開發工具.."

2003版：視圖菜單 - 工具欄 - 選中“窗體”

3、文件另存為“啟用宏的工作簿”(excel2003版略過此步)

設置OK！

如果你是新手可能看不明白上面VBA代碼，不要緊，只要按步驟操作即可。不過還是建議感興趣的同學們系統的學習一下VBA語言。VBA語言不像同學們想象的那么難，嘗試下便會知道。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。