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

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

[[20120601085715]]: #score: 4769; @digest: cb40c8580eaea2e0800c1abdcabb9c1a; @id: 59148; @mdate: 2012-06-01T07:51:59Z; @size: 2777; @type: text/plain; #keywords: 白)" (13171), smallgrid (13013), pivottables (12292), ル5 (10688), ル6 (9643), rowfields (7282), pivotitems (7267), addfields (6938), tabledestination (6697), 払方 (6233), xldatafield (6153), 回wi (5991), pivotfields (5104), tablename (4816), （mn (4621), 額") (4508), createpivottable (4214), pivotcaches (4056), sourcetype (4027), 額" (3960), xldatabase (3886), sourcedata (3531), pivotfield (3409), トテ (3333), 計: (3310), ピボ (3203), にos (2726), 力表 (2721), 表! (2514), ンア (2131), activesheet (2068), ーブ (1926); 『Windows 7にOSを変更したらマクロが動かなくなってしまいました』（MN）
Windows2000で作成したマクロで、XPに移行した際は問題ありませんでした。今回Windows 7にOSが変更されたところ、途中で動かなくなってしまいました。直せなくてとても困っております。お手数ですが、ご教授ください。下記の「 .PivotItems("(空白)").Visible = False」この箇所で止まってしまいます。エラーメッセージには、PivotFieldクラスのPivotItemsプロパティを取得できません。と出ています。 ActiveSheet.Unprotect Range("B4:H5").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "入力表!R4C2:R120C8").CreatePivotTable TableDestination:="", TableName:= _ "ピボットテーブル5" ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select ActiveSheet.PivotTables("ピボットテーブル5").SmallGrid = False ActiveSheet.PivotTables("ピボットテーブル5").AddFields RowFields:=Array("支払方法", _ "よみがな", "名前") With ActiveSheet.PivotTables("ピボットテーブル5").PivotFields("金額") .Orientation = xlDataField .Caption = "合計 : 金額" .Function = xlSum End With With ActiveSheet.PivotTables("ピボットテーブル5").PivotFields("よみがな") .PivotItems("(空白)").Visible = False End With Range("B5").Select ActiveSheet.PivotTables("ピボットテーブル5").PivotFields("よみがな").Subtotals = Array( _ False, False, False, False, False, False, False, False, False, False, False, False) Range("F3").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "入力表!R4C2:R120C8").CreatePivotTable TableDestination:=Range("F3"), TableName _ :="ピボットテーブル6" ActiveSheet.PivotTables("ピボットテーブル6").SmallGrid = False ActiveSheet.PivotTables("ピボットテーブル6").AddFields RowFields:=Array("名前", "適用", _ "支払方法") With ActiveSheet.PivotTables("ピボットテーブル6").PivotFields("金額") .Orientation = xlDataField .Caption = "合計 : 金額" .Function = xlSum End With ---- 変わったのは OS だけでしょうか。 OSをバージョンアップして、マクロが影響を受けることはあまり無い気がするのですが、 EXCEL のバージョンアップでは互換性がよく問題になります。もし現在の EXCEL が 2007 以降でしたら、下記が原因ではないでしょうか。 Excel 2007 SP2 もしくは Excel 2010 の環境で空白セルを "(空白)" と指定したマクロのフィルター処理を実行するとエラーが発生する http://support.microsoft.com/kb/978761/ja ---- できました!ありがとうございました。（MN） ---- 解決して何よりですが、次回からは質問時に EXCEL のバージョンを書かれると解決が早いと思います。 (Mook) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201206/20120601085715.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ