すべてのListObject行を非表示にします。

Question

選択した行以外のすべての行を非表示にするVBAコードを探しています。下の図ではMSFTが選択されています。他のListRowsもすべて非表示にしたいと思います。

どうすればよいですか？あなたがテーブルのリストを使用している場合

Answer 1

、次のように動作するはずです：

Sub HideAllListRowsExceptTheActiveOne() 
    ActiveCell.ListObject.DataBodyRange.Rows.Hidden = True 
    ActiveCell.Rows.Hidden = False 
End Sub 

あなたはカスタムボタンを使用して、このサブを実行することができ、コンテキストメニュー項目などを