ピボットグラフレポートフィルタ/ページフィールドのデフォルト値
質問
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似ています。
所属していません StackOverflow