特定のグループを表示/非表示解除する

Question

VBAで特定のグループを非表示にするボタンを作成したいと思います。私が持っているコードは、指定されたレベルにあるすべてのグループを非表示にしたり再表示されます：

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

は、私はちょうど私がそれを行うことができますどのようにグループ化レベル2に第2のグループを再表示したいとしましょうか？

Answer 1

「グループ化レベル2の第2グループ」は行7-10です。そして、このコードは、そのグループを再表示します：

ActiveSheet.Rows(10).ShowDetail = True 

しかし、それは/非表示グループを再表示しますトグル機能にそれを回すためにおそらく最高です。以下は、アウトラインがあるシートと行を渡してグループを表示/非表示する汎用トグル関数（ToggleOutlineGroup）です。行は、別のサブグループの一部でない場合は、グループ内の任意の行にすることができます。私は単純化のためにグループの最後の行を使いました。サブ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