jeżeli praca trwa w bez dostępu do sieci W makrze otwarcie sieciowego skoroszytu musi nastąpić dopiero po upewnieniu się, że praca jest w trybie "bez dostępu do sieci". W jaki sposób to zrobisz to już Twoja inwencja, bo nie napisałeś ani jak jest zrealizowane makro ani jaka to lokalizacja sieciowa (plik dostępny z internetu czy z sieci lokalnej itd).
Jeżeli ma być szybko (szybko działać na dużych danych w Excelu) to proponuję taki schemat: 1. Jedną i drugą listę sortujesz 2. Wykonujesz pętlę podobną do tej: [syntax=vbscript] i = 2: Y = 2 Do While Cells(i, 1) <> "" Do While ((Sheets(2).Cells(Y, 1) <> "") And (Cells(i, 1) > Sheets(2).Cells(Y, ))) Y = Y + 1 Loop If Cells(i, 1) = Sheets(2).Cells(Y,...
Powinno to pomóc. [syntax=vb]Application.Calculation = xlCalculationManual[/syntax] spróbuj to wpisać zaraz na początku oraz na końcu przed End [syntax=vb]Application.Calculation = xlCalculationAutomatic[/syntax] ja mam w swoim arkuszu tylko do sprawdzania kolumny od A do ZZ i 25000 wierszy i czasami makro trwało od 5 do 30 minut :/ Teraz śmiga w sekundach.
Sprawdź, jak to działa (załącznik). Nie wiem, jakbyś chciał liczyć ceny. Ja założyłem, że: - mamy na przykład 3 dostawy po 10 sztuk towarów, pierwsza dostawa ma towar za 1pln, druga ten sam towar za 2pln, trzecia ten sam towar za 3pln, to wtedy: - w przypadku, gdy ktoś kupuje po jednej sztuce, pierwsze elementy będą miały liczoną cenę zakupu 1pln, po...
ale i to nie przyśpieszyło makra. I nie przyspieszy. 1. po co masz w kodzie dwie pętle otwierające plik? 2. Pozbądź się tych "aktivejtów i selektów"
https://obrazki.elektroda.pl/3570276400_... Pokażę tutaj jak przyśpieszyłem programową komunikację SPI służącą do obsługi pamięci Flash. Sprawdzę jak dużo kodu może kryć się za warstwą abstrakcji GPIO BK7231 a potem spróbuję operacje na pinach zredukować tak, by działały bezpośrednio na rejestrach. Ile cykli procesora tracone jest...
Witam, Zaczęłam korzystać z makr, uczę się ich pisać na wlasne potrzeby, są one jak narazie bardzo proste. Niestety mam problem, który mi przerósł. Mam gigantyczną bazę danych w excelu stworzyłam makro które działa ale bardzo długo I na poczatku wszyscy się cieszyli ze sami moga sobie korzystac z pliku I dostawac konkretne informacje, teraz narzekaja...
Cześć, mam następujące makro: [syntax=vbscript]Sub Makro4() Dim arkusze, arkusz Application.DisplayAlerts = False arkusze = Array("(1)", "(2)", "(3)", "(4)", "(5)", "(6)", "(7)", "(8)", "(9)", "(10)", "(11)", "(12)", "(13)", "(14)", "(15)", "(16)", "(17)", "(18)", "(19)", "(20)", "(21)", "(22)", "(23)", "(24)", "(25)", "(26)", "(27)", "(28)", "(29)",...
Tak się zastanawiam czy takiej formuły nie dało by się stworzyć przy użyciu sztucznej inteligencji np. chatgpt. Sztuczna inteligencja przy odpowiednim sformułowaniu pytania potrafi czasem choć nie zawsze wymyślić coś kreatywnego. Próbowałem przyspieszyć działanie makra, które przerzuca wiszące spójniki z końca zdania kilkukrotnie przy użyciu chatgpt...
Trochę nie rozumiem zastosowania makra do czynności, które można wykonać w kilka sekund używając sortowania wg daty przyjęcia i sum częściowych. Efekt może być np. taki. https://obrazki.elektroda.pl/8143716900_... Jak wspomniałem te przyklady są tylko poglądowe niestety nie mogę udostępnić materiałów których używam na codzień te które...
Jeżeli odświeżanie ekaranu jest wyłączone przed dokonaniem obliczeń i włączone po zakończeniu, to makro powinno wykonywać się szybko.
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
Ten skrypt też widziałem działa to na zasadzie zamiany znaków co można zrobić samemu trwa to dosłownie 5 minut i jest gotowe. Ja chciałbym to zrobić bardziej profesjonalnie jednak trwa to długo.Ten skrypt makro jest stworzony na starsze wersje pakietu office. Może by dało się jakoś zmodyfikować żeby chodził szybciej na aktualnych wersjach. Z początku...
Witam, Mam bazę danych, w osobnym arkuszu utworzyłam sobie listę w której mogę wybrać nr klienta (nr klienta jest czasami z jakimś tekstem lub z jakimiś dodatkowymi liczbami ale mam go traktować jako jeden klient). Udalo mi się napisać proste makro (jestem poczatkujaca) które z wyfiltrowanej listy kopiuje te nr do osobnego arkusza, sortuje tam te dane,...
Polecam do tabeli 1 Dodac jeszcze kolumna - Stan(aktualizowano lub nie). Aby makro wziął pod uwagę tylko świeże rekordy, aby przyspieszyć pracy. Ta kolumna wypełni się przez makro. Dodano po 1 Tak co stosunkowo dodatkowej kolumny w tabeli 1?
super! dodałem i wszystko działa jak należy!! Miałem tylko problem z usuwaniem pustych wierszy... napisalem makro kasujące gdy jakieś pole jest puste... działa ale bardzo długo przelicza.... Poniżej makro: Sub Kasuj() 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 End Sub...
Tak się składa, że niedawno robiłem dla naszych finansów coś podobnego. Program, po uproszczeniu, w załączniku, może jakoś Cię natchnie. ;) Zamiast kopiować do innej zakładki - grupuje pasujące linie. Dla 5000 linii jak w przykładzie działa u mnie, po drobnej modyfikacji, ok. ~4s (przy ~260s dla poprzedniego makra). Być może zmiana Range() na Cells()...
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...
więc to data gra tu główną rolę. Tak. Data nie możemy zawrócić i przyspieszyć do przodu. Np. Pierwsza zmiana zaczyna się o ósmej. O dziewięć makro zapisze do tabeli dla poprzedniego dnia i czyści dane. Do slowa, computer czynny 24 godziny? Dodano po 11 Ktorza godzina pierwsza zmiana zaczyna?
U mnie w pracy był chłopak na praktykach 2 tygodnie i pokazał mi co to są makra i w jaki sposób makra mogą ułatwić i przyspieszyć prace. To dzięki niemu odkryłem że jest coś takiego jak makro w Excelu i Wordzie. Wstyd się przyznać, że nie wiedziałem o VBA. Jego już nie ma, a mi w pracy przydało by się do 30 makr w Excelu plus Word. Jestem osobą, która...
Makro to strzelanie z armaty do komara, do jednorazowej operacji wystarczy użyć sposobu. Ja użyłbym funkcji wyszukaj.pionowo. Sprawdzałbym kolumny osobno wyszukując wartości w tej drugiej tabeli. Funkcja ta daje wartość n/d# jeśli nie znajdzie. Potem sprawdziłbym które wiersze nie mają w którejś z kolumn tej wartości. Ułożyłbym formułe =jeżeli(oraz(czy.brak(kkol1);czy.brak(ko...
Moja nieudolna próba podejścia do takiego zadania w załączniku (będzie to Makro1 w module2). Regulując parametr DOKL regulujemy precyzję. W makrze tym brakuje jakiejkolwiek inteligencji, więc działa bardzo wolno. Sprawdza wszystkie wartości od 0 do 180 podstawiając je do O/P i w konsekwencji po 180*180 iteracjach (dla DOKL=1.0) albo 1800*1800 (dla DOKL=0.1)...
Dzięki temu, nie usuwając pliku a dopisując do niego wiersze można stworzyć swego rodzaju spis poszukiwanych pingów. Jedna sugestia z mojej strony. Opóźnienie należałoby dobierać doświadczalnie w zależności od osiągów sprzętowych. Czasami trwa to naprawdę długo. Dodane po chwili Działanie polecenia ping można przyspieszyć dodając po ping.exe "-n 1"....
Witam. Chciałbym sobie znacznie przyspieszyć pracę w biurze, ale niestety jestem strasznie kiepski w VBA. Potrzebuję makro które to miałoby w arkuszu "Produkcja" łączyć "te same wiersze". Jeśli w danych dwóch wierszach odpowiednio w kolumnach od 'A' do 'H' oraz 'K' są te same wartości to ma ono połączyć wartości w kolumnie 'I' oraz 'J'. Ale ma łączyć...
hej, Tak jak poprzednik ja również staram się przyspieszyć wystawianie zawiadomień i protokołów do Klientów - dlatego skorzystałam z Waszego kodu :) I wszystko było by pięknie ponieważ pliki dzielą się i nazywają tak jak chce, ale niestety (nie wiem czemu) pomimo, że oryginalny dokument ma 4 strony wychodzi tylko 1 strona (usunięcie komendy: Selection.TypeBackspace...
Pomysł super, jednak arkusz dane to stan bieżący systemu, natomiast ark 2 to pożądany stan systemu. Porównanie ma na celu przyspieszyć wprowadzanie zmian do systemu. Celem jest poprawienie danych w systemie w ten sposób by były identyczne z ark 2. Istotne są zmiany y w trzech kolumnach : a, c, d( data niestety też jest bardzo istotna wartością). Gdyby...
w bazie jest ponad 22tyś. Łącznie definicji jest ok 150, czyli takich wierszy składających sie np. na klasę A1, samych klas ostatecznie jest ok 30 ( czyli uogólniając po 5 wierszy na klasę) To przypisywanie do klasy to czynność jednorazowa? Jeśli tak, to optymalizacja kodu nie jest aż taka istotna. Jeśli nie, to może pogrupować te klasy na grupy, które...
Bardziej chodziło mi, że makro jest przygotowane na sortowanie nawet stu wartości w wierszu, Ty masz to do lotto, specyficznie do 6 liczb, więc Const MaxX możesz zmienić na 6 spokojnie, wtedy będzie brało pod uwagę tylko kolumny od A do F. Jeśli będziesz chciał sortować losowania z innych gier, gdzie załóżmy jest losowane 20 liczb, to wtedy można to...
OK UDALO SIE !!!! Dodano po 1 marcinj12 miał na myśli ponowne włączenie automatycznego przeliczania arkusza, bo: Application.Calculation = xlCalculationManual włącza przeliczanie ręczne (defaultowo - klawisz F9), żeby przyspieszyć podmienianie wartości w komórkach. Tak więc po wykonaniu całej pętli powinieneś na nowo włączyć przeliczanie automatyczne,...
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. ProcessorIntel(R) Core(TM)2 Quad CPU Q8200 (at) 2.33GHz, 2331 Mhz, 4 Core(s),...
Kolumny "M, N" obsluguja pierwsze makro cmb1 ktore sluzy do znalezienia osob ktore nie wykonaly zadnej tranzakcji w ciagu roku (na podstawie numeru karty klienta I daty z arkusza "Klient", a nastepnie usuwa te konta po czym wszystkie dane z kolumn "M,N" sa usuwane rowniez) Kolumny "P,Q,R" obsluguja drugie makro cmb2 ktore sluzy do utworzenia archiwum...
Dzień Dobry, Z VBA w Excelu mam doczynienia od niedawna i dopiero co poznałem w wąskim zakresie programowanie. Problem dotyczy wolno działającego makra. Nie potrafię go usprawnić, by działało szybciej,a przy 25 000 kopiowanych wierszach trwa to około 25 minut :/. Proszę o pomoc we wskazaniu błędu, podpowiedzi i sugestie. [syntax=vb]Sub Aktualizuj()...
Możesz wrzucić ten plik? Masz w nim jakieś makra uruchamiane przy starcie?
O takie makro mi chodzilo. W moim arkuszu mam dwie zakladki o identycznym ukladzie wierszy i kolumn. Chcialbym aby makro dzialalo niezaleznie na obu. I jeszcze jedno pytanie. Moj oryginalny arkusz jest dosc odszerny w ilosci danych tak wiec po uruchomieniu zajmuje to odrobine czasu. Czy istnieje sposob aby przyspieszyc makro/otwieranie pliku np. przez...
... tylko w razie gdy formuły działają zbyt wolno. Jak formuły działają zbyt wolno to przyspieszenie działania makrem wymaga sporo wysiłku. M$ jest jaki jest ale programować umieją. Oczywiście można wykorzystać szczególne przypadki (oni jednak musieli robić rozwiązania uniwersalne), ale to nie zawsze daje zauważalne efekty. Np. czy udało się komuś...
... 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...
potrzebujesz pomocy z kodem w VBA czy szukasz kogoś kto napisze całe makro? Dodano po 1 Przygotowałem w zasadzie bardzo proste makro: Kopiuje Twój arkusz "x1" (nazwałem go "Template") i w nim zmieniam tylko dane. Nazwę nowego arkusza biorę z arkusza "Wyświetlenie odczytów" z kolumny A czyli "Lp." ale idzie to łatwo zmienić w kodzie (dodałem tam komentarz)...
Masz rację do druku wysyłane są strony z dokumentu o tej samej nazwie obecnie w zupełności wystarcza mi wydruk, Twoje makro przyspieszyło mi znacznie pracę. Dysponuję starszą wersją Excela więc gdy będę miał potrzebę zapisania kilku stron w pdf zastosuję Open office Bardzo dziękuję za pomoc Temat uważam za zamknięty
w takich przypadkach używam 'PODAJ.POZYCJĘ' i 'INDEKS' w linii w przypadku, gdy nie ma błędu(jest dane), pracują na zamkniętych arkuszach. Dodano po 3 takiego makra VBA ,które przyśpieszyło by to wyszukiwanie ? funkcje arkusza zawsze szybciej niż makro
Działanie makra znacznie przyspieszy wyłączenie odświeżania ekranu na czas jego działania. Podejrzewam również, że dałoby się inaczej podejść do zagadnienia. Ale tu potrzebny byłby załącznik w postaci pliku z przykładowym arkuszem i określeniem warunków dla formatowania.
1. Wiec w tym ostatni pliku potrzebowal bym w zakladce pionowo jakis przycis (makro) ktory by automatycznie usunol czesc tekstu "6pao" i "6pac" poniewaz wszystkie kody kreskowe to posadaja to z przodu ale w systemie sa tylko liczby aktualnie jest tam "6pao" ale czsami jest "6pac" czsmiami sa pomieszane jet to i to wiem ze mozna to usunac formula albo...
Makro działa rewelacyjnie. To jest właśnie to czego potrzebowałem; zdecydowanie przyspieszyło obróbkę danych. Serdecznie dziękuję i pozdrawiam. Grzegorz
Hej, Stworzyłam kod w wykorzystaniem Vlookup, niestety Excel mieli to kilka lub nawet kilkanaście minut, przy raptem 200 wierszach z danymi. Jest jakiś sposób, żeby przyśpieszyć działanie makro? Z góry dzięki wielkie za pomoc! [syntax=vbscript] On Error Resume Next Dim Dept_Row As Long Dim dept_Clm As Long Table1 = ActiveSheet.Range(“i1:i”...
Bardzo dziękuję za szybką odpowiedź. Niestety temat mnie przerasta i chyba Twoje wskazówki mi nie wiele pomogą. Jeśli znalazł by ktoś trochę czasu aby napisać mi makro to będę bardzo wdzięczny. Chcę tym makrem zautomatyzować prace w administracji publicznej - przynajmniej trochę przyśpieszy to prace. pozdrawiam
Drogi kolego sedr - stosuj się do swoich ciekawych wytycznych (jak np. ciało funkcji nie może mieć więcej jak 10 linijek, zakaz rzutowania, zakaz stosowania makr) i pisz tak fascynujące aplikacje jak opera, która już na starcie zżera 300 MB pamięci, bo przecież stosik wywołań funkcji musi rosnąć i rosnąć i wszystko musi być cacy. Ja gdy w dwóch miejscach...
Umieść kod w pętli i wykorzystaj jej zmienną do ustawienia kolumny do której chcesz kopiować. [syntax=vb]For i=1 to 6 step 6 ... ActiveSheet.Cells(Ostatni_wiersz + 1, i).Select ... Next[/syntax] A tak na marginesie to aż się prosi żeby ten kod uprościć. Na pewno przyspieszy to jego działanie.
Dzięki za info. Ze zdjęciem może być kłopot gdyż mój fon ma problem z trybem makro. Ponoć to problem tego modelu. Bardzo trudno ma wyłapać ostrość. Ale może się uda.
Powiem szczerze, że nie działa to zbyt płynnie i jest dodatkowo utworzony kolejny arkusz. Przy wyszukiwaniu np. numeru 100 000 000 po wpisaniu w wyszukiwarce 10 wyświetla się wiersz natomiast, gdy wpiszę 100 to już nic nie wyszukuje. Przy filtrowaniu wyszukuje bardzo dokładnie nawet po fragmencie numeru, który znajduje się w środku natomiast nie ma...
Przy okazji się zapytam. Z tego co widzę w pliku stm32f10x_conf.h to USE_FULL_ASSERT jest domyślnie wyłączone, czy tak? Jeśli źle to czytam, to jak wyłączyć to makro? Mówicie że biblioteki od STM są wolne, ale czy prawdą jest że pozbycie się ich, a zarazem przyspieszenie pracy programu wiąże się z takimi zapisami jak: GPIOx->BSRR= warosc
marcinj12, Dzięki za tę podpowiedź. Poprawie to w kodzie i zobacze czy choć trochę przyspieszyło. Szczerze mówiąc to nie wiem, która zajmuje więcej czasu, wydaje mi się, że delete, ponieważ jest odpalana dwa razy (w dwóch arkuszach). Jeżeli chodzi o ilość danych, to przy około 300 wierszach radzi sobie w miare szybko, jednak już przy tysiącu, niestety...
przyspieszyć lenovo przyspieszyć łączyć przyspieszyć laptop
lodówki bosch opinie zmiana cyfra sportowy wałek rozrząd
pomiar rezystancji wewnętrznej ogniw internec firmware
Opis pinów żółtej kostki licznika Citroën C4 Picasso Toyota Yaris 1 2003 – bezpiecznik deski rozdzielczej, GAUGE, TAIL, lokalizacja, wymiana
