標題: VBA巨集要該工作簿所有工作表都可用，如何設?謝謝 [打印本頁]

---

作者: millerch    時間: 2023-2-15 17:25     標題: VBA巨集要該工作簿所有工作表都可用，如何設?謝謝

VBA巨集要該工作簿(workbook)所有工作表(worksheet)都可用，如何設?謝謝

---

作者: Andy2483    時間: 2023-2-16 08:03

本帖最後由 Andy2483 於 2023-2-16 08:07 編輯

回復 1# millerch


    謝謝前輩發表此主題
後學學習 EntireColumn.Hidden屬性的範例供參考

Option Explicit
Sub C欄顯示_隱藏切換1()'這是當下工作表屬性執行
With [C:C].EntireColumn
'↑以下是關於當下操作表 C欄的屬性
   .Hidden = .Hidden <> True
   '↑令隱藏屬性是:
   '如果當下C欄是隱藏的,等號的右側(.Hidden <> True)邏輯直是0(False),
   '因此 .Hidden = False 令C欄顯示
   '如果當下C欄是顯示的,等號的右側(.Hidden <> True)邏輯直是1(True),
   '因此 .Hidden = True 令C欄隱藏
End With
End Sub
Sub C欄顯示_隱藏切換2() '與 Sub C欄顯示_隱藏切換1()功能相同寫法不同
[C:C].EntireColumn.Hidden = [C:C].EntireColumn.Hidden <> True
End Sub

Sub 所有工作表C欄顯示()'這是同一個屬性執行每個工作表
Dim Sh As Worksheet
'↑宣告變數:Sh是工作表變數
For Each Sh In Worksheets
'↑設物件迴圈!令Sh這工作表變數是全部工作中的其中一表
   Sh.[C:C].EntireColumn.Hidden = False
   '↑令Sh變數的C欄隱藏屬性 不真 ,即是不隱藏C欄=(顯示C欄)
Next
End Sub

如果以上都不是前輩的題意,建議前輩將程式碼PO上來

---

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