Results of 1 - 1 of about 671 for 』（ ! ---- | ----* (0.109 sec.)
』（ (96027), ---- (-96148)
- [[20130213153151]]
- #score: 4666
- @digest: 71d8b563cebbaa82c9218575e0eda447
- @id: 61497
- @mdate: 2013-02-13T06:48:07Z
- @size: 2244
- @type: text/plain
- #keywords: sys2 (28223), koumoku (18040), dataclm (14536), xldatafield (12307), pivottables (10755), タ2 (8978), position (7313), ルr2 (6721), pagefields (6721), pivotfields (6380), 頭a (5627), 量3 (4839), フ2 (4810), rowgrand (4557), columnfields (4494), 量合 (3873), rowfields (3641), addfields (3469), xlsum (3328), orientation (3321), ス") (3272), タ", (3011), ト, (2995), 番" (2467), tablename (2408), 量2 (2254), ピボ (2242), tabledestination (2232), createpivottable (2107), pivotcaches (2028), caption (2027), sourcetype (2013)
- 『ピボットテーブルの編集』（MARU）
"データベース"シートのデータをもとに"データ2"のシートへピボットテーブルを 作成しています。 このピボットテーブルをもとに"グラフ2"のシートへグラフが作られます。 (1,20)〜(1,***)は項目名が入っています。項目名は、A***,B***,C***と 先頭A,B,Cがついた名前となっております。 そこでこのピボットを作成する際、下記の記述を編集し、 Aだけのピボット,Bだけのピボット,Cだけのピボットをカスタマイズできないでしょ うか? アドバイスいただきたく、よろしくお願いします。 Worksheets("データ2").Select Worksheets("データ2").Cells.Clear Worksheets("データベース").Select Dim koumoku(300) For i = 20 To dataclm koumoku(i) = Worksheets("データベース").Cells(1, i).Value Next i Worksheets("データ2").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Data1").CreatePivotTable TableDestination:= _ "[ファイルR2.xls]データ2!R1C1", TableName:="sys2" ActiveSheet.PivotTables("sys2").AddFields RowFields:="データ", _ ColumnFields:="日付", PageFields:="品番" With Worksheets("データ2").PivotTables("sys2").PivotFields("数量合計") .Orientation = xlDataField .Position = 1 .Function = xlSum .Caption = " 数量合計" End With With ActiveSheet.PivotTables("sys2").PivotFields("会社") .Orientation = xlPageField .Position = 2 End With With Worksheets("データ2").PivotTables("sys2").PivotFields("数量2") .Orientation = xlDataField .Position = 2 .Function = xlSum .Caption = " 数量2" End With With Worksheets("データ2").PivotTables("sys2").PivotFields("数量3") .Orientation = xlDataField .Position = 3 .Function = xlSum .Caption = " 数量3" End With For i = 20 To dataclm With Worksheets("データ2").PivotTables("sys2").PivotFields(koumoku(i)) .Orientation = xlDataField .Position = i - 14 .Function = xlSum .Caption = " " & koumoku(i) End With Next i With ActiveSheet.PivotTables("sys2") .ColumnGrand = False .RowGrand = False End With Worksheets("グラフ2").Select... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201302/20130213153151.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97065 documents and 608341 words.
訪問者：