Pivotchart 보고서 필터/페이지 필드의 기본값
문제
날짜 필드를 차트 보고서 필터 (필드 방향을 XLPageField로 설정)로 사용하여 매크로를 사용하여 Excel 2002에서 피벗 차트를 생성하고 있습니다. 이 Pivotfield의 기본 선택된 값을 날짜 필드의 최신 값으로 설정하고 싶습니다. VBA에서 그 일을하기에 적합한 구문은 무엇입니까?
해결책
해당 페이지 필드의 모든 항목을 살펴볼 수 없습니까? 여기에는 피벗 테이블이 있지만 차트에서 작동하도록하는 것은 큰 문제가되지 않아야합니다.
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