特定の行を表示しているExcel VBA

Question

私の部門のためにholidayplannerを作成しています。私たちは9グループの約150人です。私は各グループのメンバーをフィルタリングするボタンを作成したいと思います。

私はこのコードを使用して、現時点ではこのような9つのモジュールと

Sub IFK02einblenden() 

    Application.ScreenUpdating = False 

    ActiveSheet.Rows(8).Hidden = True 
    ActiveSheet.Rows(9).Hidden = False 
    ActiveSheet.Rows(10).Hidden = True 
    ActiveSheet.Rows(11).Hidden = True 
    ActiveSheet.Rows(12).Hidden = False 
    ActiveSheet.Rows(13).Hidden = False 
    ActiveSheet.Rows(14).Hidden = False 
    ActiveSheet.Rows(15).Hidden = True 
    ActiveSheet.Rows(16).Hidden = True 
    //and so on and so on till row 158 

    Application.ScreenUpdating = True 

End Sub 

マクロのパフォーマンスが非常に悪いです。

これを範囲属性などで最適化する考えはありますか？

ボタングループONEのメンバーのように示すべきである「ONEグループ」をクリックで

「私は8行と行を示して12-38」

Answer 1

あなたは、フィルタや他の代替手段を使用しない場合このようなものを試してください

Sub GroupOne() 
    ActiveSheet.Rows("8:8").EntireRow.Hidden = False 
    ActiveSheet.Rows("12:38").EntireRow.Hidden = False 
    End Sub