Results of 1 - 1 of about 2422 for ピボットテーブル (0.004 sec.)
- [[20130320123613]]
- #score: 4769
- @digest: eef3ce2aac1d1bcc6ed40d59ad7dc56f
- @id: 61840
- @mdate: 2013-03-20T10:40:21Z
- @size: 2452
- @type: text/plain
- #keywords: dataclm (21804), koumoku (18040), 査数 (14119), xldatafield (12307), 査日 (8558), pivottables (7682), 回項 (6721), pagefields (6721), 得: (6466), position (5851), yama (5561), pivotfields (5104), datarow (5069), ト") (4991), 数") (4950), 容実 (4689), columnfields (4494), 目取 (4042), 調査 (3892), rowfields (3641), ピボ (3523), addfields (3469), xlsum (3328), 数" (3260), タ", (3011), ス! (2911), orientation (2657), 理フ (2449), tablename (2408), 番", (2256), tabledestination (2232), 番) (2232)
- 『ピボットテーブル』（MARU）
ピボットテーブルの結果は下記になります。 調査日 (品番) (データ) A B C D E 調査数 OK数 NG数 項目1 項目2 項目3 項目4 項目5 ・ ・ ・ ↑項目は変化します Worksheets("カウント").Select dataclm = Worksheets("カウント").Range("B4").Value datarow = Sheets("カウント").Range("B1").Value '項目取得:毎回項目数が変化します Dim koumoku(300) For i = 18 To dataclm koumoku(i) = Worksheets("データベース").Cells(1, i).Value Next i Worksheets("ピボット").Select Worksheets("ピボット").Cells.Clear 'データベースシートのデータをもとに、ピボットシートにピボットの結果を表示 ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "データベース!Data1").CreatePivotTable TableDestination:= _ "[処理ファイル.xls]ピボット!R1C1", TableName:="YAMA" ActiveSheet.PivotTables("YAMA").AddFields RowFields:="データ", _ ColumnFields:="品番", PageFields:="調査日" With Worksheets("ピボット").PivotTables("YAMA").PivotFields("調査数") .Orientation = xlDataField .Position = 1 .Function = xlSum .Caption = " 調査数" End With With Worksheets("ピボット").PivotTables("YAMA").PivotFields("OK数") .Orientation = xlDataField .Position = 2 .Function = xlSum .Caption = " OK数" End With With Worksheets("ピボット").PivotTables("YAMA").PivotFields("NG数") .Orientation = xlDataField .Position = 3 .Function = xlSum .Caption = " NG数" End With '変化する項目は18列目から始まる For i = 18 To dataclm With Worksheets("ピボット").PivotTables("YAMA").PivotFields(koumoku(i)) .Orientation = xlDataField .Position = i - 14 .Function = xlSum .Caption = " " & koumoku(i) ←ここでエラー End With Next i ●エラー内容 実行時エラー1004 指定したフィールド名は既に使用されています。 とのエラーが表示されます。 ご教授お願いします。 ---- エラーの通りのデータに成っているのではないですか? 実際の物に近いサンプルデータをのせてみられてはどうですか? (HANA) ---- HANAさんありがとうございます。 エラーがでない時もあるんです。もう少し調べてみます。 どうしてもわからなければ、もう一度質問させていただきます。 (MARU)... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201303/20130320123613.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97059 documents and 608315 words.
訪問者：