Excel 如何利用VBA一鍵(取消)隱藏欄位?

試試http://www.FunP.Net/324097

2015-06-15 10:02:59 補充：
試試http://www.FunP.Net/324097

Sub test()
ActiveSheet.Unprotect "123"
With [J1,K1,M1].EntireColumn
　　.Hidden = 1 + .Hidden
End With
ActiveSheet.Protect "123"
End Sub

IF我不會寫.....XD

2015-06-15 04:04:05 補充：
謝謝三位大大的解答，由於答案都符合我的需求，所以請比較早解決我的需求的cascade大上答囉！其他兩位大大也非常感謝你們的解題。

錄製2個巨集
1.隱藏
2.取消隱藏

2015-06-14 09:20:56 補充：
然後插入2個圖形右鍵指定巨集

2015-06-14 09:25:59 補充：
只用一個按鍵就加上if如果是隱藏狀態就取消隱藏反之

2015-06-14 13:18:58 補充：
Sub 巨集1()
ActiveSheet.Unprotect "123"
With Range("J:J,K:K,M:M")
If .EntireColumn.Hidden = False Then
.EntireColumn.Hidden = True
Else
.EntireColumn.Hidden = False
End If
End With
ActiveSheet.Protect "123"
End Sub