1

すべてのワークシートでピボットのソースを変更するマクロを作成しました。私のワークブックには、「Mumbai」(ピボット シート) のような CityName のシートと、「MumbaiData」(ソース シート) という名前のソース データ シートがあります。このエラーを処理して次のシートのピボットに戻るにはどうすればよいですか

私のコード

Sub pivotsourcechange()


Dim ws As Worksheet
Dim pt As PivotTable

For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
ws.PivotTableWizard SourceType:=xlDatabase, SourceData:=Worksheets(ActiveSheet.Name & " PV").UsedRange
Next pt
Next ws
End Sub
4

1 に答える 1

0

通常、頻繁に使用することはお勧めできませんが、On Error Resume Nextここでは問題なく機能します。

Sub pivotsourcechange()

  Dim ws As Worksheet
  Dim pt As PivotTable

  On Error Resume Next
  For Each ws In ActiveWorkbook.Worksheets
    For Each pt In ws.PivotTables
      ws.PivotTableWizard SourceType:=xlDatabase, SourceData:=Worksheets(ActiveSheet.Name & " PV").UsedRange
    Next pt
  Next ws
  On Error Goto 0
End Sub

On Errorコードの別の場所に移動してエラーを処理して戻るなど、でできることは他にもたくさんあります。情報については、このリンクをチェックしてください: http://support.microsoft.com/kb/141571

于 2013-06-19T21:11:46.430 に答える