Excel VBA代碼切換隱藏和取消隱藏行

我在我的Excel表格中分組了幾行。我添加了幾個按鈕來隱藏和取消隱藏行。但我想結合代碼並只有一個按鈕，它更像是一個切換按鈕。我無法做到這一點。這些是我個人的功能。Excel VBA代碼切換隱藏和取消隱藏行

Sub Button1_Click() 
    ActiveSheet.Outline.ShowLevels Rowlevels:=1 
End Sub 
Sub Button2_Click() 
    ActiveSheet.Outline.ShowLevels Rowlevels:=2 
End Sub

任何與此有關的幫助表示讚賞。請注意：我對VBA沒有任何經驗，因此我需要這樣做來滿足他對他的一項工作的要求。

感謝

來源

2014-01-29 ravi

你如何希望你的切換按鈕的工作？當按下它顯示'Rowlevels：1'並隱藏另一個，反之亦然？ – L42

試試這個：

Activesheet.rows(x & ":" & y).hidden=Not activesheet.rows(x & ":" & y).hidden

其中x與y是要隱藏的行數。例如：

Sub Button1_Click() 
    ActiveSheet.Rows("2:4").Hidden = Not ActiveSheet.Rows("2:4").Hidden 
End Sub

來源

2014-01-29 06:23:16 Amadea

我已經試過了，但不工作 - 如果Rowlevels = 1個，則 ActiveSheet.Outline.ShowLevels Rowlevels：= 2 否則 ActiveSheet.Outline.ShowLevels Rowlevels：= 1 結束如果 – ravi

我編輯我的回答，檢查出來到看看它是否有效。 – Amadea

Excel VBA代碼切換隱藏和取消隱藏行

回答

相關問題