Koleżanka pisała o odświeżeniu wszystkich tabel w całym skoroszycie, więc makro będzie wyglądało tak: [syntax=vb]Sub Pivot_Refresh() Dim oSh As Excel.Worksheet Dim pvtTbl As PivotTable For Each oSh In ActiveWorkbook.Worksheets For Each pvtTbl In oSh.PivotTables pvtTbl.RefreshTable Next Next End Sub[/syntax]
Może tabele przestawne (pivot table)? https://obrazki.elektroda.pl/1818541700_...
Witaj W kodzie Arkusz1 [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("C2").CurrentRegion) Is Nothing Then r = Cells(Rows.Count, 3).End(xlUp).Row For i = 1 To 2 With Sheets(i).PivotTables(1) .SourceData = "Arkusz1!R2C3:R" & r & "C7" .RefreshTable End With Next End If End Sub [/syntax]
Witam mam identycznie zbudowane tabele przestawne oparte o tę samą tabelę danych. Znajdują się na dwóch oddzielnych arkuszach. Różnią się tylko informacjami dotyczącymi wyników. Czy mozna zrobić makro , które umożliwi zarejestrowanie kazdej akcji (np.wyboru ) na jednej tabeli i dokona tej samej akcji na drugiej tabeli. pzdr. moze najpierw zrobic to...
Tak to u mnie wygląda. http://obrazki.elektroda.pl/5307278000_1... Nie widzę opcji "zrodlo tabeli/zakres danych". F9 też w tabelach nie działa. Liczyłem że jest może jakaś funkcja/opcja która pokazuje skąd się biorą dane w tabeli.
Nie bardzo zrozumiałem, czy to "Stand by" ma być na pracownika razem, czy też z podziałem na zmiany? Jeśli z podziałem na zmiany, to jest to analogiczne do "TAK", a jeśli bez podziału na zmiany, to pominąć ten warunek. Proponuję formułę: [syntax=text]=LICZ.WARUNKI(INDEKS($B$3:$...
Witam To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)
Ustaw format liczb dla pola tabeli przestawnej, a nie z poziomu formatowania komórek. Dwukrotne kliknięcie w tabeli na nazwę pola powinno wyświetlić okno "Ustawienie wartości pola" tam też wybiera się funkcje podsumowującą. W tym oknie jest przycisk "Format liczby".
Jeżeli [syntax=vb]OstSpend = Cells(Rows.Count, 6).End(xlUp).Row[/syntax] dałeś na początku kodu to na tą chwile kolumna 6 (F) jest pusta
Skąd mamy wiedzieć w jakim formacie są dane przed wykonaniem makra !? Naprawdę tak trudno dołączyć plik Excela ? W makrze zamieniasz zaznaczone dane na format liczbowy z separatorem tysięcy i dwoma znakami po przecinku, próbowałaś to wyłączyć ? Na zrzucie widać, że kolumna "Data zamówienia" zawiera wartości daty ale w formacie liczbowym, nie wystarczy...
Jeżeli działasz na tym pliku, to zmień wszystkie wystąpienia Arkusz5 na Arkusz4. Po tak "wylewnym" opisie problemu ciężko coś więcej powiedzieć... :]
jakbyś tylko to zrobił na odwrót to bym był więcej niż szczęśliwy :) O rety ;) Dla mnie "raport", to (z definicji) arkusz wynikowy. Wygląda to jakby na próbę odwrócenia tabeli przestawnej. Trochę karkołomne zadanie na formuły. Dla 4-ech indeksów, będzie miała długość z półtora metra :) Zobacz same nagłówki w załączniku (pewnie jeszcze do poprawki),...
racja - opcja zliczania jest opcją default! robig - szacun za czujność :D
[syntax=vbscript]With PT2.PivotFields("TEAM") .Orientation = xlRowField On Error Resume Next .PivotItems("1").Visible = True[/syntax]
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$7" Then r = Year(Target) m = Month(Target) d = Day(Target) Data = CDate(r & "-" & m & "-" & d) ActiveSheet.PivotTables("wazenie").Pivot... = r & "/" & m & "/" & d End If d = Format(Data, "dd.mm") ActiveSheet.ChartObjects("Wykres 1").Activate...
Lub [syntax=vbnet]With Columns("AE") .Cells = Application.Trim(.Cells) End With[/syntax]
w którym miejscu w kodzie jest błąd i co należałoby poprawić? Błędów chyba jest kilka :cry: Proponuję zmienić linię 20 kodu na [syntax=vbscript]Set PRange = WSD2.Cells(1, 1).Resize(OstW, OstK)[/syntax] Usunąć wszystkie błędy "literowe" typu "x1" zamiast "xl", oraz wprowadzić w makro dokładne nazwy pól tabeli ( nie "kwota_ustalen" jeśli stosowany jest...
Podstaw pod argument Source - jest typu string... 1. znajdź ostatni wiersz i przypisz do zmiennej: ostW =Range("A" & rows.count).end(xlup).row jeśli nie ma nic "pod spodem" lub ostW =Range("A3").end(xldown).row jeśli kolumna A jest zawsze pełna. Jeśli nie, wybierz inną - pełną (bez dziur) 2. podstaw zmienną do string'a ... SourceData:= _ "Arkusz1!R4C1:R"...
Nie chodzi mi o zwykłą tabelę przestawną tylko o tabelę zawierającą kilka arkuszy. W moim excelu przy wstawianiu jest tylko tabela przestawna, polecane tabele przestawne i zwykłe tabele.
Cześć. Prośba o wsparcie w rozwiązaniu poniższego problemu. Mam kod do dzielenia na pliki (zapożyczony gdzieś z sieci). Do tej pory spaniał w 100% moje oczekiwania, ale teraz potrzebuję dodatkowej funkcjonalności. Makro zapisuje każdy arkusz jako odrębny plik za wyjątkiem trzech wykluczonych prze ze mnie. Pierwszy to plik z danymi źródłowymi. Dwa kolejne...
Zamknęłam tamto zadanie a mam jeszcze 3 pytania extra do makra, które stworzył (at)prl . Post dokleiłem do wczesniejszego wątku i odblokowałem go. W przypadku chęci kontynuowania zamkniętego wątku zawsze można zgłosić go do moderacji (raportując którykolwiek z postów w nim) z prośbą o ponowne otwarcie. 1. Makro dzieli skoroszyt na osobne skoroszyty...
Witam Wszystkich Mam problem z linkiem combo boxa z tabelą przestawną olap Przyład: Dim ph As String ph = Range("c1").Value ActiveSheet.PivotTables("Tabela przestawna1").PivotFields( _ "[Nazwa handlowca].[Nazwa handlowca]").CurrentPageName = _ "[Nazwa handlowca].[All Logo H].[Avita]" Makro działa z developera ale na podstawie sztywnego wpisu z listy...
Po kliknięciu komórki np. C16 ma się utworzyć arkusz o tej nazwie tj. "C16"? Czy raczej arkusz z nazwą projektu? Jeżeli to drugie, to zamiast używać tabeli przestawnej proponuje: 1. utworzyć arkusz z polem/formantem kombi dla którego źródłem danych będzie pole (kolumna) "nazwa" z arkusza Dane. Po wybraniu elementu z listy zwraca się pozycję tego elementu...
To wręcz prosi się o tabele przestawną Przecież dokładnie tabelę przestawną zaproponowalem - dodatkowo dołączyłem screeny jak to zrobić w DARMOWYM pakiecie LibreOffice.
Witam, nie jestem w stanie znaleźć przyczyny nieoczekiwanego działania makra. Plik w załączeniu. W zakładce Summary sa 4 tabele przestawne ciągnące dane z dwóch zakładek i prezentujące dwa pivot itemsy dla każdej z zakładek: Bad goods i alert. Generalnie każda z tabel ma pokazać wszystkie wartości za wyjątkiem kilku, oraz pokazać je po odpowiednim posortowaniu....
Ale po co tak kombinować? Od tego są tabele przestawne ;)
Tabele przestawne to też fajna opcja. Wykorzystałem jednak poprzednią propozycję - jakaś taka bardziej intuicyjna. Dziękuję Wszystkim za zainteresowanie.
Oczywiście, że jest i nazywa się tabela przestawna. Możesz pogrupować wydatki według nazwy kategorii, albo dowolnie inaczej i numery wierszy ani kolumn nie mają wielkiego znaczenia. Tabela przestawna daje wiele możliwości. Zachęcam do poczytania. :)
Hm.... a to nie będzie dokładnie to samo? Przecież wykres przestawny to graficzne odzwierciedlenie tabeli przestawnej. Wystarczy ukryć listę pól w tabeli przestawnej a na wykresie też jej nie będzie.
Oczywiście wszystko w VBA można, ale filtry to takie proste "oszustwo" w gołym Excelu, żeby szybko uzyskać założony efekt. W VBA są tak samo wydajne sposoby zrobienia tego "po ludzku". Osobiście tak wolę, choć i tabele przestawne (też podobne "oszustwo") sterowane kodem VBA stosuję, ale tylko, gdy wiem że zadanie nie będzie dalej rozwijane. Programowanie...
Wykorzystaj tabelę przestawną. A jeżeli funkcją to suma.warunków()
Jak wskazują autorzy Offica [url=https://support.office.com/pl-pl/ar... funkcja ta ma niestety poważne ograniczenia m.innymi tabele przestawne :cry: Widzę, że masz nowszego Offica - możesz zweryfikować tam nowy mechanizm...
nie widze zeby sie gdzies zapisywaly Nie znam konfiguracji Twego komputera, więc do testów wprowadzony jest na stałe katalog "C:\Temp" - tam sprawdź czy są Twoje skoroszyty dla wszystkich oddziałów. :D Dodano po 19 makro ktore podeslales nie uwzglednia daty kontrolingowej czyli robi zrzytke wynikow z kilku miesiecy. Wiec musialabym miec opcje wybrania...
Tabele przestawne były już w Excelu 97 (z wcześniejszymi wersjami nie miałem styczności), Fuzzy Lookup jest zewnętrznym dodatkiem, który trzeba sobie doinstalować. ;)
tabela przestawna będzie dla mnie pewnie najtrudniejsza Bez przesady. Zaznaczasz zakres, klikasz wstawianie - tabela przestawna, zaznaczasz pola, które chcesz dodać do raportu i gotowe. Potem to już kosmetyka.
Tabele przestawne trzeba najpierw znać i umiec stosować. :D Jakoś .... chyba jestem szczęśliwy, że nie umiem.
księgowa ma taki skoroszyt tylko że wypełniony, zapewne ktoś robił to ręcznie, ja nie chciałem już robić czegoś innego skoro pracowała przez lata w taki sposób, arkusze faktycznie istnieją i można je zrobić szybko przez tabele przestawne juz ogarnołem, kutools rozwiązał wszystko
A może jednak lepiej zrobić tabelę przestawną, która automatycznie wykona agregację i sumę tych samych kodów.
pofiltrować i posortować to umiem ;) na razie mam dwie tabele przestawne w jednej min w drugiej max stad pobieram daty ale zależy mi na tym aby to zrobić makrem wie ktoś może jak to ugryźć?
Nie dałeś przykładu i nie wiadomo jaka jest struktura tabel. Ogólnie do wydruku stosuje się filtrowanie z np. ukrywaniem kolumn lub tworzy się dodatkową tablę - tylko do wydruku tych samych danych - dla różnych kryteriów np. nazwisk. Korzystając z listw rozwijalnych oraz wyszukaj.pionowo() można wyszukać z wielu tabel dane, dotyczące np. tych samych...
Tabela przestawna - wersja dla E'2003.
Tabele przestawne to ja umiem zrobić. Tutaj muszę zastosować filtrowanie zaawansowane najwyraźniej, ponieważ muszę potem mieć dane do wykorzystania (trzeba na ich podstawie zrobić wykres). Ktoś pomoże?
Zwracam się z prośbą o stworzenie makra, bądź doradzenie innego rozwiązanie Jeśli chciałbyś wykorzystać do zestawienia danych tabelę przestawną :idea: np. tak jak na zrzucie 1075895 to możesz wykorzystać makro VBA do automatycznego (uruchamianie klawiszami ctrl+o) tworzenia aktualnej tabeli przestawnej :spoko: 1075898
Sorry. Z listy poleceń trzeba wybrać 'Kreator tabeli przestawnej i wykresu przestawnego'.
A nie wystarczy zwykła tabela przestawna? Jest tam i filtrowanie i możliwość zliczania wartości. Dowolnych nie tylko liczb. Po posortowaniu może być np. w pierwszym wierszu.
W takim razie tabela przestawna a źródłem niech będzie lista
Jeżeli robisz analizy i obliczenia - to naprawdę Tabele przestawne są czymś bardzo pomocnym, rzekłbym podstawowym - narzędziem. Do tego odpowiednio przygotowana baza (SQL najlepiej, ale MsAccess wystarczy). Swego czasu rozliczałem kilkaset mieszkań (Woda, CO) tymi narzędziami, oraz robiłem analizy z programu FK dla głównej księgowej. Waaarto poznać...
Filtrowanie w poziomie nie jest łatwym tematem w Excelu. Idealnie do tego nadawałby się układ gdyby wszystkie dane dostawy zawrzeć w jednym wierszu. Prezentowanie później tego nawet w takiej formie, że w kolumnie znajdą się daty będzie zdecydowanie prostsze np. wykorzystując tabelę przestawną.
Tabela przestawna - zrobisz w pół minutki, albo mniej. Sumę, średnią czy co tam chcesz...
To zamiast programowania w VB polecam tabele przestawne. Sam osobiście w pracy popełniłem taką tabelę dla zliczania czasu pracy pracowników na podstawie generowanego codziennie pliku CSV z urządzeń do "odbijania" kart. W Excelu dodaje się źródło w osobnym pliku i dodatkowo, wybieramy opcję aktualizacji danych ze źródła podczas otwierania naszego zestawienia...
tabele przestawne excel excel tabele przestawne sterowanie przestawne
scania poziomować przesyłanie danych procesora ipconfig restart routera
Potencjometr prądu spawania Magnum 200 – typ, objawy awarii, wymiana Ugięty wał korbowy w pile spalinowej – przyczyny, diagnostyka i naprawa Husqvarna, Stihl