tft每日頭條

 > 職場

 > 怎麼把隐藏的多個工作表取消隐藏

怎麼把隐藏的多個工作表取消隐藏

職場 更新时间:2024-11-19 13:23:47

今年我們來聊點簡單的,但是很常見的問題如何批量取消工作薄中,所有隐藏的工作表目前Excel自帶的功能,無法實現批量,隻能逐個取消,有興趣的同學可以去WPS看看,聽說可以


不過有很多MS OFFICE忠粉,如我,所以我們就來簡單實現以下這個功能


先看效果:

怎麼把隐藏的多個工作表取消隐藏(批量取消隐藏工作表如此簡單)1


點擊按鈕,顯示出了所有隐藏


代碼截圖:


怎麼把隐藏的多個工作表取消隐藏(批量取消隐藏工作表如此簡單)2


源碼粘貼可用(建議收藏,關鍵時候可幫大忙):

'作者: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每日頭條,我们将持续为您更新最新资讯!

查看全部

相关職場资讯推荐

热门職場资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved