excel 2007ピボットテーブルの検索

Question

ワークブック（またはシート）内のすべてのピボットテーブルを見つける方法を教えてもらえますか？場合によっては、非常に大きなExcelシートでピボットテーブルが隠れているか見つからないことがあります。もし私が少なくとも、ピボットテーブルがどこにあるかのセルアドレスまたは範囲を得ることができれば、それは素晴らしいものです。

ありがとうございました。

Answer 1

これはあなたのために働く必要があります：あなたが探しているものを見つけるためにそのsheeetにPivotTables通じ.PivotTables.Count > 0して、ループを持っているシートを探して各ワークシートをループすることができます。イミディエイトウィンドウに結果を出力します。

Sub FindPivotTables() 
    Dim wst As Worksheet 
    Dim pvt As PivotTable 
    ' loop through all sheets and print name & address of all pivot tables 
    For Each wst In ActiveWorkbook.Worksheets 
     For Each pvt In wst.PivotTables 
      Debug.Print wst.Name, pvt.TableRange2.Address, pvt.Name 
     Next pvt 
    Next wst 
End Sub 

Answer 2

各ワークシートにはPivotTablesコレクションが公開されている必要があります。

Sub Test() 

    Dim pTable As pivotTable 

    Dim ws As Worksheet 

    For Each ws In ActiveWorkbook.Worksheets 

     Dim pivotTableCount 

     pivotTableCount = ws.PivotTables.Count 

     If pivotTableCount > 0 Then 

      For Each pTable In ws.PivotTables 

       Dim pivotTableName As String 
       pivotTableName = pTable.Name 

       Dim pivotTableTopLeftCell As String 
       pivotTableTopLeftCell = pTable.Location 

      Next pTable 

     End If 



    Next ws 


End Sub