Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #35988 Fferi50 Topikgazda Ptech #35981
    Új Válasz #35988
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Fferi50

    Topikgazda

    válasz Ptech #35981 üzenetére

    Szia!

    "az egyetlen baj, hogy nem minden pivotban 'Status' a PivotField neve, itt akadtam el igazából."

    Akkor nincs más lehetőséged, mint legalább egyszer végignézni "kézzel" a Pivottáblákat, hogy megállapíthasd, melyik Pivotfielddel kell dolgozni. Ezt beleteheted pl. feltételbe:
    Dim PTF as PivotField
    Select Case PT.Name
    Case "Elso"
    Set PTF = PT.Pivotfields("EZ")
    Case "Masodik"
    Set PTF = PT.Pivotfields("AZ")
    '.ide írod a többi lehetőséget
    '.
    End Select
    With PTF
    For Each PvI In .PivotItems
    Select Case PvI.Name
    Case "(blank)"
    PvI.Visible = False
    Case Else
    PvI.Visible = True
    End Select
    Next
    End With
    Esetleg listába teszed a PivotField neveket:
    Dim Nevek as String,PTF as Pivotfield
    Nevek="Elso,Masodik....."
    For Each PTF in PT.Pivotfields
    If Instr(Nevek,PTF.Name)>0 Then
    With PTF
    For Each PvI In .PivotItems
    Select Case PvI.Name
    Case "(blank)"
    PvI.Visible = False
    Case Else
    PvI.Visible = True
    End Select
    Next
    End With
    Exit For
    End If
    Next

    Persze ne feledkezz meg a külső ciklusról se.

    Üdv.

Új hozzászólás Aktív témák