القيمة الافتراضية ل FIVOTCHART تقرير مرشح / صفحة الصفحة

Question

أقوم بإنشاء مخطط محوري في Excel 2002 مع ماكرو، باستخدام حقل تاريخ كمرشح تقرير المخطط (إعداد الاتجاه الميداني إلى Xlpagefield). أرغب في تعيين القيمة المحددة الافتراضية لهذا pivotfield إلى أقصى قيمة في حقل التاريخ. ما هو بناء الجملة المناسب للقيام بذلك في VBA؟

Answer 1

لا يمكنك حلقة من خلال جميع العناصر لتلك 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

Answer 2

لا تريد فقط تحديد الخلية بعد إنشاء المخطط ديناميكيا؟

شيء مثل:

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

Answer 3

chartobject..pivotlayout.pivottable.pivotfields ("اسم الحقل") .currentPage ="قيمة الحقل"

هذا من Excel 2003 ولكن أفترض أن 2002 سيكون مشابها