標題: [發問] 如何隱藏工作表Data以外的所有工作表?如何顯示所有工作表? [打印本頁]

---

作者: av8d    時間: 2012-6-16 16:12     標題: 如何隱藏工作表Data以外的所有工作表?如何顯示所有工作表?

本帖最後由 av8d 於 2012-6-16 16:40 編輯

隱藏工作表Data
Sheets("Data").Visible = False
顯示工作表Data
Sheets("Data").Visible = True


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

以上~再次請教以及感謝各位大大的關愛!

---

作者: register313    時間: 2012-6-16 16:45

回復 1# av8d

1. Sub xx()
   
2.   For Each Sh In Sheets                     '顯示所有Sheet
   
3.     Sh.Visible = True
   
4.   Next
   
5.   For Each Sh In Sheets                     '隱藏所有Sheet(除Data外)
   
6.     If Sh.Name <> "Data" Then Sh.Visible = False
   
7.   Next
   
8. End Sub

複製代碼

---

作者: Hsieh    時間: 2012-6-16 17:05

回復 1# av8d

1. Sub xx()
   
2.   For Each Sh In Sheets                     '隱藏所有Sheet(除Data外)
   
3.     If Sh.Name <> "Data" Then Sh.Visible = False Else Sh.Visible=True
   
4.   Next
   
5. End Sub

複製代碼

---

作者: c_c_lai    時間: 2012-6-16 17:24

回復 1# av8d
來啜個熱鬧：

1. Sub xx()
   
2.      For Each Sh In Sheets       ' 恢復所有被隱藏的 Sheet
   
3.          Sh.Visible = True
   
4.      Next
   
5. End Sub
   
6. 
   
7. Sub yy()
   
8.      For Each Sh In Sheets       ' 隱藏 除 Data 外所有的 Sheet
   
9.          Sh.Visible = IIf(Sh.Name = "Data", True, False)
   
10.      Next
    
11. End Sub

複製代碼

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)