excel - 使用 toggle.button 对行集进行分组

Question

我正在尝试使用切换按钮隐藏行组。在这种情况下，第 15 到 20 行、第 22 到 25 行、第 27 行，最后是第 30 到 32 行。
到目前为止，我的代码按预期工作。

Private Sub ToggleButton5_Click()
    Dim xAddress As String
    
    xAddress = ("15:20")
    If ToggleButton5.Value Then
        Application.ActiveSheet.Rows(xAddress).Hidden = True
        ToggleButton5.Caption = "Show Assets"
    Else
        Application.ActiveSheet.Rows(xAddress).Hidden = False
        ToggleButton5.Caption = "Hide Assets"
    End If
    
End Sub

如何将多个组添加到该行？
我试过了

xAddress = ("15:20,22:25")

xAddress = "15:20,22:25"

xAddress = ("15:20 And 22:25")

我单独尝试过

xAddress = ("15,16,17,18,19,20,22,23,24,25")

最后一行有点工作，但如果引用了超过六个行号(过去尝试从内存中获取)，则会出现错误。

Answer 1

如果您需要“切换”，请考虑实现“单选按钮逻辑”。它是 在 或 关闭 , 因此如果不是 Hidden应该是 Hidden反之亦然。通常它只有 1 行:

Sub ToggleRowsVisibility()

    With ThisWorkbook.Worksheets(1).Range("15:20,22:25")
        .EntireRow.Hidden = Not .EntireRow.Hidden
    End With

End Sub

在代码的情况下，它可以在 If 之外健康)状况:

Application.ActiveSheet.Rows(xAddress).Hidden = ToggleButton5.Value