每月都會做很多管理報告等,但是很多表格更新完數據後,都會隐藏起來,免得工作簿看起來很亂,但是下月更新的時候又得一個一個的取消隐藏。wps和365是可以指定取消多個工作表的,但我們沒有使用這兩版本的同學就比較麻煩了。
一鍵取消隐藏工作表代碼
Sub 取消隐藏()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Visible = xlSheetVisible
Next
End Sub
代碼很簡單,但是也是補充一個小功能,挺實用。
代碼作用圖示,