Nagraj makro rejestratorem, otrzymasz kod gotowy do podpięcia, niemal bez przeróbek. Pamiętaj także o[syntax=vb] Do While ActiveWorkbook.Connections.Count > 0 ActiveWorkbook.Connections.Item(1).Delet... Loop [/syntax]bo po jakimś czasie nazbiera Ci się ich mnóstwo... P.S. Obrazek usuń z postu (jest zbędny), albo zastosuj się do instrukcji...
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]
Wklej wszystko do modułu. [syntax=vbscript]Dim i As Long Sub Odsw_zap() Application.ScreenUpdating = False ActiveWorkbook.RefreshAll Application.ScreenUpdating = True End Sub Sub elka() i = i + 1 If i = 4 Then Call Odsw_zap i = 0 End If Application.OnTime Now + TimeSerial(0, 2, 30), "elka" If ActiveSheet.Name = "sheet4" Then Sheets("sheet5").Activate...
Makro do odświeżania + filtr zaawansowany. Przykład w załączniku 1023213
Witaj ActiveWorkbook.Connections( _moje połączenie").Refresh BackgroundQuery:=false 'Sheets(1).QueryTables("moja").Refresh BackgroundQuery:=false
Obejmujesz kod który ma nie wywoływać błędów: On Error Resume Next 'po błędzie kontynuuje dalej ....kod... On Error GoTo 0 'przywracamy raportowanie błędów
Mam problem z jednym makrem excelowym. Potzebuje zbudowac liste, gdzie w kolumnie A będą ręcznie wpisywane nazwy. Na ich podstawie, w zależności co będzie w kolumnie A, w kolumnie B ma pojawić się konkretna wartość, kopiowana z Arkusza 2. Z kopiwaniem już sobie poradziłem, nie mogę dać sobie rady, żeby odświeżanie było w czasie rzeczywistym. tzn. przy...
Pożądany efekt aktualizacji tabeli w arkuszu "3" 961000 można uzyskać poprzez makro aktualizujące (odświeżanie danych skrótem ctrl + a :D ) z zastosowanie pętli typu: 961004
Sądząc po nazwie ("Polewyboru") to nie ActiveX tylko formularzowe. Wykorzystaj wartość komórki wpisanej jako "łącze komórki"... P.S. Na końcu procedury włącz odświeżanie ekranu.
Poradziłem sobie. Makro odświeża dane w podanym zakresie. Sub pr() Application.Calculation = xlManual DoEvents For Each mycell In Sheets("Feuil1").Range("AP2").Cells mycell.Formula = mycell.Formula Next DoEvents Application.Calculation = xlAutomatic End Sub
Da się zrobić przycisk który uruchomi makro. Pytanie co konkretnie ma robić makro?
Witam. Potrzebuję makra które pomoże mi w odświeżaniu plików. Mam następujące pliki: SUMA Tabela 1, Tabela 2, Tabela 3, i tak do Tabela 100 Zmienne 1, Zmienne 2, Zmienne 3, i tak do Zmienne 100 Potrzebuję makra które otworzy na stałe plik SUMA (w nim są dane wyjściowe i zbiera wyniki po obliczeniu w plikach Tabele i Zmienne) i następnie zestawy plików:...
Zrobiłem nagrałem makro które automatycznie odświeża 3 tabele (co 5 minut). Nie do końca. Makro "start" odświeża 3 tabele i planuje jednorazowe uruchomienie makra "button3". Żeby działało co zadany czas musisz wywołać procedurę "start" w "button3". Co może być nie tak? makro czasem działa, czasem nie. Wpisz jawnie nazwę arkusza, w którym znajduje się...
Jeszcze raz prosba o pomoc, jezeli cos niejasno napisałem to proszę o info a wyjasnie bardziej szczegółowo.
Witam. W przypadku kwerendy więcej niż 2 linie, zaproponować, co następuje: 1. Makro, który odświeża dane pierwotnie ociera wszystkich wierszy w kwerendzie. 2. Makro organizujące dane okresowo sprawdza, czy drugi wiersz jest pusty. 3. Gdy kwerenda jest przygotowany, makro będzie kontynuować prace.
Cześć Napisałem proste makro króre odświeża plik excela połączony kwerendami z accesem, a następinie zapisuje go. ActiveWorkbook.RefreshAll ActiveWorkbook.Save W trakcie odświeżania pliku wyskakuje komunikat :" To polecenie anuluje wykonywane polecienie Odśwież dane. Czy kontynuować? " Jeżeli wcisnę "tak" to przerwane zostaje odświeżanie i następuje...
Witam, Zrobiłem makro do odświeżania zapytania w power query ale chciałbym aby działało z listą rozwijaną no i tu poległem. Pomóżcie proszę. Dziękuję za wszelką pomoc.
Cześć wszystkim. Pojawił mi się problem z plikeim VBS - miesiąc temu normalnie działał teraz w połowie przestaje wykonywać pętle. Wyjąsniam o co chodzi i gdzie leży problem. Makro powoduje najpierw usunięcie w folderze X plików .TXT i wgranie nowych z folderu Z. Póżniej kopiuje z X plik Excel i umieszcze go w folderze L. W folderze X jest plik Access...
Witam zobacz [syntax=vb]ActiveWorkbook.RefreshAll[/sy...
Sprawa jest trochę skomplikowana, bo hiperłącza w Excelu nie lubią sortowania, a sortowanie nie przesuwa odpowiednio hiperłączy. Do tego jeszcze funkcja HIPERŁĄCZE nie obsługuje tablic, tylko pojedyncze komórki. Być może jest to do zrobienia z wykorzystaniem funkcji LAMBDA, nie próbowałem, ale obawiam się, że mogłoby to być dość powolne rozwiązanie....
Przy odświeżaniu pliku potrzebuję aby wykres ten został usunięty. W jego miejsce makro tworzy nowy w oparciu o aktualne dane. Jeśli wykres jest tego samego typu i nie zmienia się układ danych, tylko dochodzą nowe, to po co usuwać wykres ? Wystarczy "rozszerzyć" zakres danych dla wykresu już istniejącego ... ? : / ?
Mam proste makro, które otwiera wskazany plik odświeża połączenia power Query, zapisuje i zamyka plik. Czy da się opóźnić zapisanie i zamknięcie pliki do zakończenia odświeżania połączeń power Query?
Krótko przed 10:00 podmieniłem załącznik (wyłączenie zdarzeń przy odświeżaniu list). Zerknij, czy masz aktualną wersję... Trzeba tam jeszcze to i owo dołożyć. Np sprawdzenie, czy nie dublujesz klienta przy [Dodaj], etc.
Dlaczego SQL? W arkuszu "dane" nie ma tabeli w rozumieniu Bazy Danych (Dane>wstaw tabelę). Odwołuj się do prawidłowych nazw. Z drugiej strony, zdaje się, że można to zrobić prościej. Czy chodzi Ci tylko o przypisanie list do combobox'ów? Łatwiej byłoby posługiwać się tablicami. Co z powtórzeniami?
Witam, Podaję makro: Sub Logoeps() ' Logoeps Makro ' Option Explicit Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range Dim fd As Object Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ActiveWorkbook.path & "\" & Range("M68") .AllowMultiSelect = False .Filters.Clear .Filters.Add "Picture Files", "*.png;...
Tu mam wrażenie że jest coś z synchronizacją pomiędzy zamykaniem pliku i kończeniem makra, tak jakby zamykanie pliku trwa a on już skończył makro i dlatego się widok nie odświeża a przycisk cały czas jest jakby wduszony - nie odciska się, i wtedy czegoś mu brakuje, szukam sposobu by je jakoś zatrzymać może jakiś pasek postępu
Wystarczy zmiana typu zmiennych na long. (at)wxyz1986 na początku makra wyłącz odświeżanie ekranu oraz automatyczne przeliczanie formuł (jeśli masz) a makro powinno przyspieszyć [syntax=vb]With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With[/syntax] Na końcu kodu oczywiście nie zapomnij ponownie włączyć tych właściwości...
To Makro działa super. Jakby jeszcze udało się zrobić, żeby działało automatyczne odświeżanie to byłoby idealnie :) Pozdrawiam
Próbowałem w ten sposób ale opcja właściwości połączenia mam nieaktywne :/
Temat zamykam.Rozwiązałem problem. Oczywiście kod adamas_nt oraz dołożyłem jeszcze odświeżanie arkusza i wszystko działa tak jak chciałem.
Witam, A co to jest ThisCust? Moja uwaga: o ile nie jest to zamierzone, na końcu makra nie rób .screenUppdating = false, bo wtedy wyłączasz odświeżanie całego ekranu. Ja zawsze daję screenupdating=false na początku makra, a screenupdating=true na końcu - wtedy makro wykonuje się szybciej "w tle", nie odświeżając ekranu.
po dojsciu do polecenia "ActiveSheet.Paste" przechodzi automatycznie Spróbuj wcześniej Thisworkbook.Activate (przed sheets(mySto).select) Makro umieściłeś w module? Może właściwiej (dla copy-paste) będzie otwierać pliki w jednej instancji? Jeśli wyłączysz odświeżanie, nie będzie znowu tak bardzo rzucało się w oczy...
Jeżeli odświeżanie ekaranu jest wyłączone przed dokonaniem obliczeń i włączone po zakończeniu, to makro powinno wykonywać się szybko.
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
Dzieki za podpowiedź z : Set xlApp = CreateObject("Excel.Application") xlApp.visible = true Faktycznie teraz odpalenie skryptu VBS uruchamia plik a.xlsm, jednak od razu po odpaleniu wykonuje się makro bez odświeżenia kwerendy, zapisuje po prostu plik w nowym miejscu pod nową nazwą ale z starymi danymi. Oczywiście 0 w VBS jest zamienione na 3. Odpalenie...
Witam, Mam problem z pobieraniem danych - power query z pliku chronionego haslem. baza danych(excel) - "źródło" chronione hasłem "123" Arkusz "pobierz" - tutaj mają trafić dane z odświeżonych zapytań (kilka) Udało mi się znaleźć makro, który otwiera plik źródło i teoretycznie powinien odświeżyć połączenia ale niestety tak się nie dzieje. Wywala błędy...
Pozwoliłem sobie skorzystać z pliku kolegi szafarza jako wzoru danych. Nagrałem makro i trochę je podreperowałem aby było uniwersalne dla każdych danych (by uwzględnioało wszystkie dane i możliwości). Aby zobaczyć efekt w załączniku trzeba pozwolić na wykonywanie makr. Też nie wiem jak kolega szafarz doszedł do wyboru modeli dla kategorii A [usunął...
Dobry wieczór, Trudno mi wyciągnąć od Pana, o co naprawdę Panu chodzi, więc jeśli dobrze rozumiem intencje proponuję takie rozwiązanie: utworzyć tymczasową kopię oryginalnego zakresu w wolnym miejscu arkusza (ja użyłem zakresu I6:M12), skopiować tam zakres oryginalny, wyczyścić komórki zawierające zera lub liczby ujemne, wreszcie wyczyszczony zakres...
Załączam plik który wykorzystuje kwerendę (połączenie z bazą poprzez import) z przyciskiem aktualizującym (makro aktualizujące kwerendę). Podobnie jak to zrobił kolegę adamas_nt z tym że w moim przypadku makro tylko wymusza odświeżenie kwerendy. Przy tym rozwiązaniu dane zawsze będą pobierane i aktualizowane na podstawie bazy więc jeżeli zmienią się...
Witam Więc rozumiem, że Pan chce mieć 24 arkuszy w skoroszycie. Zależy jeszcze od tej godziny dzień aktualizacji danych. Niedobór powyżej określonego skryptu jest że to stale dodaje kwerendy, ale nie usunąć poprzedni jak i nazw, które są stale wzrosła w skoroszycie. Dodano po 5 Myślę, że lepiej makro tylko zmiana parametru "Connection" i zaktualizować...
Zwykle na czas działania pętli wystarcza wyłączenie zdarzeń i odświeżania.[syntax=vb]Sub Kasuj() Application.EnableEvents = False Application.ScreenUpdating = False For i = Cells(65536, "A").End(xlUp).Row To 3 Step -1 If Cells(i, "B").Value = "" Then Rows(i).delete shift:=x1Up End If Next Application.EnableEvents = True Application.ScreenUpdating =...
Odświeżam temat bo potrzebuję szkła. Przeznaczenie - makro. Wymagane parametry - duża skala odwzorowania, odległość ostrzenia "na motyle" 40 cm lub więcej, mocowanie m42, światło nieistotne 4 lub niżej, ogniskowa mało ważna najlepiej między 50 a 100. Co mam? Redukcję Canon - m42, pierścienie, DSLR FF w planach DSLR lub "bezlusterkowiec" APS + mieszek....
Odświeżam tematy, ponieważ nie potrafię sobie poradzić z tym kodem do końca. W temacie poprosiłem o makro, które automatycznie włączy trub projektowania. Kolega (at)PRL dał link, w którym jets makro, które włącza ten tryb. Do tej pory było dla mnie to wystarczające, ale teraz próbuję to rozgryźć i nie potrafię, pewnie w linku jest na to odpowiedź, ale...
No dobra ;) Generalnie każdą formułę można wstawić makrem, wystarczy ją nagrać macro recorderem i troszkę zmodyfikować. Dla WYSZUKAJ.PIONOWO jest to coś takiego: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Arkusz1") ost_wiersz = .Range("A"...
Jak najbardziej popraw to makro, nie będzie cię "przerzucało" i będzie działać nawet jak ukryjesz arkusz 0dane0 (właściwość Visable arkusza ustaw na 0). To co zmieniłem zaznaczyłem. Rozumiem że musisz dodać pełny adres źródła (nie wiem po co wykasowałeś ale twoja wola). Nie potrzebny jest teraz wcześniejszy kod makra dane kod kurs_2 sam załatwia wszystko...
Próbowałem już coś "zdziałać" za pomocą korespondencji seryjnej, ale nie bardzo mi wyszło. Za to udało mi się rozwiązać mój problem za pomocą styli, ale jest to dosyć kłopotliwe i niewygodne (min. trzeba na koniec zaznaczyć cały tekst i odświeżać F9). W takim razie proszę jeszcze o wskazówki odnośnie korespondencji seryjnej (również oferuję punkty).
Nie bardzo rozumiem na czym polega istota problemu. Czy tylko na automatycznym odświeżeniu tabeli przestawnej? To można zrobić np. makrem przy każdorazowej aktywacji arkusza z tabelą. Przykład w załączniku. Analogicznie można bez tabeli przestawnej założyć tylko filtr i ten filtr odświeżać makrem. Można też formułami, ale to bardziej skomplikowane.
Cześć, Piszę do Was, bo może ktoś miałby pomysł jak rozwiązać pewne kwestie, nad którą się zatrzymałem robiąc makro. Sprawa wygląda tak, że jest arkusz 'umowy', gdzie są umowy, etapy ich realizacji i inne dane. Na ich podstawie makro obrabia dane i wprowadza je do zakładki 'faktury' i pojawia się pierwszy problem: - chciałem zrobić przycisk, pod które...
Bardzo, hmm, ciekawe makro. Wiesz jak zjeść słonia? Po kawałku... -sprawdź czy samo odświeżanie pivot'a działa. -"czasówkę" masz OK, więc ją zostaw na koniec -trudno połapać się w przypisaniach, bo nie widzimy jaki zakres i w jakim układzie są dane w arkuszu z tabelą, oraz którą jej część (prawdopodobnie Range("A4:G85")) chcesz skopiować. W obecnej...
Jeżeli "drażni" cię to, że "widać" efekty pracy makra zanim nastąpi efekt końcowy możesz na czas pracy wyłączyć odświeżanie ekranu. Czyli na początku procedury (tuż pod Sub) pod przyciskiem OK okienka wpisz: Application.ScreenUpdating = False to wyłączy odświeżanie a przed End Sub tej samej procedury nie zapomnij wpisać: Application.ScreenUpdating =...
Pobierasz dane poprzez kwerendę (dane zewnętrzne) czy poprzez odwołanie do konkretnych komórek innego skoroszytu? W drugim przypadku nie powinieneś mieć kłopotu z komórkami chronionymi. W pierwszym przypadku excel nie pozwoli bo metoda z odświeżaniem danych polega na wprowadzeniu nowych danych do komórek a właśnie to jest chronione i następuje sprzeczność....
... gdyż naciskasz F9 idziesz zrobić kawę, wracasz i gotowe :D ... A mogę zapytać po co naciskasz F9? Masz wyłączone automatyczne odświeżanie? Odwołania cykliczne w formułach? Owszem F9 wymusza przeliczanie ale całego arkusza/skoroszytu a akurat "moje" rozwiązanie tego nie potrzebuje (pod warunkiem że masz włączony standardowo automat w opcjach) W...
Tego typu filtrowanie danych możesz zrobić albo przy użyciu makra :idea: , albo przy użyciu kwerendy :spoko: W obu rozwiązaniach po dopisaniu nowych danych do arkusza Lista, konieczna będzie w zasadzie interakcja usera: uruchomienie makra lub ręczne odświeżanie danych. Makra przygotują Ci prawdopodobnie inni koledzy :D , ja zaś proponuję wykorzystanie...
lanzul: Dzięki za tak obszerna odpoweidź, już staram sie odpowiedziec na Twoje pytania: 1. Tak masz rację nie zadeklarowałem zmiennych, po prostu zapomniałem tego dopisać jak makro działało i potem o tym nie myślałem. 2. zmienna K to pozostałośc po mojej początkowej fazie pisania tego kodu i nie usunąłem tego. 3. Ponieważ, gdy umieszczam ja tylko na...
Spróbuj wyłączyć odświeżanie: Application.ScreenUpdating=False za linią z Windows(rap).Activate. Włącz na końcu =True Jeśli nie zadziała można przerobić kod tak, żeby nie było potrzeby "biegania" po arkuszach (bez activate, select, etc)... Np fragment z sortowaniem (nie odwołuj się do okna instancji, tylko do konkretów). W przykładzie przypisanie i...
Długie makro można skrócić :] Tak to może wyglądać dla wydruku 3 kopii A4 z wybranego obszaru po pominięciu wszystkich niepotrzebnych rzeczy generowanych przez recorder i dodaniu obsługi błędów (pamiętaj o prawidłowym wyłączaniu, a na końcu - włączeniu odświeżania ekranu na czas działania makra - tutaj i w innych przyciskach też): [syntax=vb]Private...
tak dobrze? Tak dobrze. :arrow: alexw200 Wytnij makro, wklej do nowego pliku, ew. dopisz wł/wył odświeżania - będzie ciut szybciej W innych wersjach językowych nie są wyświetlane nazwy kodowe arkuszy (cyrylica w oryginale, krzaczki m.in. w polskim). Stąd problemy.
potrzebuję makro Taką funkcjonalność, że po zmianie któregokolwiek elementu z zakresu danych Twojego wykresu następuje "przeformatowanie" wszystkich etykiet dla poszczególnych kategorii - jak na zrzucie 1017446 można uzyskać poprzez makro typu Worksheet_Change :D 1017550 Ps. dopiero teraz po opublikowaniu dostrzegłem mankamenty mojego kodu (nie odświeża...
Jestem laikiem jeżeli chodzi o VBA. Potrzebuję makro, które będzie sumowało komórki z danego zakresu względem kolorów jakie są w komórkach gdzie są wartości. Kod mam, ale po zmianie koloru komórki z zakresu automatycznie nie przelicza się, trzeba "odświeżyć". Jakieś pomysły jak to zrobić, żeby latało z automatu? Sub Makro1() Function SumujKolorowe(Zakres...
Wszystko ładnie, pięknie, tylko gdy w komórkach C i D, F i G itd. mam znowu 'Date' i 'Price' tylko dla innych akcji, i tak x20 (20 par 'Date' i 'Price' dla różnych akcji), i dla każdego C i D, F i G itd. napiszę osobne makro 'row_influx', to wszystko zaczyna cholernie wolno działać mimo braku odświeżania. Stąd pomysł tablicy...
Cześć wszystkim, Stworzyłem makro do awizacji gości przychodzących do firmy. Mam okienko podglądu w tym pliku z makrem, gdzie mogę podejrzeć jakie wizyty są zaplanowane a jacy goście są w środku(plik1). Stworzyłem drugi plik o nazwie podgląd. Ma on tylko pobierać wartości komórek z pierwszego makra co minutę, by widzieć aktualną sytuację, powiedzmy...
Oj, to był tylko przykład :) Jeśli już musisz na "selectach", to dopisz gałąź [syntax=vb]For Each ws In Worksheets If ws.Name <> "rowdata" And ws.Name <> "wynik" Then ws.Activate Range("M2:Q2").Select Range(Selection, Selection.End(xlDown)).Select If Selection.Rows.Count < 1001 Then Selection.Copy Sheets("rowdata").Select Range("a10000").End(xlUp).Offset(1,...
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
Czy do takiego checkBox'a potrzebujemy jakąś komendę do odświeżania danych po jej użyciu? Nie odświeżają mi się wartości z sumy częściowej po odkryciu i zakryciu wierszy? Przycisk działa tylko na pierwszą kolumnę (która sumuje częściowo), w pozostałych kolumnach sumowanie nie działa ?? Dodam, że funkcja agreguj działa tak samo jak suma częściowa, czyli...
Witam Wszystkich Serdecznie, Jest to mój pierwszy post na elektroda więc proszę o wyrozumiałość. Opis sytuacji: 1. Pracuje na excelu i tworzę DashBoarda związnego z urlopami. 2. W danym excelu jest wyświetlana lista osób oraz kto ile ma urlopów; 3. Wyświetlany excel zaciąga dane z innego pliku za pomocą Query; 4. Tabela Query wyświetla wszystkie daty...
Wiadziałem w innych topikach że trochę kumasz VBA więc czego sam nie dołożysz sortowania? Przecież to nie jest trudne. Jak czegoś nie rozumiesz to nagraj makro i przeanalizuj jak jest zbudowane. Wprowadź swoje poprawki i ... tadam ... :) proste :) Poniżej dołożyłem sortowanie po A i po E Po E bo chyba o to głównie chodzi - gdyż funkcja w kolumnie B...
W takim razie mamy zupełnie odmienne wyniki testów :!: Z testów, które robiłem gdy pisałem o optymalizacji (dane dla 2000 wierszy ): - kopiowanie komórek pojedynczo ( z jednej kolumny ) - czas 5.26 - 5.6 s, z czego czasy krótsze dla liczb, a dłuższe dla komórek z tekstem. - kopiowanie komórek pojedynczo ze wszystkich 7 kolumn - czas 36.8 - 37,18 s ....
dziękuję za podpowiedź ale nie pomogło niestety, gdzieś znalazłem sugestię że with może powodować problem ale to też zły trop sprawdziłem ręcznie nagrywając makro, po kliknięciu w zakładce dane odśwież nagrało się makro i to zadziałało Dodano po 26 oj pośpieszyłem się [syntax=vb]ActiveWorkbook.RefreshAll[/sy... nie do końca rozwiązuje problem wyskakuje...
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...
Przepraszam, że odświeżam tak stary temat ale mam podobny problem, a zasugerowane w wątku rozwiązanie nie jest skuteczne. Chodzi mi o to, że mam zakres danych, który chciałbym podawać do makra parametrem (makro umieszczone w komórce nad zakresem), a makro miałoby sortować zakres za każdym razem gdy ktoś wprowadzi do niego dane. Makro postaci: Function...
Tak jak kolega powyżej pisał - wystarczy zrobić tabelę przestawną. Jeśli chodzi Ci dokładnie o taki układ jaki zamieściłaś, to tabela musi być odpowiednio sformatowana. Dodatkowo zastosowana jest opcja powtarzania elementów - ale pamiętaj, jest ona dostępna dopiero od wersji 2010. Przy okazji wprowadziłem dynamiczną definicję zakresu danych. Przy odświeżaniu...
>Czy przy FPS 23.976 nie powinno być odświeżania 24 ? Nie - ma być 23. Po prostu tak jest, że karty graficzne są "mądre" i wiedzą, że "23" to znaczy że chodzi o odświeżanie 23, 976 Hz. A z kolei "24" to znaczy dokładnie 24 Hz. Monitory (lub telewizory w funkcji monitora) też "wiedzą" że "23" w ich ustawieniach to tak naprawdę "23,976".
Musiałbyś zmienić licznik pętli zmiennej wiersza: For k = 1 To ostatnia komórka Range(wiele_kolumn).End przeszukuje tylko skrajną, lewą kolumnę. Wyszukuj od pojedynczej i najlepiej od dołu (jeśli zdarzają się "okienka"). Np ostWrs=Range("B65536")>End(xlup).row Inne sposoby ostW=ActiveSheet.UsedRange.Rows.Count ostW=Columns(2).Find("*", SearchOrder:=xlByRows,...
Skoro próbuje Kolega coś sam pokombinować, to trochę pomogę... ;) Nie wiem na ile dobrze zrozumiałem całą ideę, więc będziesz musiał trochę dostosować kod do swoich potrzeb. Zacznijmy od tego, żeby umieścić kod makra wewnątrz takiego fragmentu kodu (fragment dla makra umieszczonego w zdarzeniu kliknięcia przycisku): [syntax=vb]Private Sub CommandButton1_Click()...
Super, wielkie dzięki. Brakuje mi tylko wisienki na torcie tzn: skoro już pobiera adres obrazu z komórki to po co wyświetla mi okno do wyboru pliku. Idealnie by było gdybym tylko włączył makro a ono wstawiło obrazek bez pytania skoro ścieżkę pliku ma podaną w komórce. Teraz wygląda to tak: " Sub Nieobudowany() ' ' Nieobudowany Makro ' Option Explicit...
Rozwiązanie od zadania pierwszego z pierwszej kartki. 1. W 'A1' wpisać: =MROUND(RANDBETWEEN(0;100);5) jeśli pojawi się błąd-załadować dodatek Analysis ToolPak: # Narzędzia >> Dodatki >> Dostępne dodatki >> Analysis ToolPak >> OK 2. Przekopiować formułę do 'A50' 3. Zaznaczyć całość 4. Skopiować 5. Kliknąć na 'B1' Edycja >>...
Wyłącz odświeżanie ekranu przed pętlą (Application.Screenupdating=false) a za pętlą włącz ponownie (=true)
Witam wszystkich i przepraszam za odświeżanie tematu Mam taką sprawę, w pracy wykonuję zdjęcia 3D, do każdego zdjęcia potrzebuje obrobić 72 zdjęcia statyczne, nanoszę w photoshopie trochę poprawek ustawiam makro i leci, aby komputer mi je obrobił zajmuje mu to przeszło 30 minut. Jeśli to prosta obróbka, to po prostu zapuść wsadowo ImageMagicka: [url=http://www.imagemagick.org/script/i...
Po odkomentowaniu tego fragmentu na moim komputerze odświeżanie dalej działa (Excel 2007, Win7). Czyli problem musi być albo w Twojej konfiguracji Excela, albo w jakiś ustawieniach systemowych. Sprawdź na początku, czy w opcjach programu excel->centrum zaufania->ustawienia centrum zaufania masz ustawione odpowiednio niskie poziomy zabezpieczeń. Dodatkowo,...
Jest jakiś trik by po nowym wpisie posortowała się z automatu? Można wykorzystać makro zdarzeniowe typu [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range)[/syntax] dla arkusza z danymi, które będzie sortowało po każdej zmianie w określonym zakresie :D . Poprzez trick z importem danych z jednego arkusza do drugiego można ustawić kwerendę...
Witam! odświeżam temat bo aktualnie też szukam aparatu do 300zł. Wiem że może czegoś super nie mam się co spodziewać, ale chciałabym aby zdjęcia wychodziły fajne, szczególnie w pomieszczeniach. Kolory aby były żywe. I dużym plusem by było gdyby nagrywał filmy w HD.
Tak, zawsze wpisując do tych samych pól w arkuszu zostaje mi baza przyjęć towaru od klienta. Całość ma wyglądać w ten sposób mam pierwszą stronę w arkuszu wypełniam wyżej wymienione pola zawsze te same 1a 1b i 1c i klikam drukuj drukuje mi się potwierdzenie pobrania sprzętu do naprawy a wszystkie dane zostają zapisane w drugim arkuszu kolejno 1,2,3...
Arkusz nie ma być czyszczony, używany będzie przez cały miesiąc - będę tylko odświeżała dane. Moja wiedza jest bardzo uboga, wiem że należy zrobić pętlę które przejdzie przez wszystkie pliki xlsx. w folderze "PRODUKCJA" i zwróci nazwy zakładek, a do tego dane z tych zakładek.
Zdaje się, że szybciej byłoby zapisywać od razu do komórek, bez pośrednictwa tablicy. Oczywiście wyłączając odświeżanie. Np [syntax=vb]Option Explicit Sub makro() Dim i As Double Dim j As Double Dim n As Integer Dim liczbafaktur As Integer 'Dim tablica() As Variant liczbafaktur = Application.WorksheetFunction.CountA(Ran... - 2 n = 1 'bo zapis...
Jeszcze prościej , to buforować w RAM char-codes i ewentualnie definicje znaków, a jakaś tam procedurka, spoglądając na zegarek, cyklicznie odświeża LCD. A co kilkanaście sekund oraz po odpowiednim timeoucie flagi busy można jeszcze dorzucić reinicjalizację, co skutkuje odpornością na odłączenie wyświetlacza w czasie gdy µC jest w pracy lub inne...
Doskonale, odwaliłeś całą robotę za mnie... :) Spróbuję teraz to zrozumieć i dostosować do dużej bazy danych. Mam tylko jedną wątpliwość: wydaje mi się, że makro powinno dodawać sumę wartości ze skoroszytu "Statystyka" do pustej komórki a nie do już istniejącej i zapełnionej danymi bo przy odświeżaniu będą nam się sumować powierzchnie nowe z tymi co...
Witam, mam pytanie a propos załączonego kodu, zrobiłem makro, które zapisuje plik jako xlsb. Wg mnie ten format nie powinien już zawierać makr, a jednak każdorazowo, gdy uruchamiam plik zapisany przez makro - wykonuje ono ponowne połączenie z bazą Oracle i ponownie odświeża dane. Chciałbym , aby plik wynikowy był już plikiem, który zawiera wyłącznie...
Potrzebuję linijkę kodu Masz już coś "napisane"? Mam makro które w momencie otwarcia pliku B w pliku A tworzyło odwołania za pomocą formuły = &scieżka&nazwapliku do konkretnych komórek. Dzięki temu w Pliku A miałem aktualne dane. Ale pojawia sie problem natury takiej że gdy plik będzie edytowany przez kilka osób naraz to wtedy nie jest w stanie sam...
ten InputBox nawet nie jest tu konieczny bo zawsze z każdego pliku źródłowego z tego samego arkusza i tej samej komórki będzie spływała jakaś wartość do tej samej komórki w arkuszu UZYWANE. Więc muszę i tak wpisać ręcznie Array. Problem pojawia się wówczas gdy chciałbym nie tylko kopiować ze wszystkich Arkuszy1 do Arkusza1 w UZYWANE. A jeżeli w plikach...
D900i bije na łeb K800i Sry że odświeżam ale to aż razi w oczy. Miałem te dwa telefony w rękach i co do jakości zdjęć nawet nie ma co porównywać d900i do k800i... SE ma o wiele lepszą optykę, różne tryby i scenerie robienia zdjęć które jeszcze bardziej poprawiają jakość. W d900i nawet nie ma trybu makro... No i lampa błyskowa w k800i to ksenon i bardzo...
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...
Myślę, że trzeba by było użyć makra a ja cińki z robienia makr jestem powiedz czy chodzi Ci jeszcze by dowolny rozmiar był tej tabeli z danymi czy tylko taki mały będzie. Ostatecznie można by proste makro było zrobić na zasadzie takiej by pobierało dane jak wyżej, następnie sortowało, usuwało dane zbędne (z pustymi rekordami, i ponownie układało. Ale...
Witam serdecznie! Mam napisane pewne Makro które ma za zadanie co godzinę odświeżać dane w prezentacji PP, która zaciąga dane z Excela. Problem pojawia się w momencie gdy któryś plik excel zostanie przypadkowo otwarty. Wtedy na prezentacji wywali błąd "plik tylko do odczytu". Czy jest możliwość przekształcenia mojego makra w taki sposób aby nie wywalało...
Witam, mam następujący problem: Mam formularz (dzielony) na nim jest pole lista z którego wybieram wartość. Następnie chce przefiltrować rekordy wg. wcześniej wskazanej wartości. Zrobiłem przycisk z odpowiednią akcją ( przy kliknięciu/makro osadzone/zastosuj filtr ) i działa to tak: -uruchamiam formularz -wybieram wartość z listy -klikam na filtr -rekordy...
Trochę niestandardowo napisałeś to makro, więc trzeba oczy wytrzeszczać ;) Staraj się wyeliminować wszelkie, niepotrzebne wyjścia z procedury (End). W jednym przypadku (zauważyłeś?) zostajesz z wyłączonym odświeżaniem. Spróbuj takiej konstrukcji [syntax=vb]Sheets(1).Activate Sheets(1).Unprotect Application.ScreenUpdating = False 'zapytamy i użyjemy...
Witam, Mam makro do usuwania wierszy, które zawierają w kolumnie A "0". Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
1. jak wywołam formularz podrzędny to w głównym nie wyrzuci mnie znów na pierwszy rekord w formularzy głównym po zamknięciu form, tylko dzięki zmiennej tymczasowej zostanę na tym samym rekordzie Co za problem, wystarczy nie odświeżać formularza lub zapamiętać wybór (zwykła zmienna) i odtwarzać po powrocie z podformularza. 2. id wyrobu powinno być pobierane...
Zacznij od: - wyłączenia odświeżania ekranu - wyłączenia zdarzeń czyli na początku kodu [syntax=vb]With Application .ScreenUpdating = False .EnableEvents = False End With[/syntax] Analogicznie na końcu kodu włącz powyższe właściwości. Dodatkowo jeszcze nie baw się w przechodzenie do komórek przy kopiowaniu, tylko kopiuj od razu ze wskazaniem komórki...
Wyłącz odświeżanie ekranu (screenUpdating) na czas działania makra. Z drugiej strony... sheets(1).range("A1:X" & LastRow).copy sheets(2).Range("A1") i w pętli usunąć puste Może szybciej będzie. Jeszcze inna opcja: Odfiltrować puste i skopiować cały zakres ("zwykłe" Copy kopiuje tylko widoczne).
:) Wiesz co, szybciej wyjdzie tworzenie tego pliku i makra niż tłumaczenie. Masz. Pooglądaj gdzie i w jakim bloku jest umieszczone wywołanie makra "Wykonaj". Nie podpinałem do przycisku bo jakakolwiek zmiana w tabeli A i B (tak jak chciałeś) odświeża tabelę. Jest to trochę "upierdliwe" ale jak "klient" chce ... :)
makro excel odświeżać makro excel automatyczny odświeżać odświeżać akumulator
polski język eeprom przekroczeniu transferu danych miernik uszkodzony pomiar rezystancji
Elektryka w drzwiach nie działa po odłączeniu modułu komfortu w Passat B5 1.9 TDI Check Engine w skuterze Junak 103 - przyczyny i diagnostyka