Hej, mam pytanie, czy aby to makto zadziałało, to tabela przestawna musi już wcześniej być w tej drugiej zakładce? Coś mi się wysypuje... i nie wiem czemu:/
Problem przedstawiony jest odrobinę nieprecyzyjnie, ale z tego co rozumiem, chodzi o to, żeby nazwa kolumny mogła być wcześniej zdefiniowana w pivocie, owszem jest to możliwe, ale najlepiej byłoby to przedstawić na konkretnym przykładzie. Jeśli masz takowy to podeślij mi tabelę z tym problemem i może uda się go rozwiązać :)
A co jeśli mam kilka filtrów. Nagrane: With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("grupa") .Orientation = xlPageField .Position = 1 End With With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("stan_sprawy") .Orientation = xlPageField .Position = 1End With With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("przekaz") .Orientation = xlPageField .Position = 1 End With Jak opracować to optymalnie do pętli?
Dzieki za filmik. Jak powinien wygladac kod zeby wybieralo naglowek ktory zawiera dane slowo? np jest blad w kolumnie i zamiast slowa wartosc jest "wart" lub cos takiego? Istnieje sposob aby do pivot'a wrzucalo nam kolumne ktora zawiera jakies specyficzne slowo lub ciag znakow? np contains with ? pzdr
Bardzo dziękuje za ten film, jest świetny. Proszę o więcej. Jako początkujący użytkowani visual basica w exeleu brakuje mi podstawowych informacji i komendach. Mam też pewien problem, w ramach nauki przepisałam cale makro, ale u mnie ono niestety nie dziale :(. Wykrzacza się na komendzie Set WSD = Worksheets("Arkusz4") Set WSD = Worksheets("Arkusz1") Błąd zaznacza sie na żółto. Nie wiem dlaczego :( Prosze o pomoc, Ala
zatrzymałam się na kodzie, podświetla się pierwsza linia na żółto i nie idzie dalej, nie wiem co źle napisałam. Prosze o pomoc :) FinalRow = WSD2.Cells(Rows.Count, 1).End(xlUp).Row FinalCol = WSD2.Cells(1, Columns.Count). _ End(xlToLeft).Column
Proszę o pomoc, u mnie pojawia sie err 91 object variable or With block variable not set. Przy wierszu PT.AddFields RowFields:=Array("Towar"), ColumnFields:="Pracownik" Co robię źle?
Instrukcja bardzo mi się przydała ale miałem problem z którym borykają się też inni, zakres potrzebny do tabeli przestawnej miał prawie 80000 rekordów. poniższą linię Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,SourceData:=PRange) zastąpiłem poniższą i wszystko działało Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange.Address(External:=True))
W programowaniu niestety tak jest, że brak chociażby "przecinka" może wywołać błąd nie do przejścia :) W Twoim przypadku jest tu błąd przy definiowaniu zmiennych, powtarzają się one, muszą być różne, np WSD oraz WSD2, tak bodajrze było w przedstawionym kodzie. Jeżeli są takie same Excel głupieje, nei wie czy ma się odwołac do Arkusz4 czy Arkusz1. Pozdrawiam :)
Witam serdecznie. Mam ogromny problem i wiem ze sam sobie z nim nie poradze. Mianowicie.. Musze przygotować takie makro gdzie bedzie mi zaczytywać wszystkie pliki ( z podanego folderu) z koncówka .par i wyszukiwać mi w nich ścieżek z koncówka .dxf i wyrzucać mi ich lokalizacje w oddzielnym arkuszu. Czyli: Mam w exelu okno i wprowadzam w nim nazwe kokretnego dxf np. w156-01.dxf i wybieram katalogi w ktorych znajdują się pliki .par ( jest ich wiele) i on zaczytuje mi wszystkie .par iSzukaTegoDxf?
nie zmiescilem sie do konca.. I on przegląga te wszystkie .par (po kolei.. zaczytuje jak jest to podaje scieżke w innym arkuszu pozniej wyl i szuka w nastepnym) i tak dalej az nie przelci wszystkich. czy jest to możliwe? bardzo prosze o pomoc bo strasznie na takim makro by mi zależalo. Pozdrawiam
a jak to samo zrobić na bazie zero jedynkowej tz mam 150 ankiet i przykładowo chcę zrobić zależność płci wieku wykształcenia i kosztów utrzymania. czyli mam nagłówki wiek i pod nim 5 przedziałów, płeć i 2 przedziały, wykształcenie 5 przedziałów i koszty 7 przedziałów. Teraz ankieta nr 1 ma zera i jedynki w przedziałach. Jedynka oznacza że ta osoba to facet zero że nie i ta osoba ma np wiek przedział 3 z 5 występujących i tam jest 1 a wszędzie zera. . Następna osoba inaczej itd Chcę ZrobićJakTy
Hej, mam pytanie, czy aby to makto zadziałało, to tabela przestawna musi już wcześniej być w tej drugiej zakładce? Coś mi się wysypuje... i nie wiem czemu:/
Problem przedstawiony jest odrobinę nieprecyzyjnie, ale z tego co rozumiem, chodzi o to, żeby nazwa kolumny mogła być wcześniej zdefiniowana w pivocie, owszem jest to możliwe, ale najlepiej byłoby to przedstawić na konkretnym przykładzie. Jeśli masz takowy to podeślij mi tabelę z tym problemem i może uda się go rozwiązać :)
A co jeśli mam kilka filtrów. Nagrane:
With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("grupa")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("stan_sprawy")
.Orientation = xlPageField
.Position = 1End With
With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("przekaz")
.Orientation = xlPageField
.Position = 1
End With
Jak opracować to optymalnie do pętli?
Dzieki za filmik. Jak powinien wygladac kod zeby wybieralo naglowek ktory zawiera dane slowo? np jest blad w kolumnie i zamiast slowa wartosc jest "wart" lub cos takiego? Istnieje sposob aby do pivot'a wrzucalo nam kolumne ktora zawiera jakies specyficzne slowo lub ciag znakow? np contains with ? pzdr
Bardzo dziękuje za ten film, jest świetny. Proszę o więcej. Jako początkujący użytkowani visual basica w exeleu brakuje mi podstawowych informacji i komendach.
Mam też pewien problem, w ramach nauki przepisałam cale makro, ale u mnie ono niestety nie dziale :(.
Wykrzacza się na komendzie Set WSD = Worksheets("Arkusz4")
Set WSD = Worksheets("Arkusz1")
Błąd zaznacza sie na żółto. Nie wiem dlaczego :(
Prosze o pomoc,
Ala
zatrzymałam się na kodzie, podświetla się pierwsza linia na żółto i nie idzie dalej, nie wiem co źle napisałam. Prosze o pomoc :)
FinalRow = WSD2.Cells(Rows.Count, 1).End(xlUp).Row
FinalCol = WSD2.Cells(1, Columns.Count). _
End(xlToLeft).Column
Proszę o pomoc, u mnie pojawia sie err 91 object variable or With block variable not set. Przy wierszu
PT.AddFields RowFields:=Array("Towar"), ColumnFields:="Pracownik"
Co robię źle?
Co zrobić gdy operujemy nie na zakresie tylko na tabeli? Mi rejestrowane makra wysypują się na sortowaniu wierszy tabeli.
Instrukcja bardzo mi się przydała ale miałem problem z którym borykają się też inni, zakres potrzebny do tabeli przestawnej miał prawie 80000 rekordów.
poniższą linię
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,SourceData:=PRange)
zastąpiłem poniższą i wszystko działało
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange.Address(External:=True))
PT.AddFields RowFields:=Array("Towar"), ColumnFields:="Pracownik" error 1004 i cóż teraz???
W programowaniu niestety tak jest, że brak chociażby "przecinka" może wywołać błąd nie do przejścia :) W Twoim przypadku jest tu błąd przy definiowaniu zmiennych, powtarzają się one, muszą być różne, np WSD oraz WSD2, tak bodajrze było w przedstawionym kodzie. Jeżeli są takie same Excel głupieje, nei wie czy ma się odwołac do Arkusz4 czy Arkusz1. Pozdrawiam :)
Prosze o pomoc, wysypal mi sie kod blad 1004 w trakcie określania zakresu danych wpisalem FinalRow = WSD2.Cells(Rows.Count, 1).End(x1Up) .Row
.End(xlUp).Row !
Witam serdecznie. Mam ogromny problem i wiem ze sam sobie z nim nie poradze. Mianowicie.. Musze przygotować takie makro gdzie bedzie mi zaczytywać wszystkie pliki ( z podanego folderu) z koncówka .par i wyszukiwać mi w nich ścieżek z koncówka .dxf i wyrzucać mi ich lokalizacje w oddzielnym arkuszu. Czyli:
Mam w exelu okno i wprowadzam w nim nazwe kokretnego dxf np. w156-01.dxf i wybieram katalogi w ktorych znajdują się pliki .par ( jest ich wiele) i on zaczytuje mi wszystkie .par iSzukaTegoDxf?
nie zmiescilem sie do konca.. I on przegląga te wszystkie .par (po kolei.. zaczytuje jak jest to podaje scieżke w innym arkuszu pozniej wyl i szuka w nastepnym) i tak dalej az nie przelci wszystkich. czy jest to możliwe? bardzo prosze o pomoc bo strasznie na takim makro by mi zależalo. Pozdrawiam
Hey, to "coś tam" jest w tym wypadku dość istotne :) Jeżeli mam spróbować ci pomóc wrzuć cały kod. Pozdrawiam :)
Jak nie zaznaczysz zakresu tylko całe kolumny to taka akcja z przestawną spokojnie obejdzie się bez VBA :)
a jak to samo zrobić na bazie zero jedynkowej tz mam 150 ankiet i przykładowo chcę zrobić zależność płci wieku wykształcenia i kosztów utrzymania. czyli mam nagłówki wiek i pod nim 5 przedziałów, płeć i 2 przedziały, wykształcenie 5 przedziałów i koszty 7 przedziałów. Teraz ankieta nr 1 ma zera i jedynki w przedziałach. Jedynka oznacza że ta osoba to facet zero że nie i ta osoba ma np wiek przedział 3 z 5 występujących i tam jest 1 a wszędzie zera. . Następna osoba inaczej itd Chcę ZrobićJakTy
FinalRow = WSDA.Cells(Row.Count, 1).End(x1Up).Row pokazuje mi się na żółto i nie wiem co robić
Ciekawy temat ale przy 16'47" zasnąłem... Pamiętam tylko słowa "...jeżeli nawet nie rozumiecie to w sumie nie jest problem..." ;P
Pomysl fajny ale przedstawiasz to kiepsko.
Nic nie mowisz co jest co tylko lecisz jak sie nauczyles.
Nie wiadomo o co cho.
Wg mnie jest ok. Fakt trzeba mieć podstawy ale zaczynać naukę VBA od tabel przestawnych to lekka przesada