[[20130213153151]] 『ピボットテーブルの編集』(MARU) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ピボットテーブルの編集』(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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.