[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ピボットエラー「AddFieldsメソッドが失敗しました」の修正方法は?』(ピボットマスターを目指す初心者)
エクセル2003で以下を実行すると、
「実行時エラー1004 PivotTableクラスのAddFieldsメソッドが失敗しました」と
なってしまいます。修正方法を教えて頂けますでしょうか?
デバッグを開くと以下の部分が黄色でハイライトされています。
ActiveSheet.PivotTables("ピボットテーブル2").AddFields RowFields:=Array("所属名称", _ "代表", "原価センタ")
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Sub 名簿レイアウト変更()
'
' 名簿レイアウト変更 Macro
' マクロ記録日 : 2007/5/21 ユーザー名 : X
'
'
Columns("A:B").Select Selection.Delete Shift:=xlToLeft ActiveWindow.Zoom = 75 Columns("C:AJ").Select ActiveWindow.LargeScroll ToRight:=-2 Columns("C:P").Select Selection.Delete Shift:=xlToLeft Columns("D:G").Select Selection.Delete Shift:=xlToLeft Columns("E:Y").Select Selection.Delete Shift:=xlToLeft Cells.Select End Sub Sub バス振替ーピボットA1から() ' ' バス振替ーピボットA1から Macro ' マクロ記録日 : 2007/5/21 ユーザー名 : X '
'
Columns("A:D").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "ここに貼り付け!C1:C4").CreatePivotTable TableDestination:="", TableName:= _ "ピボットテーブル2", DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select ActiveSheet.PivotTables("ピボットテーブル2").AddFields RowFields:=Array("所属名称", _ "代表", "原価センタ") ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("従業員No").Orientation = _ xlDataField Range("B4").Select ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("代表").Subtotals = Array( _ False, False, False, False, False, False, False, False, False, False, False, False) End Sub
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.