エクセルの学校：全文検索：Hyper Estraier：』（ ! ----

Results of 1 - 1 of about 670 for 』（ ! ---- | ----* (0.110 sec.)

』（ (95996), ---- (-96118)

[[20070521151955]]: #score: 4667; @digest: 4d6855083d03b3358f749b0da22fa0e4; @id: 30894; @mdate: 2007-05-21T06:29:13Z; @size: 1930; @type: text/plain; #keywords: ス振 (14877), 替ー (14877), 簿レ (14111), addfields (13876), ーー (11670), 価セ (9663), 称", (9243), 表", (7820), rowfields (7282), 属名 (6675), pivottables (6146), tabledestination (4464), ーピ (4381), 代表 (4115), ル2 (3165), トa1 (3123), 振替 (3103), xldatafield (3076), ピボ (2882), バス (2752), pivotfields (2552), 正方 (2507), 員no (2425), pivotcaches (2028), xltoleft (2018), sourcetype (2013), xldatabase (1943), 原価 (1918), pivottable (1828), 録日 (1807), sourcedata (1765), 所属 (1686); 『ピボットエラー「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 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200705/20070521151955.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ