エクセルの学校：全文検索：Hyper Estraier：ピボットテーブル

Results of 1 - 1 of about 2421 for ピボットテーブル (0.004 sec.)

[[20070523093201]]: #score: 4769; @digest: c8f313bcb684dc1e6dc3a9898e4e3616; @id: 30924; @mdate: 2007-05-28T03:13:23Z; @size: 2632; @type: text/plain; #keywords: 替ー (14877), ス振 (14877), 簿レ (14111), addfields (13876), ーー (11670), tabledestination (11161), 価セ (9663), 称", (9243), pivottablewizard (8640), 表", (7820), rowfields (7282), 属名 (6675), pivottables (6146), ーピ (4381), 代表 (4115), ピボ (3844), subtotals (3667), ル2 (3167), トa1 (3123), 振替 (3115), xldatafield (3076), バス (2752), トテ (2666), pivotfields (2552), 員no (2425), 速教 (2422), xltoleft (2020), 原価 (1918), 録日 (1807), ボッ (1786), 所属 (1686), 日: (1560); 『マクロでピボットする際のエラー』（紫の若葉マーク）
ピボットエラー「AddFieldsメソッドが失敗しました」の修正方法はなんでしょうか? W2000・エクセル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 ---- ピボットテーブルを作成する場所をある特定のシートとしそのシートにデータを指定せずにピボットテーブルを作成。 “そのシートを選択して”（←一度記録に残す） ピボットテーブルのフィールドリストからフィールドとデータアイテムをドラッグと言う手順を記録にとってみるのはどうでしょう。現在の物から修正するとすれば、たとえばAAAというシートに作成するとしたら >TableDestination:="", →TableDestination:="AAA!R1C1", >ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) の前に一行挿入して、下の一行を追加 →Sheets("AAA").Select で良いかもしれません。 (HANA) ---- Hanaさん、どうもありがとうございます。早速教えていただいた内容を試してみます ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200705/20070523093201.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ