Cześć, Czy ktoś może zna metodę ukrywania listy pól dla wykresu przestawnego kodem VBA W tabeli przestawnej to jest proste: Worksheets("blabla").PivotTables(1).Enab... = False Czy istnieje coś podobnego dla PicotChartFields? Dodam tylko, że nie chodzi o ActiveWorkbook.ShowPivotTableFieldList = True Z góry dziękuję za pomoc. Dodano po 4 Jedyne...
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]
Jakie są możliwości, aby przy tworzeniu pivotki value pokazywało tekst zamiast wartości matematycznych.
Cześć, nie jestem biegła w pisaniu makr ale przeglądając m.in. to forum udało mi się stworzyć kod, który do tej pory działał bez zarzutu (mam na myśli rok 2019),a teraz się wywaliło, a żadnych zmian w kodzie nie robiłam. Mój problem polega na tym, że przestało działać polecenie "Workbooks(2).Activate" i nie bardzo rozumiem co się stało. Poniżej wklejam...
Miałem na myśli coś takiego [syntax=vb]Sub PobierzKurs() Dim wb As Workbook Dim wkCel As Worksheet Dim kolumna As Integer Dim xlApp As New Excel.Application Dim Dane As String Dim b1 As Long If bWylacz Then bWylacz = False: Exit Sub Call Pivot_Refresh Application.ScreenUpdating = False '<<< nie może być przed Exit Sub Set wkCel = ThisWorkbook.ActiveSheet...
ok dzięki ale na wykresie pivot nadal mam 5-2012, 3-2011 itd ponadto jak posortować datami od najnowszej na wykresie?
Spróbuj to [syntax=vb] Sub Porzadkuj() x = InputBox("Podaj datu", "Data przyporziadkowania", Date) If Not IsDate(x) Then Exit Sub x = DateValue(x) Dim nazwy As Range, d As Range With Sheets("pivot") Set nazwy = .Rows(3) Set d = .Cells.Find(x, LookIn:=xlValues) If d Is Nothing Then Exit Sub Set d = d.EntireRow.Cells For Each sh In ThisWorkbook.Sheets...
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....
Witam. Zrobiłem nagrałem makro które automatycznie odświeża 3 tabele (co 5 minut). Chciałem dodać możliwość włączenia i wyłączenia na podstawie wartości komórki. Wynik: Sub start() If (Range("AC11") = "TAK") Then Application.OnTime Now + TimeValue("00:05:00&quo... "button3"...
Witam. Czy jest możliść zignorowania błędu w makro w Excelu, w przypadku jeśli makro odświeża tabele która np. nie istnieje. Wystakuje wtedy okienko z błędem, można to ominąć i przejść do kolejnej komendy? Przykład: Sub refresh() ActiveSheet.PivotTables("Tabela przestawna5").PivotCache.refres... ActiveSheet.PivotTables("Tabela...
czyli aby bylo 21111 10 aaa 5 bbb 3 ccc 2. Nie wiem czy takie cos jest mozliwe Hmmm, teraz już będzie trudniej ;) Na szczęście Excel i VBA oferują coś a'la tabelki przestawne. Zmień zapytanie SQL na Sql = "TRANSFORM [SIGN] & "" "" & Sum([hours]) " & _ "SELECT [Activity],...
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...
Zauważ, że arkusz niue nazywa się "mm.dd.yyyy" tylko ma konkretną datę jako nazwę więc lepiej w ten sposób: select.end ale tak też można. I druga rzecz. Ta funkcja też ma pewien błąd. Trzeba podać datę początku i datę końca. Nie wiem co chciałeś osiągnąć chyba że jakimś kodem którego akurat ja nie stosuje/nie znam. [syntax=vb] Range("H2").FormulaR1C1...
Po prostu przećwicz sam. :please: Mam akurat wiele innych ciekawszych rzeczy do przećwiczenia :D niż zajmować się zgaduj-zgadulą: co Ty albo Excel wykonuje nieprawidłowo :cry: Nie wyjaśniłeś nawet źródła pochodzenia Twoich danych :cry: O ile znam się na Excelu - to Power Query jest tylko narzędziem przekształceń danych, a nie jest samoistnym źródłem...
Numer filtrowanego miesiąca wprowadza się w komórce B1 [syntax=vb]Sub PVFIELDS_MONTH() Dim oPvtItem As PivotItems Dim iFltr As Integer iFltr = Cells(1, 2).Value Set oPvtItem = ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("Okres").Pivot... 'wyczyszczenie filtra For Each pvt In oPvtItem pvt.Visible = True Next 'wyświetlenie żądanego miesiąca...
Witam, Panowie mam problem. Przy użyciu rejestrowania makra, zarejestrowałem swoją operację, dla konkretnego pliku. Chciałbym ją codziennie używać, jednakże z każdym nowym dniem zmienia się nazwa samego pliku. Czy jest możliwość by poniższy kod działał bez względu na zmieniający się nazwę pliku ? Wyczytałem, że można by było zastosować "ActiveWorkbook.Name",...
W Excelu 2016 na lokalnym dysku wszystko działa z tym xls :!: :D Faktycznie w wersjach wcześniejszych trzeba zmienić ten fragment kodu (zacinający się :cry: ) na [syntax=vbscript]ActiveSheet.PivotTables... przestawna1").ChangePivotCache ActiveWorkbook. _ PivotCaches.Create(SourceType:=xlDatabas... SourceData:= _ "'" & Mypath & "\[" & Wbname & "]"...
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 ;-)
(at)ElektrodaBot dzień dobry, wklejam kod, który dodaje "Tydzień" do tabeli przestawne przy nacisnieciu activex, ale po ponownym naciśnięciu nie usuwa i nie wiem dlaczego. Tydzień to kolumna: [syntax=vbscript]Sub Ukryj_tygodnie_przycisk() Dim pt As PivotTable Dim pf As PivotField Dim pfName As String ' Wskaż tabelę przestawną, którą chcesz zmodyfikować...
Cześć Potrzebuje mieć zrobione makro które z folderu w którym są pliki csv. Jak w zakładce BUF_1111F01111_.... pobierze je po kolei wczyta, zrobi tabele przestawną jak w zakładce pivot table a następnie wklei w odpowiednie pola w zakładce customer report z zachowaniem formuły jeżeli w kolumnie M. Następnie zapisze się jako plik .xlsx usuwając formuły...
Witam, próbowałem rozpisać kod na generowanie tabel przestawnych w Excelu (zależy mi na automatyzacji mojej pracy), który wygląda następująco : Sub GenerujTP() If NienormalnyArkusz Then Exit Sub If NienormalneOkno Then Exit Sub If BrakZakresu Then Exit Sub If JestTP Then Exit Sub Dim zakres As Range Set zakres = ActiveCell.CurrentRegion Dim SkorTP As...
Akurat w tym pliku te rozwiązanie nie przejdzie - tabele tworzą się z modelu danych power pivot i dodanie takiej kolumny poza zakresem rozwala inne formuły. Ewentualnym rozwiązaniem (przy niemożności ustawienia samego filtra) byłoby uzależnienie go od komórek poza tabelą. Ale tego też nie potrafię zrobić.
Witam! Problem mój polega na błędnym funkcjonowaniu poniższego makra, a mianowicie: - z niewiadomych przyczyn "przeciąganie" funkcji (...Range("D2:D" & OstSpend)...) działa prawidłowo dopiero przy dwukrotnym uruchomieniu makra, - potem mam problem z tabelą przestawną - może błąd wynika z powyższego problemu, dlatego na chwilę obecną tabelę oznaczyłem...
Witam, Mam wykres który pobiera dane z tabeli przestawnej. Niestety gdy jakieś dane z tabeli usuną a następnie dodam nowe, wykres przesuwa mi się do góry i nachodzi na tekst. Czy można go jakoś zablokować za pomocą kodu aby zawsze był w tym samym miejscu? Myślę że w grę wchodzi modyfikacja tego kodu: [syntax=vbscript]Sub diagnoza_analiza_ustaw_rok()...
Cześć! Natrafiłem na pewien problem i szukam prostego rozwiązania! Sytuacja jest taka, że codziennie rano pewien program generuje plik w formacie "Text (Tab delimited) (*.txt)", ale zapisuje go jako *.xls. Plik otwiera się bez problemów, tylko z informacją, że ma inne rozszerzenie, niż .xls. Te dane chce sciągnąc do innego pliku, żeby na nich pracować...
Chyba najprostszym sposobem na wykonanie tego zadania jest utworzenie tabeli przestawnej (załącznik, arkusz Pivot). Jeśli tabela z danymi jest uzupełniana na bieżąco i rozrasta się, to dobrym pomysłem jest utworzenie z niej obiektu tabela (zaznaczyć ją i wybrać CTRL+T lub CTRL+L) dzięki temu po dodaniu nowych wierszy zakres danych dla tabeli przestawnej...
Witam, Chciałabym aby makro dla konkretnych nazw z pierwszej kolumny kolorowało cały wiersz tabeli przestawnej. Dla przykładu nazwa "ABC".O ile nazwa pojawia się w pierwszej kolumnie wszystko działa dobrze, ale gdy nie ma takiego wiersza pojawia się błąd. Jak mam poprawić makro tak aby nie pojawił się błąd tylko w razie braku nazwy "ABC" makro przeszło...
Witam. Mam problem jeśli chodzi o sortowanie godzin w excelu. Jestem początkowym użytkownikiem i proszę mi wierzyć, że przed założeniem tego tematu przegrzebalam pół internetu w poszukiwania pomocy zarówno w języku polskim i angielskim. Postaram się jak najlepiej opisać mój problem. Otóż pobieram dane ze strony "export as csv". Data występuje tam w...
Spróbuj odwoływać się do tabel w takiej postaci: W związku z tym, że każda baza to inna firma, a ja chciałbym zagregować te dane (połączyć) i razem je analizować. Jakbym połączył je i miał w jednej tabeli/widoku to mógłbym je sobie już dowolnie analizować. No nie tak dowolnie. Z pewnością są tam jakieś klucze obce. W widoku się to nie utrzyma, więc...
Hey; rozwiązanie problemu (trochę późno, ale lepiej późno jak w cale): "Generując tabelę przestawną z poziomu kodu pod Excelem 2003 można było jako argumentu Source metody tworzącej PivotCache podać dowolny poprawnie zdefiniowany obiekt Range, np CurrentRegion lub UsedRange. Podobnie rzecz ma się pod Excelem 2007/2010 (pamiętajmy tylko o użyciu metody...
Witam Mam za zadanie napisać kod do automatycznego tworzenia tabeli przestawne w VBA. To udało się bardzo łatwo... Jednak problem pojawił się w momencie dodania opcji uzupełnienia tabeli źródłowej o dane z innego arkusza. W momencie tworzenia tabeli wyskakuje błąd VBA6.dll dla office'a 2007. bez tego kod kompiluje się normalnie PT.AddFields RowFields:=Array("Użytkownik"),...
Dokładnie, też bym wolał, aby było możliwe napisanie makra w excelu z kwerendą SQL która by już przygotowała dane dla pivottable... jest prościej, ale jeśli nie można to trzeba kombinować z danymi zastanymi i z nich zbudować informacje ;) Poczekajmy aż autor wątku się odezwie.
Witam Jaki LCD 17'' polecilibyście z dosyć dobrą matrycą? Główne zastosowania to internet,duuużo prac biurowych (Word, Excel itp) oraz oglądanie filmów. Zależy mi na tym aby zminimalizować ryzyko pojawienia się martwych pikseli na ekranie (ew. jakaś "dłuższa" gwarancja na matrycę bo monitorek często pracuje po ok 9 godz. dziennie jak przyjdzie coś zrobić...
Próbuje dodać wskazane przez Ciebie elementy do kodu, ale nie do końca mi sięudaje. Kod obecnie wygląda tak: [syntax=vbscript]Sub OdswiezanieDanych() Dim Zrodlo As Variant Dim Nazwapliku As String Dim Skoroszyt As Worksheet Dim Tabela As PivotTable Zrodlo = Application.GetOpenFilename(FileFilter:=... Excel Workbooks, *.xls; *.xlsx; *.xlsm", Title:="Open...
wracając do powyższego, chciałbym zrobić tak że jak znajdzie się wpis np "KV" w kolumnie B:B to odwoła się do konkretnej komórki. Wstępna ocena dostępnych informacji Użytkownik pragnie rozszerzyć istniejącą formułę Excel, aby w przypadku znalezienia wpisu "KV" w kolumnie B:B , formuła odwoływała się do konkretnej komórki. Aktualnie korzysta...
Witam, W pracy wyciągam raport w Excelu zawierający 35 kolumn (A-AI) i zmienną liczbę wierszy. Stworzyłam plik w Excelu do analizy tych danych, tak więc jedna zakładka zawiera wklejone dane a kilka innych tabele i wykresy przestawne zrobione na ich podstawie. Ponieważ nie wszystkie kolumny z raportu są mi potrzebne, stworzyłam makro które: -usuwa duplikaty...
Witam, Mam problem - otóż próbuję stworzyć makro które wykonuje mi tabelę i wykres przestawny dla zmiennych danych źródłowych które znajdują się w innym arkuszu. W innym arkuszu mają być generowane wykresy przestawne - jeden po drugim. Jeden wykres przestawny mi się generuje ale teraz poszukuję kodu który automatycznie wynajdzie mi powiedzmy 5 wolną...
Ok, niestety pliku żródłowego nie mam aktualnie przy sobie jednak postaram się to dobrze wytłumaczyć. Mamy tabele gdzie mamy kolumny : firma, projekt (job), status projektu (otwarty, zamknięty). Potrzebuję makra które przeniesie mi tylko te wiersze i te projekty które mają pozycje otwartą lub pozycje otwartą i zamknięta naraz. Projekty, które mają pozycje...
Cześć! Jestem tu nowy, i to mój pierwszy post, ale zacznę z grubej rury, mam nadzieję, że ktoś będzie mi w stanie pomóc. Mam taki problem ze stworzeniem makra w Excelu (2010) poprzez VBA. Potrzebuję zrobić makro, i podpisać je pod przycisk (formant ActiveX). Makro ma za zadanie brać wartość z tabeli przestawnej, i w zależności od wartości kolorować...
Przetestuj poniższy kod: [syntax=vb]Sub Rozdziel_Pivota() Dim pvTbl As PivotTable Dim pvFld As PivotField Dim pvItm As PivotItem Dim shArkPvTbl As Excel.Worksheet Dim shArkList As Excel.Worksheet Dim lLstRwList& Dim rngList As Excel.Range Dim rngCp As Excel.Range Dim wbkDest As Excel.Workbook Dim shDest As Excel.Worksheet Dim sItem$ Dim oWSShell As...
Wydzielono z Witam serdecznie wszystkich użytkowników forum. Założyłem dziś konto na elektrodzie i mam do Was WIELKĄ prośbę, więc pozwoliłem sobie odkopać ten temat. Zaproponowane w wątku makro działa super, więc bardzo dziękuję twórcy. Chciałbym je jednak wzbogacić o dodatkową funkcjonalność. Chodzi o to by przy okazji odświeżania tabel przestawnych...
Hej, Próbowałam na własną rękę rozwiązać swój problem, ale nie jestem biegła w VBA i nie jestem w stanie nic mądrego wymyślić, więc pomyślałam, że może dla kogoś z Was jest to bułka z masłem? Ogólnie jest to projekt zaliczeniowy na studia z obsługi VBA. Utworzyłam plik z danymi. Na ich podstawie zrobiłam makro, które tworzy tabelę przestawną według...
Witam. Próbuję użyć odwołania do komórki w innym makro i już mi to nie działa. Próbuję zrobić makro które w tabeli przestawnej,wybierze mi z całej listy tylko jedną datę, data znajduje się w komórce M8. Myślę że to najlepszy sposób. Ale nie działa odwołanie do M8 Sub Makro1() Makro1 Makro With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields(&...
Czołem, Przyda mi się pomoc w przebudowaniu makra jakie posiadam. W chwili obecnej mam makro, które drukuje mi wszystkie dokumenty per filtr w raportu. Potrzebuje zamienić opcję drukowania na: 1)Otwarcie szablonu prezentacji 2)Aktualizację danych i wykresów per filtr tabeli przestawnej 3)Zapis jako prezentacji nazwš filtra z aktualnš datš (komórka z...
Postawiłem 2 monitory obok siebie. Włączyłem oba i miłe zaskoczenie. Ogromna przestrzeń robocza :) Windows 7 od razu rozpoznał 2 monitory i sam rozszerzył ekran. Na początku troszkę ciężko było się przyzwyczaić do tej choć cienkiej ale jednak ramki monitorów na środku pulpitu. Posiadając 2 monitory tak czy inaczej nigdy nie patrzy się na 2 monitory...
Witam. Mam problem z kartą Ati Radeon 9800. Zanabyłem używaną na Allegro po dobrej cenie. Niestety mam z nią problemy. Najpierw resetował mi się komp przy próbie odpalenia jakiegokolwiek programu. System się ładował, mogłem pograć w pasjansa ale załadowanie czegokolwiek innego, choćby tylko Total Commandera powodowało reset lub raczej wyłączenie zasilania....
Cześć! Napotkałem na pewną przeszkodę w tworzeniu pliku Excel (2007), może ktoś z was ma pomysł jak ją obejść? Działanie pliku Plik sciąga dane z dwóch raportów i tworzy z nich jeden raport. Pierwszy raport zawiera informację o ilościach produktów które przyjadą do sklepu, a drugi zawiera informacje o wszystkich produktach - np. jaka jest ich cena....
White Labeling has become a popular term in the fleet management industry. It refers to a process where a product of one company is rebranded by another company to make it look like their own. The rebranded product is sold to the clients by resellers. It is a win-win situation for the manufacturer and the resellers as both derive profit from it. Nowadays,...
Dzień dobry Wszystkim, Chcę poprosic Was o pomoc. Chciałbym wysyłać maile z załącznikami (pojedyncze zakładki) oraz okresloną treścią z poziomu EXCELA na podstawie danych z tabeli przestawnej. Moja tabela wyglada mniej więcej tak: http://obrazki.elektroda.pl/1253251300_1... Po podwójnym kliknięciu na komórkę C6 Excel tworzy nową zakładke...
Witajcie, Proszę o pomoc w zmodyfikowaniu makra, które odblokuje (zablokowaną makrem) opcję kopiowania danych, aby można je było wykorzystać poza excelem. Blokada wycinania i wklejania dalej powinna być zablokowana. Nie działa też blokada wklejania specjalnego. Dziękuję za pomoc. Private Sub Workbook_AddinInstall() End Sub Private Sub Workbook_BeforeClose(Cancel...
Poniżej zamieszczam fragment zrzutu ekranu z tym, jak wygląda moje okno Word-a po zmaksymalizowaniu. W żaden sposób nie da się go "podnieść". Problem powstał nagle. Excell i reszta aplikacji z pakietu ok. Konfiguracja: Windows XP x64 ENG, MS Office 2003 Spotkał się już ktoś z podobnym problemem? Gdzie grzebnąć, żeby to naprawić? http://obrazki.elektroda.net/19_12336052...
power pivot pivot monitor value pivot
wykres matlab livebox router bezprzewodowo którą stronę założyć tarcze
pioneer instrukcja obsługi polski pioneer instrukcja obsługi polski
Seat Leon 3 FR 1.4 TFSI 145KM – check engine po wymianie rozrządu, błąd P0016/P0017 Mikrofalówka Samsung, Panasonic, Whirlpool – brzęczy, nie grzeje, diagnoza HV, magnetron, dioda