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

Question

我在Excel工作表中將幾行分組。 我添加了幾個按鈕來隱藏和取消隱藏行。 但是我想組合代碼，只有一個按鈕，其功能更像是切換按鈕。 我無法實現這一目標。 這些是我的個人職能。

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

任何幫助，不勝感激。 請注意：我沒有使用VBA的任何經驗，我需要做這件事，以滿足我的女主人對他的一項工作的要求。

謝謝

Answer 1

嘗試這個：

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