le bez niego nie wiem jak to zrobić inaczej aby znaleźć w drugim arkuszu nazwisko wybranego pracownika. Tak jak Maciej wcześniej pisał, bez załącznika ciężko cokolwiek doradzić ale tak bez sprawdzania na szybko zrób tak. Tą linijkę usuń [syntax=vbscript]Set SzukaneNazwiskoRow = tb_GrafikTSW.ListColumns("NAZWISKO_TSW")...
Do tego nie jest Ci potrzebna żadna pętla. Najpierw musisz sobie określić pierwszy wolny wiersz w arkuszu Inkrementacja jest zbędna przecież (kod pod przyciskiem)... 1. Wywal pętlę. 2. W miejsce a=a+1 wpisz powyższą linię i ciesz się działaniem.
Dziękuję bardzo za pomoc. Muszę doczytać o działaniu tych procedur.
Tak się domyślałem. Po co w takim razie pętla czytająca pliki ?
Witaj. Makro to dość precyzyjny zbiór poleceń, więc projektując jego działanie musisz określić dokładnie co skąd i gdzie ma kopiować. Wartość "na przykład" 3000 lub jakiś (jaki?) tekst ma być od czegoś zależna? Skądś pobierana? Gdzie ma być "dana kolumna", o której wspomniano? Znowu mamy inną wartość przykładową, "na przykład" 0000 lub jakiś tekst w...
Podejrzyj sobie (np. MsgBoxem) ile wynosi wartość Cells (1,8) / 23. Albo inaczej - jaki według Ciebie powinien być wynik działania 2013-01-01 podzielone przez 23 (data podzielona przez liczbę)?
Pewnie, że lepiej.:) Lecz wadą tego rozwiązania jest to, że po 'przeleceniu' makra nie będzie działać obliczanie D = A + B.
Zwiększ eksperymentalnie dopuszczalną wartość komórki w wierszu 19 (linia 10 w module). Na początek If Cells(19, kol) > Cells(21, kol) * 250 Then Zależy jakie maksymalne liczby wpisujesz w 5 i 13 wierszu. Policz. Sam widzisz, że to zabezpieczenie jest potrzebne. Gdyby go nie było, pętla w określonych warunkach nie skończyła by działania...
w naszej pętli zamiast MsgBox wystarczy podstawić Razem byłoby coś takiego Sub petla() For i = 2 To Range("D2").End(xl... For j = i To Range("D2").End(xl... If Cells(j, 4) <> Cells(j + 1, 4) Then Exit For 'porownanie w kol D indeks 4 Next i = j 'żeby nie od...
Moje pytania: 1. W jaki sposób opisać warunek w którym pętla będzie działać aż do znalezienia pustej komórki w kolumnie B? 2. W jaki sposób stworzyć zapis w którym komórka B1 i C1 z Arkusza1 będzie zastępowana kolejnymi komórkami z kolumny B i C z Arkusza2 i zapisywana? 3. W jaki sposób opisać kolejne komórki (A1+i)? Nie mogę znaleźć odpowiedniego...
Ale mnie chodzi o Makro wstawiające do bieżącego Skoroszytu (Zeszytu) Makro we we właściwości: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) No i w czym problem? Ja podobnie jak adamas_nt nie rozumiem problemu... plik1.xls ok plik2.xls ok plik3.xls ok
Przejdź krokowo (klawisz F8) i zobacz ile kroków wykonuje pętla. Może trzeba zmienić warunek, może kolumnę. Nie wiem, nie widzę pliku źródłowego... Jeśli działało Ci to (na tylu zmiennych obiektowych) dla jednej linii, powinno działać w pętli.
Za dużo kombinujesz ;) Wszystko można zmieścić w takim oto kodzie, komentarze - bez zbędnych dywagacji - w kodzie :) Mam nadzieję że zasadza działania jest jasna? W zasadzie to tylko pętla po wierszach i kolumnach + parę if'ów tłumaczących format excela na worda. "Sekret mnicha" tkwi w tym, żeby ustawić format paragrafu w Wordzie przed wypisaniem tekstu,...
Co tu tłumaczyć wrs = Columns(2).Find(what:=Ra... lookat:=xlWhole).Row Rows(wrs).Delete 'Rows(wrs).ClearContents 'w zależności od sensu słowa "wykasować" i wszystko jasne... Gdyby nie znalazł, warto ten fakt zakomunikować. Np On Error Resume Next wrs = Columns(2).Find(what:=Ra...
Witam. Mój problem wygląda następująco: Posiadam zewnętrzny program w którym pojawia się okno zapisu. Chciałbym aby excel wklejał ze swojej kolumny wartość jednej komórki do okna zapisu i klikał ok aby zapisać plik następnie, kopiować kolejną komórkę i czekać aż otworzy się kolejne okno zapisu aby wkleić wartość (pętla) W tym zewnętrznym oknie mam największy...
Dziękuję, wszystko działa :) Wydaje mi się, że próbowałem też tak jak napisałeś, ale mimo to nie działało. Pewnie gdzieś miałem jakiś błąd wtedy... Temat do zamknięcia :)
Dziękuję bardzo. Jeszcze jedno pytanie. Jak zrobić aby pętla zaczynała się od B4, a nie od początku arkusza jak teraz? Próbowałem zmienić For w = 4 To ow, ale jeżeli komórki na samej górze nie są wypełnione, to skrypt nie działa. A chciałbym aby zaczął on działać np od wiersza czwartego do końca :)
Dziekuję bardzo za odpowiedź! Faktycznie, przeklejałem fragment kodu by dać pojęcie co robię, mój problem występuje później, powinienem był podesłać również etap odpowiedzialny za otwieranie arkusza. Na tę chwilę nie jestem jeszcze pewny czy wyjdzie mi pętla usuwająca wszystkie takie same numery, ale dzięki ogromne za pomysł i na pewno będzie działał...
Wydaje mi się, że pętla zmieniająca tylko kryteria wyszukiwania w zakresie, który jest stały będzie działać szybciej. Podobnie jak funkcja WYSZUKAJ.PIONOWO. Tutaj wynik działania formuły: =JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO(Arkusz... znaleziono: "&Arkusz1!A1&"";WYSZUKAJ.PIONOWO(Arkusz1... http://obrazki.elektroda.net/89_12354197...
To nadal nie wyjaśnia czym jest ta treść i w jakiej postaci ma się pojawić w mailu. Jeżeli ta pętla sprawia ci kłopot to ... spróbuj przygotować jednego maila z dowolnego wiersza. Ale tak, jak chcesz docelowo, ze wszystkimi bajerami. Jak już ci to będzie działało to dalej można pomyśleć jak rozwiązać Twój problem z pętlą. Czy dobrze zakładam, że jeden...
Przetestuj poniższe makro mając otwarty arkusz z tabelą wejściową [syntax=vb]Sub Sum_By_Account() Dim shSrc As Worksheet 'arkusz źródłowy Dim shDest As Worksheet 'arkusz docelowy Dim lOstRw As Long 'ostatnia zajęta komórka tabeli źródłowej Dim lOstRw2 As Long 'ostatnia zajęta komórka tabeli z wyfiltrowanymi unikatami numerów kont With Application .ScreenUpdating...
No, trochę zakręcone ;) 1. Dla pojedynczej komórki nie stosuj pętli For . Wystarczy Range () 2. Każda pętla (jeśli już) ma swój początek i koniec. Zjadłaś Next 3. Do porównania potrzebny jest wynik działania: If liczba Mod liczba = 0 Then Dlaczego przy Worksheet_Calculate ? Prościej byłoby przy Worksheet_Change gdzie warunkiem będzie Target.Address(0,0)="A1"...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
To zrób tak: 1. Posortuj obie listy po nazwisku (trzymajmy się tego przykładu). 2. Przebiegasz pętlą po 1 liście aż do napotkania różnicy i wtedy: 3. Wstawiasz brakujący wiersz w odpowiedniej (warunek większe lub mniejsze - obie listy są posortowane) liście. Musi zadziałać. Nie mam czasu myśleć nad przykładem - mam spotkanie. Dzięki za podpowiedź....
Witam. Mam problem z makrem, które muszę poprawiać za każdym razem aby poprawnie działało. Chodzi o to, żeby stworzyć pętlę (zapewne pętla For tu będzie się na dawać), która będzie kopiować dane z kolumny A co kolumny C pod dwoma warunkami: 1. Kopiuje w przypadku, gdy wiersz jest pusty 2. Kopiuje w przypadku, gdy w wierszu nie ma słowa "Terminal" Bardzo...
I tu się mylisz, niestety ale TAK Czy to "TAK" dotyczy pierwszego, czy ostatniego wiersza z mojego cytatu? Skłaniam się ku temu, że jednak chodzi o ostatni. Natomiast niema żadnego błedu Na pewno? http://obrazki.elektroda.pl/4256072200_1... A Twoim zdaniem co to za dziwadło? A powstało tu: http://obrazki.elektroda.pl/8661693700_1...
Jak taka pętla miała by wyglądać? Ano masz Array. Podstaw do zmiennej i... jazda. Wypróbuj takie coś [syntax=vb]Dim arkusze As Variant, zakresy As Variant arkusze = Array("Machine", "PR", "Price", "Dane", "KWS DANE", "DODATKI") zakresy = Array("AI1:BA1", "S1:AL1000", "F1:AD1000") Sheets(arkusze).Copy 'kopiowanie arkuszy do czystego pliku For i = 0...
[syntax=vb]For i = 3 To 31 Select Case i Case 3 To 7, 12 To 27, 30, 31 '[dzialanie] End Select Next [/syntax]
Witam, pracuję nad makrem które sukcesywnie będzie zczytywać odpowiednie dane z sieci WEB i wszystkie je zapisywać. Udało mi się już zmusić excel do automatycznego zczytywania danych co minutę. Problem polega na tym, iż taki plik coraz bardziej zużywa RAM. W związku z czym mam pytanie jak poradzić sobie z tym problemem? 1)Czy można włączyć excel który...
Już jest super :) . Brakuje jeszcze tylko odpowiedniej reakcji na wciśnięty przycisk "anuluj", w oknie zapisywania wywołanym po kliknięciu na x zamykający aplikację. Teraz jest tak, że kiedy kliknę na x i potwierdzę chęć zapisania pliku klikając "tak", a potem w oknie zapisu kliknę "anuluj", to skrypt wyświetli ponownie komunikat o istniejącej nazwie...
Tak, różne "kody" mogą mieć tę samą klasę, przy czym żaden kod się nie powtarza tzn. klasy A1 i B2 nie będą mieć tego samego "kodu". Wstępnie sprawdziłem i wydaje mi się że taka pętla powinna działać tak jak chciałem. Problem owszem mieć będę na pewno niestety żaden kurs excela nie pomoże jak się w temacie nie siedzi i nie rozwija, a wręcz się cofa...
Byłoby prościej, gdybyś załączył plik). Spróbuj jeszcze z wyłączoną obsługą zdarzeń na czas działania pętli (Application.enableEvents=false/true)
Tak szczerze, zaraz wytłumaczę dlaczego "gotowiec" by mi się przydał: znam się tak "trochę" na excelu, ale na podstawowych funkcjach itp, nic nie wiem na temat makr, vba itp i moje rozumowanie w przypadku twojej odpowiedzi wygląda tak: " ustalasz ilość wierszy do wyszukiwania na podstawie ostatniej nie pustej komórki w kolumnie E" - GDZIE USTALAM TZN...
Jak to "tak już jest"? Tzn że "ten typ tak ma" i nie można nic na to poradzić? Akurat to co ci nie odpowiada jest jak najbardziej prawidłowym działaniem excela. Jeżeli odwołuje się do jakiejś konkretnej danej np A5 w innym arkuszu to pomimo sortowania w arkuszu w którym mam formułę oczekuje że pomimo przesunięcia związanego z sortowaniem zawsze będzie...
Różne drogi prowadzą do Rzymu Zastosowałeś jedną w VBA (jak dla mnie trochę przekombinowaną - ale działa) Ja bym to zrobił np. tak edit: Jak teraz patrze na "twoje" rozwiązanie to widzę że właściwie są tam zmieszane ze soba (przedstawione wyżej przeze mnie) dwie metody na raz, co jeszcze bardziej przekonuje mnie w stwierdzeniu "przekombinowane".
Dzięki za pomoc, kod działa pięknie, teraz tylko muszę zrozumieć mechanizm działania Jakoś tak się złożyło że nie znam za dobrze mechanizmu tablic i funkcji Index Ja wcześniej kombinowałem z pętlami i udało się że rozdziela tekst, ale wypisuje mi go pionowo, Ale Twój pomysł z funkcją jest super. Prośba o wytłumaczenie kodu, mechanizmu (opisanie), szczerze...
Poniżej masz kod, który dokonuje sprawdzenia tych warunków. Ponieważ nie wiem czy bazujesz na starym kodzie, czy robisz coś nowego, więc podpiąłem go do przycisku - chodzi o zasadzę działania. [syntax=vb]Private Sub CommandButton1_Click() bledy = False Me.Frame1.BorderColor = &H8000000F Me.Frame1.BorderStyle = fmBorderStyleNone Me.Frame1.SpecialEffect...
Po pierwsze. Jak poszerzasz dane to pamiętaj o poszerzeniu sortowania (do kolumny G): ">0" i zrezygnować z pętli. Chyba że: 1. "kod" może wystąpić dwa razy i wtedy też ma się pojawić dwa razy "zwrot..." 2. "Kod" może pojawić się po 10 znaku i wtedy jest "nieważny" Poniżej wersja 2 ale bez pętli (wycinam fragment tekstu - 11 znaków dlatego że kod jest...
Jeżeli warunkiem podstawowym jest suma=34, to ilość obliczeń można istotnie zredukować unikając niektórych pętli. Skoro suma wartości minimalnych z zakresów wynosi 17, a maksymalnych 43 to można wstawić PRZED ostatnimi dwiema/trzema pętlami dodatkowe warunki: - jeśli dotychczasowa suma + maksymalne wartości z następnych pętli nie osiągają 34, to w ogóle...
Witam, tak jak napisałem w temacie piszę makro w celu umożliwienia sobie kopiowania warunkowo danych na przecięciu konkretnej kolumny z konkretnym wierszem, warunkiem jest to by na przecięciu wiersza i kolumny znajdowała się jakakolwiek wartość. Muszę tym samym sprawdzić wszystkie wiersze po kolei, w tym celu napisałem kod: wszystkie wartości z danych...
Witam. Po długich i żmudnych działaniach udało mi się stworzyć pierwszą działającą pętle w Excelu. Sukces! ale nie do końca. Chciałbym alby ta pętla działała automatycznie. a do tego już nie wiem jak się zabrać. Zgłaszam się z pomocą. Kod wygląda tak: [syntax=VB] Private Sub Button1_Click() Dim n As Integer Dim x As Integer n = 1 x = Range("D4").Value...
Hmm, u mnie zamiera na AutoFill... Nie mam cierpliwości, żeby doczekać do końca. Na próbce 1000 wierszy trwa to ~7min Pytanie zasadnicze: czy w kolumnach "M, N" muszą być formuły? Coś się będzie zmieniać w arkuszu po wykonaniu makra (wyniki formuł)? Bo niżej jest pętla, którą śmiało można wykorzystać dla dwóch celów. Poza tym pętla byłaby wskazane dla...
Witam To fragment kodu z ktróym mam problem i szukam pomocy Do taj pory kod sprawdzał czy w komórce jest wartość i petla działała tak długo jak zakres. Jednak w wypadku kiedy zamiast zakresu dam InputBox czyli "y" petla wstawia w okno przegladarki tekst który jest cały czas wpisany w okno i nie przerywa petli mimo ze w kolumnie B nie ma wiecej wartości....
Jeżeli w dokumencie w którym ma to podświetlenie działać układ tabeli jest taki sam, czyli dwie pierwsze kolumny to imiona i target a potem w czterech kolumnach są dane, to wystarczy wejść do edytora VBA, czyli Alt+F11, w oknie w lewym górnym rogu kliknąć nazwę arkusza w którym są dane (w załączonym przykładzie jest to Arkusz1 o nazwie Arkusz 1 i jak...
Na co mi przyszło. :not: :) Poniżej troszeczkę jeszcze zmieniony (uporządkowany) kod kolegi PRL (bez urazy - wiem że łatwiej korygować niż tworzyć). Wyeliminowałem skakanie po arkuszach (select) - może to trochę jeszcze przyśpieszy działanie. Dodałem (za autorem topika) okienko z informacją o klientach bez "Wykonania". Ponieważ jestem ze "starej" szkoły...
Rozważania "na sucho" ... mało kto je lubi ... łatwo się pomylić i narobić "głupot", przydałby się jakikolwiek załącznik pod te wzory ... ale spróbujmy ... Kod nr 1 : 1. " zakres As Variant, rate As Variant " Co to jest 'zakres' i 'rate' ? Jeśli są to zakresy kmórek, to po co 'Variant' a nie ' Range ' ? Nie jesteś pewien z czym masz do czynienia ? Przecież...
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)...
Oj, to zaczyna się rozrastać, a czas ucieka... Może więc zrobić to inaczej. Niech więc będzie: "żeby chociaż działało bez wielkich przeróbek", czyli zrobić to co najważniejsze. jak zapisać, żeby makro rozpoznało po znalezionej nazwie sprzedawcy, do której zakładki przenieść wiersz Z tego co zrozumiałem wiemy KTO zajmie się klientem (If Arkusz1.Cells(i,...
Pracuję nad arkuszem, który będzie służył jako baza danych i integralną częścią tego arkusza jest opcja zrobienia do niego raportu jako nowego pliku, owszem dobrze zauważyłeś, że można to zadanie wykonać ręcznie, lecz na tym pliku będą pracować ludzie, którzy nie mają zielonego pojęcia o komputerze, więc wszystko musi działać na jedno kliknięcie w odpowiednio...
Skopiuj tę funkcję (los() ) w dół do 500 komórek. Następnie wciskając klawisz F9 będziesz miał nowe losy w tych 500 komórkach. Możesz później po przez funkcję indeks powiązać nazwisko uczestnika z wylosowaną wartością Przy czym wtedy funkcję los () należało by zaokrąglić np do 4 miejsc po przecinku a potem pomnożyć przez 10.000 Z tym że każde obliczenie...
"Złap" zależność i zamknij to w pętli/pętlach "For" z wykorzystaniem Range(cells(x,y),cells(m,n)) Np tak Dzięki bardzo, ten sposób działa rewelacyjnie, chociaż trochę dłużej myśli zanim wszystko sformatuje, w moim sposobie wszystko robi się natychmiast. A jak w Twoim kodzie wykluczyć dwa wiersze 45 i 46? Dodano po 1 Jeśli tego samego zakresu używasz...
Witam Proszę o pomoc, gdyż nie mogę poradzić sobie z jednym tematem w pisanym kodzie. Mam dwa pliki: plik pierwszy służący jako baza i tam są zapisywane dane, drugi plik służy jako userform do wprowadzania danych. Na drugim pliku pracuje kilka osób i może się zdarzyć że w jednej chwili dwie osoby otworzą plik (dzieje się to automatycznie). Chcę aby...
W końcu udało mi się uogólnić metodę symulacji charakterystyk control-to-output. Czyli w sumie jedynych które do tej pory były dla mnie problemem bo są one zależne od trybu pracy przetwornicy. Z tego co wyczytałem to całkowite uogólnienie (skompensowanie przetwornicy pracującej w trybie napięciowym dla dowolnej rezystancji obciążenia) jest niemożliwe....
Nie wiem czy zgodnie ze sztuka pisania makr w wordzie ale to chyba powinno działać jak chcesz. Zaznaczam że przerobiłem makro kolegi NAXIN. Nie jestem biegły w VBA dla worda (próbowałem się trzymać zasad z excela ale nie jest to identyczne). Opisałem jak to rozumiem Np. ItalicRun użyty za pierwszym razem włącza kursywę a za drugim ja wyłącza pomimo...
Wszystko jest do zrobienia. Jeśli chcesz umieszczać obszary w zmiennej rang , wystarczy zmienić przypisanie elementu /rn = rang(i)/ na pętlę for, przypisującą adresy komórek z tych obszarów. Np If lub Select Case w pętli For Each . Wyłączenie obsługi błędów (On Error Resume Next) spowoduje, w przypadku braku arkusza w pliku, jedynie przypisanie pustego...
Są jeszcze funkcje INDEKS, PODAJ POZYCJĘ i kilka innych, które dałoby się wykorzystać. Oczywiście wiąże się to z liczeniem wystąpień, kolumną pomocniczą i dodatkowym arkuszem wynikowym. Jeśli kolega ma na myśli zautomatyzowanie czynności, to zagnieżdżone pętle z licznikiem wstawianych wierszy, porównywaniem, przypisywaniem, etc. Kilka przykładów podobnych,...
Witam. Tak jak w temacie, próbuje zrobić przycisk do Excela pod rs232. Sytuacja wygląda następująco: Mam sobie miernik do pomiarów podpięty po przez rs232 do kompa, pomiary odczytuje w arkuszu excela lecz do tego używam przycisku przypisanego do marka ale muszę używać do tego myszki albo klawiatury. Chciałem się tego pozbyć i zrobić prosty zwarciowy...
Do autora: Jak zauważyłeś twoja funkcja działa - więc już połowa sukcesu. (na marginesie zmienna "dzień" to nie to samo co zmienna "dzien"więc akurat ten kod który przedstawiłeś nie powinien działać ale ...) Przechodzimy do koncepcji i twojej procedury głównej. Bardzo dobrze pomyślałeś (dobra w tym przypadku koncepcja) że "biorę po kolei dni tygodnia...
1. Spróbuj zmienić deklaracje na późne wiązanie, tj. zmień na "As Object" 2. Zadeklaruj brakujące zmienne => co to jest 'Ost_w' i do czego służy prócz deklaracji i przypisania wartości ? 3. Zmień kod zgodnie z wcześniejszymi uwagami kolegów, tj. wyrzuć poniższe z pętli na sam koniec makra: samej komórce wartość "3" nie będzie jednocześnie wartością...
Wiesz co wziąłeś się za makro nie do końca chyba rozumiejąc zasady. Pierwsza część: Po co to, jak jeszcze nie wprowadziłeś żadnych danych do tablicy: AA = tablica(a, f) BB = tablica(b, f) CC = tablica(c, f) DD = tablica(d, f) EE = tablica(e, f) Wszystkie wartości tych zmiennych (AA BB itd.) będą puste. Druga rzecz Wydaje mi się że nie te pętle zastosowałeś...
Mam mały problem z odtwarzaniem plików na at128. Mam taki program: http://obrazki.elektroda.pl/1942480700_1... i fusebity: http://obrazki.elektroda.pl/9041330800_1... Głośnik w obu procesorach podpinam bezpośrednio do pwm i masy. Powyższy program działa doskonale na at32 ale na at128 wogule. Dodam jeszcze że próbowałem...
excel pętla pętla excel excel makro pętla
renault częstotliwość dioda selenowa czujnik biegu wstecznego
łucznik naprężacz sprinter podłączenie webasto
Błąd F43 w pralce Bosch - przyczyny i rozwiązania Waga wieży Schneider SPP 95 - ile waży?