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

• #35988 Fferi50 Topikgazda Ptech #35981

  Új Válasz 2017-08-16 22:50:36 #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