excel - 隐藏/取消隐藏特定组

Question

我想创建一个按钮来使用 VBA 隐藏和取消隐藏特定组。我拥有的代码将隐藏或取消隐藏指定级别中的所有组:

Sub Macro1()
ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub

假设我只想取消隐藏分组级别 2 中的第二组，我该怎么做？

Answer 1

假设“分组级别 2 中的第二组”是第 7-10 行。然后此代码将取消隐藏该组:

ActiveSheet.Rows(10).ShowDetail = True

但是，最好将其转换为隐藏/取消隐藏组的切换功能。以下是一个通用切换函数 (ToggleOutlineGroup)，它允许您通过传递大纲所在的工作表和行来隐藏/取消隐藏组。该行可以是组中的任何行，只要它不属于另一个子组。为简单起见，我使用了该组的最后一行。 sub foo 是如何调用该函数的示例。

Sub foo()

    ToggleOutlineGroup Sheet1, 10

End Sub


Sub ToggleOutlineGroup(sht As Worksheet, row As Long)

    sht.Rows(row).ShowDetail = Not (sht.Rows(row).ShowDetail)

End Sub