Excel VBA - 可変サイズのピボットテーブルの後ろの行の範囲を非表示

Question

ピボットテーブルを含む多数のシートをフォーマットするマクロを書き込もうとしました。私はこの1つの問題に立ち往生しています。

シートには、複数の積み重ねられたピボットテーブルが含まれています。 VBAコードスニペットは、最初のテーブルの後に1000行（または可能であれば上位のものを除くすべてのテーブル）を隠すために必要です。トップテーブルは、ある日から次の日にサイズが変わるため、設定範囲を隠すことはできません。

おかげ

Answer 1

は、あなたが非表示にしたくない、ピボットテーブルの名前を変更し、以下のコードでは、このような何か... を試して、1以外のすべてのピボットテーブルを非表示にします。あなたは再びすべてのピボットテーブルを表示したい場合は、以下のコードを試すことが

Sub HideAllPivotTablesButOne() 
Dim ws As Worksheet 
Dim pt As PivotTable 
Application.ScreenUpdating = False 
Set ws = ActiveSheet 
lr = ws.UsedRange.Rows.Count 
For Each pt In ws.PivotTables 
    If pt.Name <> "PivotTable1" Then  'Name of the Pivot Table which you don't want to hide 
     pt.TableRange2.EntireRow.Hidden = True 
    End If 
Next pt 
Application.ScreenUpdating = True 
End Sub 

...

Sub ShowAllPivotTables() 
Dim ws As Worksheet 
Dim pt As PivotTable 
Application.ScreenUpdating = False 
Set ws = ActiveSheet 
lr = ws.UsedRange.Rows.Count 
For Each pt In ws.PivotTables 
    pt.TableRange2.EntireRow.Hidden = False 
Next pt 
Application.ScreenUpdating = True 

End Sub