ピボットグラフレポートフィルタ/ページフィールドのデフォルト値

StackOverflow https://stackoverflow.com/questions/933415

  •  06-09-2019
  •  | 
  •  

質問

Iは、チャートレポートフィルタ(xlPageFieldに磁場配向を設定する)ように日付フィールドを使用して、マクロでExcel 2002でピボットグラフを生成しています。私は、日付フィールドの最新の値に、このpivotfieldのデフォルト選択された値を設定したいと思います。 VBAでそれを行うための正しい構文は何でしょうか。

役に立ちましたか?

解決

そのpagefieldためのすべての項目をごループすることはできませんか?ここでは、ピボットテーブルのためだが、チャートのために働くためにそれを得ることは大したことではないはずです。

Sub Main()
    Dim pvt As PivotTable
    Dim fld As PivotField
    Dim itm As PivotItem
    Dim m As Variant

    Set pvt = Worksheets(1).PivotTables(1)
    Set fld = pvt.PageFields(1)

    m = fld.PivotItems(1)
    For Each itm In fld.PivotItems
        If itm.Value > m Then m = itm.Value
    Next itm

    fld.CurrentPage = m
End Sub

他のヒント

あなたが動的にグラフを作成した後、

あなただけのセルを選択したくないですか?

のような何かます:

Dim value As Date
value = "1-apr-09"
Dim row As Integer
row = 0

Dim keeplooping As Boolean
keeplooping = True
While (keeplooping)
    row = row + 1
    If Range("B" & row).value = value Then
        keeplooping = False
        Range("B" & row).Select
        MsgBox ("found it")
    ElseIf Range("B" & row).value = "" Then
        keeplooping = False
        MsgBox ("Not found")
    End If
Wend

ChartObjectに .PivotLayout.PivotTable.PivotFields( "フィールド名")。currentPageに= " fieldValueの"

これは、Excel 2003のからだが、私は推測2002似ています。

ライセンス: CC-BY-SA帰属
所属していません StackOverflow
scroll top