如何隱藏工作表Data以外的所有工作表?如何顯示所有工作表? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何隱藏工作表Data以外的所有工作表?如何顯示所有工作表?

返回列表下一主題上一主題發帖

[發問] 如何隱藏工作表Data以外的所有工作表?如何顯示所有工作表?

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2012-6-16 17:24 | 顯示全部帖子

回復 1# av8d
來啜個熱鬧：

Sub xx()
For Each Sh In Sheets ' 恢復所有被隱藏的 Sheet
Sh.Visible = True
Next
End Sub
Sub yy()
For Each Sh In Sheets ' 隱藏除 Data 外所有的 Sheet
Sh.Visible = IIf(Sh.Name = "Data", True, False)
Next
End Sub

複製代碼

寫法可依個人喜好，簡潔扼要就好！

靜思自在 : 甘願做、歡喜受。

返回列表下一主題上一主題