Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64704 Skopiuj do schowka Pętla przez elementy (pivot item) tabeli przestawnej - blad
Autor Wiadomość
pi3cho 
Exceloholic


Posty: 226
Wysłany: 09-04-2019, 21:25   Pętla przez elementy (pivot item) tabeli przestawnej - blad

Witam,
Z jakiegoś powodu nie jestem w stanie wyświetlić wartości elementów pola tabeli przestawnej dla jednej z dwóch kolumn ("Dane"). Dla kolumny "Nazwa" wszystko działa poprawnie. Czy może chodzić o numeryczny typ danych w polu "Dane"?

Kod:
Sub FilterPivotItems()

Dim PT          As PivotTable
Dim PTItm       As PivotItem

Set PT = ActiveSheet.PivotTables("pivot")

'Nie działa dla dane
'For Each PTItm In PT.PivotFields("Dane").PivotItems
'    Debug.Print PTItm.Value
'Next PTItm

'Działa dla Nazwa
For Each PTItm In PT.PivotFields("Nazwa").PivotItems
    Debug.Print PTItm.Value
Next PTItm


End Sub


Załączam skoroszyt.
Pozdrawiam

przyklad.xlsm
Pobierz Plik ściągnięto 8 raz(y) 18.07 KB

ID posta: 365753 Skopiuj do schowka
 
 
Tajan


Pomógł: 4311 razy
Posty: 9587
Wysłany: 09-04-2019, 21:32   

Niewłaściwy typ pola. Powinno być:
Kod:
For Each PTItm In PT.PageFields("Dane").PivotItems
    Debug.Print PTItm.Value
Next PTItm
ID posta: 365755 Skopiuj do schowka
 
 
pi3cho 
Exceloholic


Posty: 226
Wysłany: 09-04-2019, 21:45   

@Tajan
Bardzo dziękuję za pomoc. Oszczędziłeś mi mnóstwo nerwów ;-) Działa!
Przyznam, że nie do końca rozumiem takie działanie ponieważ w przypadku pola "Nazwa" bez względu gdzie je umieszczę (filtr czy pola wierszy) to zawsze kod działa poprawnie. Porównam PageFields z PivotFields, może coś mi się wyjaśni.
Jeszcze raz dziękuję!
ID posta: 365757 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe