今年我們來聊點簡單的,但是很常見的問題如何批量取消工作薄中,所有隐藏的工作表目前Excel自帶的功能,無法實現批量,隻能逐個取消,有興趣的同學可以去WPS看看,聽說可以
不過有很多MS OFFICE忠粉,如我,所以我們就來簡單實現以下這個功能
先看效果:
點擊按鈕,顯示出了所有隐藏
代碼截圖:
源碼粘貼可用(建議收藏,關鍵時候可幫大忙):
'作者:Excel辦公實戰-小易
'功能:過程名稱很明白
'------------------------------------
Sub 取消全部隐藏工作表()
Dim ws As Worksheet
'檢查沒一個工作表
For Each ws In ThisWorkbook.Worksheets
'取消隐藏-可見
ws.Visible = xlSheetVisible
ws.Visible = xlSheetVeryHidden
ws.Visible = xlSheetHidden
Next
End Sub
擴展:如果想通過代碼隐藏工作表,
那麼可以隻要把
ws.Visible = xlSheetVisible 修改為 ws.Visible = xlSheetHidden 或者 xlSheetVeryHidden
xlSheetVeryHidden 相對于hidden 更加安全,普通方法無法取消隐藏,必學在VBE中操作取消
小結:從實戰出發,隻是簡單的幾句代碼,如何大量的隐藏工作表需要取消,可以大量節約我們的時間,以上代碼可以直接複制粘貼使用!
更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!