Pivotchart 보고서 필터/페이지 필드의 기본값

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

  •  06-09-2019
  •  | 
  •  

문제

날짜 필드를 차트 보고서 필터 (필드 방향을 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 년이 비슷할 것이라고 가정합니다.

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top