Ja w "międzyczasie" napisałem coś takiego: [syntax=vbscript]Sub GoalSeekinRange() Dim i As Long, RngForm As Range, wks As Worksheet Dim RngGoal As Range, Rngx As Range Set wks = Worksheets("Brudnopis") Set RngGoal = wks.Range("L5:L9") Set Rngx = wks.Range("J5:J9") Set RngForm = wks.Range("K5:K9") For i = 1 To RngGoal.Count If IsNumeric(RngGoal(i)) And...
Niestety też nie widzę opcji by nie było makra. Ale nie makro ukrywające tylko zwykłe wprowadzenie informacji do wydruku do ilu stron ma drukować. Czyli pod przycisk "wrzucić" [syntax=vb] Sub Druk() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets("POŚW").Range("E22") End Sub [/syntax] I "drukować" przyciskiem.
Zastanów się, czy makro toggle jest operacją atomową. W tym kodzie można tą operację rozbić na 3 etapy: pobranie IO_PORT, zanegowanie bitu oraz zapisanie IO_PORT. Jeśli przerwanie wystąpi pomiędzy pobraniem a zapisaniem IO_PORT, przerwanie spowoduje zmianę stanu pinu, ale zaraz po powrocie nastąpi wpisanie nowej wartości z IO_PORT, z którą wiąże się...
Dzień dobry, Jeśli rozwiązanie ma być w Excelu to należy użyć funkcji JEŻELI np. =JEŻELI(A1>151;150;A1). Formułę można potem skopiować, aby objąć wynikami cały zakres. Można też najpierw zaznaczyć zakres, wprowadzić formułę i nacisnąć Ctrl+Enter, nie trzeba już będzie kopiować. Wyniki można zamienić na stałe, jesli to konieczne. Skopiować Ctrl+C, potem...
Po pół godzinie wczytywania się załapałem (chyba) o co chodzi. Po pierwsze czy aby na pewno nie będzie interesowało cię za co klient zapłacił? Bo czyszczenie danych i przygotowywanie do kolejnego "wpisu" zlikwiduje szczegóły (składowe) danej wpłaty. Druga rzecz związana z brakiem sumowania. Może jest błędna formuła (nie uwzględnia wszystkich komórek)...
OK, rzeczywiście jest jak mówisz. Wracając do makra z tego ostatniego pliku: zmień linijkę rekalkulacji w Excelu. Zmiana koloru takowej nie powoduje, więc dopóki coś nie zmieni wartości, funkcja pokaże starą wartość. PS 3. Nie wiem czemu piszesz, że nie możesz funkcji użyć w kodzie VBA: taki sposób wywołania działa: [syntax=vb]MsgBox SumByColorsFuction(Range("AA4:AA13"),...
Jeśli w zakresie są formuły, to zmienia postać rzeczy. Spróbuj wykorzystać inne zdarzenie. [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim kom As Range For Each kom In Range("C13:G13") If kom.Value < 0 Then MsgBox "Błąd w " & kom.Address(False, False) Next End Sub[/syntax]Warto może ograniczyć Target.Range, bo zmiana...
Wpisywanie $CRYSTAL bez rzeczywistej zmiany taktowania procesora będzie powodować, że wszelkie opóźnienia i obliczenia kompilatora dotyczące liczników nie będą zgodne ze stanem faktycznym. GETRC5() korzysta aktywnie z licznika TIMER0. Tak manewruje wartością wpisaną do rejestru licznika oraz preskalerem by otrzymać jednakowe odcinki czasu zliczane później...
... 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...
Rzeczywiście, do końca to "w = w+2" nie działa, Sprawdza się gdy pierwszy wiersz to liczba nieparzysta a następny parzysta, Jak odwrotnie to już nie. Ale gdyby wstawić na górze arkusza jeden wiersz to pary parzysta, nieparzysta zamienią się i makro zadziała a potem 1 wiersz usunąć Wiem, że jest to nieeleganckie rozwiązanie, ale na ten moment nie widzę...
https://obrazki.elektroda.pl/7268233500_... Ten artykuł powstał w odpowiedzi na propozycję kolegi (at)Techekspert i jest rozwinięciem mojej prezentacji przedstawionej na konferencji The H(at)ck Summit w dniu 20 października 2023 r. Samą prezentację możesz pobrać stąd: Wyrzucamy algorytm Gutmanna do kosza Podstawowe informacje o niszczeniu...
http://obrazki.elektroda.pl/9209500600_1... O tym, że większość padów do PEGASUSa często ulega uszkodzeniu, nie trzeba nikogo informować. I nie chodzi tu o uszkodzenia kabla czy też wtyczki, ale układu scalonego będącego w padzie. Zwykle uszkodzenie objawia się: * całkowitym brakiem reakcji na wciśnięcia klawiszy, * niedziałaniem niektórych...
ok, działa jednak teraz blokuje się arkusz bo skoro caly czas jest wpisane Start to makro za każdym razem się odpala. Po wykonaniu makra powinna nastąpić zmiana wartości Start na Koniec. Tylko jak to zrobić?
Bardzo dziękuję za zainteresowanie moim tematem. Dołączam pliki, które pomogą zrozumieć o co mi chodzi. Odpowiadając na postawione przez Ciebie pytania doprecyzuję o co chodzi: Pisząc o tym, że nie ma być pustych wierszy, chodziło mi o to, że każdy wiersz w zakresie zawiera formułę wczytującą dane z plików (górny zakres z "plik" i dolny zakres z "plik1")....
Temat do zamknięcia, Maciej rozwiązał moją zagadkę :) Bardzo dziękuję!! Makro działa świetnie, na pewno zaoszczędzi mi wiele monotonnej pracy.
Witam. Utworzyłem makro do zmiany koloru karty w zależności od wartości komórki. Jeżeli w komórce F6 wartość będzie większa od 0 to karta zmieni kolor na czerwony. Makro działa, ale muszę je wywoływać każdorazowo uruchamiając to makro. Na razie poradziłem sobie tworząc we wszystkich kartach przycisk uruchamiający to makro, ale jest to trochę bez sensu....
W Twoim opisie coś nie gra :cry: Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9... Ma skopiować dane z wiersza powyżej . To znaczy, z którego wiersza ma kopiować jeśli zmiany wprowadzasz w "w pierwszym wierszu" :?: :D Wierszy mam około 2 000 tyś 2 mln wierszy to musisz pomieścić w dwóch tabelach wykorzystując całą wysokość arkusza (jeden...
Witam ponownie. Mam jeszcze jeden (w najbliższym czasie) problem do rozwiązania. Niestety formuły tutaj nie udało mi się skonstruować (ale jeśli można to chętnie wykorzystam :) ), dlatego kieruję prośbę o pomoc do programistów VBA. Żeby zrozumieć o co mi chodzi, trzeba zapoznać się z arkuszem, który załączyłem do tego postu. Natomiast opis wklejam też...
Dzień dobry. Zwracam się z prośbą o pomoc przy kolejnym projekcie :) . Próbowałem coś porobić samemu, ale skutek mizerny z tego wyszedł. Nie bardzo umiem w VBA a niestety nie wszystko można załatwić formułami. W czym problem? Mam arkusz zawierający 6 komórek z listami. Nie każda zawiera pozycję "RAL" (numer koloru lakieru). W załączonym arkuszu dwie...
W pliku na stronie mam Tabelę i CommandButton1 którym wywołuję makro zamieszczone poniżej. Nie wiem czy do końca jest ono prawidłowo złożone, ale działa. [syntax=vbnet] Private Sub Worksheet_Activate() If Range("H6") = "drukuj" Then Range("H7").Value = "Tak" If Range("H6") = "nie drukuj" Then Range("H7").Value = "Nie" If Range("I6") = "drukuj" Then...
aby po zmianie wartości w komórce B11 recznie? With Range("B39") Gdzie End With ?
Witam. Nie potrafię sobie poradzić z zamianą wartości w komórce, jeżeli ta wartość jest wynikiem formuły. Nie pomaga nawet przekopiowanie tejże wartości do innej komórki i wklejenie samej wartości. Dokonując zmany popzez ctr+f "zamień" nic się nie dzieje poza pogrubieniem trzcionki. Dodam, że próbuję wspomnianą wartość zamienić na pustą komórkę. ( Nie...
Witam mam ogromną ogromną prośbe o makro. W załączniku jest plik do którego potrzebowałybym makro. Mianowicie chodzi o tabelę pomiarów która jest cała na czerwono w arkuszu zar1 2.5st. Chodziłoby o makro które będzie odejmować,dodawać lub nic nie robić(+,-,= takie funkcje). W tabeli pomiarów znajdują się cztery kolumny: praca ciagła, postój 1 s, postój...
Cześć. Bardzo proszę o pomoc. Mam plik excel w którym jest 150 arkuszy o nazwach liczbowych odpowiednio 1, 2, 3... 150. W każdym jednym arkuszu chciałbym aby było makro które kopiuje konkretne dane do nowego pliku (zawsze te same od S6:V6). Plik excel z makrami jest "matrycą" która co miesiąc powstaje nowa (służy do rozliczania zleceń) i zmienia się...
Drodzy użytkownicy, Mam taki problem, że nie potrafię napisać kodu za pomocą którego będę mógł zmieniać wartość skali osi X na wykresie. Chciałbym za pomocą przycisku żeby makro dodawało 0,002 do skali oraz tyle samo odejmowało Mianowicie wykres wygląda tak: https://obrazki.elektroda.pl/3439578800_... https://obrazki.elektroda.pl/8731476400_...
W zasadzie ładnie algorytm już opisałeś, pozostaje tylko poszukać odpowiednich funkcji. Wg mnie, jeżeli nazwy w kolumnie A nie będą się powtarzały, to o wiele prostsza w użyciu będzie funkcja .match , np. [syntax=vb] Szukana_nazwa = Worksheets("Arkusz1").Cells(ActiveCell.R... 1).Value 'Wiersz aktywnej komórki, kolumna A czyli 1 Nr_wiersza = Application.WorksheetFunction.Match(Szuk...
Spróbuje wyjasnic jeszcze raz o co mi chodzi. Dodaje dwa pliki z excela(jeden z makrem drugi bez). Mam dużo większą ilość danych niż w przykladowych plikach i większy rozrzut wartości zakończonych gwiazdką(*). Potrzebuje pozbyć się gwiazdek do czego stworzyłem proste makro. Po jego wykonaniu gwiazdki znikają, lecz formatowanie tych komórek pozostaje...
Andie, bardzo dziękuję za Twoją odpowiedź. Sprawa niestety wygląda tak, że wartości komórek J4, J5 to również wynik formuł w nich zawartych, a te odnoszą się do kolejnych komórek z formułami... dość to rozbudowane, dlatego załączam prosty plik (w załączeniu; rozszerzenie zmieniłem z .xlsb na .txt ponieważ nie mogłem załączyć pliku z rozszerzeniem .xlsb),...
Mam problem z napisaniem makra które działało by przy następującym zdarzeniu: Zmiana wartości w komórce a1 -(lista rozwijana) powodowała by odpowiedni wpis do komórki b12. (ten sam arkusz) np. komórka a1 - wybór z listy - "spec" w komórce b12 - pojawia się zapis - "4210" oraz w komórce b13 - pojawia się zapis - "4260" i tak dla kilkunastu pozycji z...
PS. do drugiego kanału wystarczy zdublować zmienne mn. czas aktualny itp. oczywiście z dopiskiem na przykład ''czas aktualny 2 '' ? W najprostszym rozwiązaniu tak, na upartego można by korzystać z wspólnych przy założeniu że nie będziemy używać wielu przycisków jednocześnie, wtedy zaoszczędzimy te kilka bajtów w pamięci (cóż za herezja w 2021 roku...
Procedurę vlookup która będzie szukać danej wartości w kolumnie A i kopiować cały zakres wiersza do oddzielnego pliku raport . Problem w tym że formuła vlookup szuka tylko pierwszej wartości więc chcę to ominąć przez dodanie do każdego pliku formuły która będzie zmieniać wartość kolumny A poszczególnie do zmiany . [syntax=vbscript]Private Sub CommandButton1_Click()...
Witam, mam wielką prośbę o pomoc. Potrzebuję stworzyć makro, które będzie podmieniało wartości komórek w kolumnie w zależności jaka wartość tekstowa zostanie znaleziona. Przykład: Mam komórki które zawierają: Dobre_Kino Kina Super_kino_ Samochodu Jadę Samochodem KOTEK Dla_kota Makro powinno wyszukiwać ciągi tekstowe: "kin", "samoch", "kot" i tak gdzie...
Program masz "prawie" gotowy. Pomyśl, potrzebujesz odwołać się do Nr wiersza komórki spełniającej kryteria (tutaj zmienna "abc", zadeklarowana jako 'Range'). Będzie to wartość właściwości 'Row'. Następnie należy znaleźć lub określić Nr ostatniej w wierszu. Zadziałaj podobnie (metoda End), jak masz to z licznikiem pętli. Pozostaje przeliczenie (wymnożenie)...
Bardzo bardzo dziękuję! Praktycznie o to mi chodziło. Natomiast jeszcze 2 pytania: 1) Czy duża byłaby zmiana w kodzie gdyby dla braku nazwy czy braku numeru w arkuszu config, makro nie wyświetlałoby komunikatu tylko pozostawiało stare wartości w kolumnie z nazwą? (Arkusz1) Po prostu żeby wtedy przechodziło dalej do kolejnej linijki nic nie robiąc.....
trudność jest, że w formatowanie warunkowe jest używany ColorIndex, ale do wykresy mają tendencję do RGB(), tj. kolory nie będą zgodne... Dodano po 1 te wartości procentowe zmieniają się przez formuly? Dodano po 10 ciągną się z innego arkusza potem odpalic makro np dla Wykres 1 [syntax=vb]Sub Kol_w1() Sheets("Raport").ChartObjects("Wykres 1").Chart.SeriesCollection(1).Points(1)....
Panie Macieju, serdeczne podziękowania, zrobiłem wstępną próbę i wygląda na to, że makro spełnia dokładnie moje oczekiwania :)) Jutro wprowadzę pełne dane do Arkusza2 i zobaczę jak się wtedy zachowa skrypt. Parę linijek tekstu co mieisąc zaoszczędzi mi ze 2 godziny roboty. Gdyby Pan miał chwilę i podesłał jeszcze jedną zmodyfikowaną wersję, w której...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Oczywiście możesz czasy po prostu podzielić przez 16 A nie pomnożyć? Tzn. wiadomo, że czasy trzeba zapewnić takie same, a więc pomnożyć ewentualne stałe na bazie których odmierza się opóźnienie. Albo na przykład pomnożyć wartości dla sprzętowych liczników, jeśli na bazie ich odmierzasz sobie czas. Jeśli korzystasz z delay.h z avr-libc, to tak jak pisze...
Panowie. Mam takie problem. Kiedy mamy stworzoną tabele w Excelu przy każdorazowym dodaniu nowej wartości wiersza tabela nam się powiększa mam na myśli głownie formatowania. Na czym polega problem? 1.Więc kiedy usuwamy wartości z wiersza formatowanie zostaje.W jaki sposób stworzyć taką tabele aby np dane o wielkości tabeli były pobierane np z pierwszej...
Dzień dobry, Na wstępie powiem że ze wszystkich sił starałam się nie fatygować nikogo by mi pomógł znaleźć rozwiązanie problemu, próbując sama zrozumieć dlaczego tak się dzieje. Jednak moja nieznajomość VBA wzięła górę i do co utknęłam w martwym punkcie (choć może nie do końca bo makro w sumie robi co chce). Makro które udało mi się stworzyć, przerabiając...
Tak jak napisałem wcześniej przy konstrukcji nie brałeś pod uwagę GN , robisz zdjęcia na F 18 (tak sobie wymyśliłeś ) zatem parametry lampy po uwzględnieniu dyfuzora powinny być dobrane . Jako matecznik wybrałeś lampę która ma jakieś 12 GN , lampa nie ma sterowania siła błysku . Jak dostosujesz parametry ekspozycji dla lampy w której nie można zmienić...
Witam. Ponieważ na innym forum nie uzyskałem jak dotąd pomocy to może tutaj znajdzie się pomocna ręka. Mam problem , którego ja sam nie mogę rozwiązać od jakiegoś czasu , a który nie pozwala mi spać (autentycznie - to nie przenośnia). W załączniku mam tabelkę. Arkusze "target" oraz "wykonanie" to łącza do skoroszytów , które będą ulegały zmianie. Zmiana...
Dzięki wielkie za naprowadzenie lanzul ;) Function Totalcost(zakres As Variant, rate As Variant) As Double Dim i, j As Integer For i = 1 To zakres.Rows.Count j = 1 Totalcost = Totalcost + ((zakres.Cells(i, j) + zakres.Cells(i, j + zakres.Columns.Count - 1)) * 1.5) * rate.Cells(i, 1) For j = 1 To zakres.Columns.Count...
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,...
poszczególnych konfiguracji w tabeli arkusza Excel z poziomu SolidWorks Nie wiem jak to wygląda w Solid Works, ale zakładam, że tam jest VBA i z jego poziomu łączysz się z Excelem przez referencje. Jeśli tak to chyba należało by pisać tak (Nie w Excelu!): [syntax=vb]Sub RunMakro() Call OpenExcel40(Empty) End Sub Private Sub OpenExcel40(DimCol) Dim...
A czy można i jak zapisać aby działało w całej kolumnie? W kolumnie, wierszu, zakresie, poza zakresem. Jak sobie życzysz. Po wpisaniu 'Target' i postawieniu kropki w edytowanym kodzie, otworzy się lista rozwijalna z własnościami i metodami. M.in. Address, Column, Range, Row, itp. W niemal każdym przypadku będzie nieco inna składnia zapisu. Można o...
Akurat kwestia tworzenia samego designu strony w oparciu o tabele to żaden kłopot więc nie zrozumieliśmy się - sądziłem że coś się zmieniło w budowie stron na ramkach (ostatnią stronę robiłem z 4lata temu). Co do opublikowywania w postaci htmla wprost z excela to pisałem że robi się totalna masakra i zupełnie nieczytelne biorąc pod uwagę 100kolumn....
https://obrazki.elektroda.pl/4671082400_... Interfejs graficzny Home Assistant opiera się o potężny język szablonów Jinja2. Jinja2 używany jest do przetwarzania danych z czujników, tworzenia warunków w automatyzacjach czy dynamicznego formatowania komunikatów. W celu ułatwienia pracy z Jinja2 Home Assistant oferuje wygodne narzędzie...
Witam, Zmontowałem kiedyś sygnalizator jak w temacie. Działa dobrze, sygnalizuje przekroczenie górnej temperatury nastawionej, sygnalizuje spadek temperatury poniżej 0 stopni. Przydała by mi się jeszcze funkcja sygnalizacji przekroczenia dolnej nastawionej temperatury. Może ktoś podpowie co zmienić w kodzie ? KOD: [syntax=c]/*****************************...
Wierszy by było około 5tys. i są to podobne wartości (raport kasowy) Jeżeli wszystkich 5 tys wierszy to nie ma sprawy. Excel ma w jednym arkuszu 65.635 wierszy w każdej kolumnie. Jeżeli w każdym arkuszu masz po 5 tys to razem 600.000 wierszy więc jeżeli już to trzeba to będzie rozdzielić na parę kolumn. Kolumn jest w 2007 do IV czyli 256. A tak już...
Witam, Myślę nad zrobieniem czegoś w stylu wyszukaj.pionowo + zamień, dla tekstu zawartego w jednej komorce. Chodzi o to że z innego skoroszytu chce wyciągać wartości odpowiadające tekstowi zawartemu w powiedzmy komórce C1. Nie byłoby w tym nic trudnego gdyby w tej komorce znadowal sie tekst tylko dla jednego rekordu a wynik wyszukaj pionowo mialby...
uruchamianie makro zmiana wartości excel makro zmiana wartości makro wklejanie wartości
zdjąć obudowę pieca junkers wszystek kontrolka oznaczać schemat syrena alarmu
interfejs diagbox bateria hilti
CD4013 dzielnik przez 2 – schemat połączeń i opis działania przerzutnika D Schemat instalacji poduszek powietrznych BMW E36 – SRS, MRS I/II, kolory przewodów, diagnostyka
