隱藏列或是欄位

[liau_sl]

隱藏列或是欄位
各位大大,,,我有看書..可是有一個問題提出來....
先是顯示,按一次會隱藏.再按一次會顯示出來..那麼這麼寫VBA呢..
我附上範例
我會寫隱藏,再來就不會寫了

[附件已被管理員刪除]

[leonchou]

Sub Module1()
　Dim myRng As Range
　Set myRng = Range("A1:A6")
　myRng.EntireRow.Hidden = Not myRng.EntireRow.Hidden
　Set myRng = Nothing
End Sub

也可以簡化一點：

With Range("A1:A6").EntireRow
　.Hidden = Not .Hidden
End With

[fangdr]

按一次會隱藏.再按一次會顯示出來

加一個 if 判斷是否隱藏
Sub Module1()
 Dim myRng As Range
 Set myRng = Range("A1:A6")
 If myRng.EntireRow.Hidden = True Then
 myRng.EntireRow.Hidden = False
 Else
 myRng.EntireRow.Hidden = True
 End If
 Set myRng = Nothing
End Sub

[leonchou]

Hidden 屬性是返回布林值 (Boolean)，
屬性返回布林值 TRUE or FALSE，這種屬性
在切換時直在前面加上 NOT 即可，比較方便。

不太明白的朋友，可以對照一下 "負負得正" 的道理：
NOT False = True
NOT True = False

[fangdr]

謝謝 leonchou 兄指教
還有很多要向您學習的地方

[liau_sl]

fangdr leonchou oobrid,沙老師或是各位大大,我附上範例,是否可以幫我修改一下
還有二個問題,如果要在紅色範圍加入一列的時候..不必再去進入程式碼修改範圍,範例有箭頭,那個是第二個問題

[附件已被管理員刪除]

[fangdr]

配合定義名稱
看看是否可行

[附件已被管理員刪除]

[老夏]

1.先選取欄或列
2.資料>>群組及大綱>>群組

自動產生+-按鈕

[liau_sl]

謝謝你的解答...我的問題已經解決了.

[jchou]

sheet 1 列 A ~ z
假設我想隱藏列
B D G I K O RSTUVWXYZ AD AG AK-AZ
(2 4 7 9 11 15 19 20 21 22 23 24 25 26 30 32 37-52

則 VB
Sub xxx()
ActiveSheet.Columns.Hidden = False
For Each i In Array(2, 4, 7, 9, 11, 15, 19,20,21,22,23,24,25,26,30,32,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52)
ActiveSheet.Columns(i).Hidden = True
Next
End Sub

請教高手們是否有比較簡化公式可參考?
或是 譬如 19-26 及 37-52 如何簡化 (還是必須全部寫出)