2015年11月15日 星期日

[Excel Macro 巨集] 如何一次顯示所有隱藏的工作表

工作上經常要使用 Excel 的朋友,想必有過一個檔案裡面太多張工作表,而把一張張不太會編輯到的工作表隱藏起來的經驗吧?!或是原始建立檔案的人,為了不讓收到檔案的人覺得很複雜,便把一些單純參照的工作表隱藏起來,隱藏的時候很方便,可以一次選取所有要隱藏的表執行,但當想要把這些取消隱藏時,卻只能一個一個表點,表的數量少還好,只要遇上超過十幾頁的,尤其檔案一多,就會覺得很麻煩,偏偏微軟就是沒有取消全部隱藏的功能,因此只能靠巨集來克服,只要簡單幾個步驟,以後就只要按幾個鍵,就能達到取消全部隱藏的目的囉!

1. 第一步當然是打開 Excel,之後同時按住 Alt + F11,Microsoft Visual Basic 應用程式視窗就會打開,點選最上排的『插入』>『模組』,叫出空白程式碼視窗



2. 將下面的程式碼複製貼上到程式碼視窗中,若要馬上執行,直接按 F5,所有隱藏的工作表便會被叫出來,或是將此巨集儲存,以後可以直接執行

==========================================
1        Sub UnhideAllSheets()
2            Dim ws As Worksheet
3      
4            For Each ws In ActiveWorkbook.Worksheets
5                ws.Visible = xlSheetVisible
6            Next ws
7  
8        End Sub
==========================================


3. 往後便可直接到『開發人員』下面的『巨集』,執行剛剛建立的程式碼,便可顯示所有隱藏的工作表囉!




沒有留言: