隱藏或顯示工作簿中的所有工作表

隱藏或顯示工作簿中的所有工作表

本文為《別怕，Excel VBA其實很簡單（第3版）》隨書問題參-

如果要隱藏工作簿中除活動工作表外的所有工作表，代碼可以定為：

Sub 隱藏活動工作表外的所有工作表() Dim Sht As Worksheet For Each Sht In Worksheets If Sht.Name <> ActiveSheet.Name Then Sht.Visible = False End If Next ShtEnd Sub

如果要顯示工作簿中所有已經(jīng)隱藏的工作表，代碼可以寫為：

Sub 顯示已經(jīng)隱藏的工作表() Dim Sht As Worksheet For Each Sht In Worksheets Sht.Visible = True Next ShtEnd Sub

版權聲明：本文內(nèi)容由網(wǎng)絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權內(nèi)容。

版權聲明：本文內(nèi)容由網(wǎng)絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權內(nèi)容。