一個(gè)群友問到如何批量取消隱藏工作表。在一個(gè)excel工作薄里隱藏了十幾張工作表,想將其取消隱藏,使用excel內(nèi)置的功能:“格式——工作表——取消隱藏”,只能逐張慢慢取消隱藏工作表,如何批量取消隱藏工作表呢?
要解決批量取消隱藏工作表,就只能使用VBA代碼完成。
下面提供兩端批量取消隱藏工作表的VBA代碼,都可以實(shí)現(xiàn)。
批量取消隱藏工作表代碼一:
按下"Alt+F11"鍵,在打開的"Microsoft Bisual Basic"窗口中,選擇"插入——模塊".,復(fù)制下面的代碼,按F5鍵運(yùn)行,就完成了批量取消隱藏工作表。
Sub 批量取消隱藏工作表()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Visible = True
Next
End Sub
批量取消隱藏工作表代碼二:
Sub 批量取消隱藏工作表()
For Each AA In Sheets
AA.Visible = True
Next
End Sub
兩段代碼使用任意一段都可以批量取消隱藏工作表。
核心關(guān)注:拓步ERP系統(tǒng)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊(yùn)涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務(wù)管理理念,功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理,全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域,是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請(qǐng)注明出處:拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題:批量取消隱藏工作表的方法
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139214642.html