Jeśli adresy w podglądzie są prawidłowe, to podstaw kopiowanie. [syntax=vbscript]Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Arkusz2") wdst = 3 With ws For w = 2 To 812 Step 6 For k = 11 To 24 Step 3 'podgl = Range(Cells(w, k), Cells(w, k + 2)).Address(0, 0) & " kopiuj do " & Cells(wdst, 8).Address(0, 0) .Range(.Cells(w, k), .Cells(w, k +...
[syntax=vbscript]Sub DoBazy() kol = Application.Match([C3], Sheets("Baza").Range("A1:GR1"), 0) If Not IsError(kol) Then For i = 1 To 260 Worksheets("Baza").Cells(i, kol) = Worksheets("DoBazy").Cells(i, 3) Next i MsgBox ("Dane dla daty " & [C3] & " zostały skopiowane") Else MsgBox "Brak danych." End If End Sub [/syntax]
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
Uruchom poniższy kod w aktywnym Arkuszu3 [syntax=vb]Sub z() Dim iLstRw% Dim iLstNmRw% Dim rRng As Range j = 3 With Sheets("Arkusz1") iLstNmRw = .Cells(Rows.Count, 6).End(xlUp).Row Set rRng = Range(.Cells(6, 6), .Cells(iLstNmRw, 6)) End With iLstRw = Cells(Rows.Count, 1).End(xlUp).Row For i = 7 To iLstRw rRng.Copy Destination:=Cells(j, 9) Range(Cells(j,...
"#N/A" - to jest angelskie, w VBA tak ma byc, N/D(w komorce) myslim ze narodowe(Local)
Ustaw w oknie właściwości pola pozycję "Locked" na True. Automatycznie szarzeje zdaje się tylko w Accesie. Ustaw ręcznie lub warunkowo w kodzie formy.
Zaczynając od wiersza 2 wykonujesz pętlę dopóki w A jest niepuste. Czyli np. jakoś tak:[syntax=vbnet] Sub Sumowanie() Dim Y As Long, S As Double Y = 2: S = 0# Do While Cells(Y, "P") <> "" If Cells(Y, "P") <> 0 Then S = S + Cells(Y, "P") Else Cells(Y, "R") = S: S = 0# End If Y = Y + 1 Loop Cells(Y - 1, "R") = S MsgBox "Gotowe" End Sub [/syntax]
witam, bardzo fajne makro a czy można zrobić pętle tego makro bo to jest tylko przypisane do jednego wiersza a można tak zrobić dla większej ilości? jeśli tak to jak ??
Zadaniem jest napisać makro... Wystarczy "zwykła" formuła, jeśli satysfakcjonuje Cię takie rozwiązanie. Coś na wzór: JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO(...));0... W VBA należałoby zagnieździć dwie pętle dla porównania każdej komórki z każdą...
Pytanie nie jest precyzyjne. Albo wszystkie możliwe 6 cyfrowe kombinacje cyfr 0-9 - makro i pętle Albo 6 cyfrowa kombinacja z cyfr 0-9 -wtedy =ZAOKR(LOS()*-9+9;0)&","&ZAOKR(LOS()*-9+... itd
Nagraj to makro i dodaj pętle for o odpowiedniej ilości. Jeżeli zdążę :) to za chwile podrzucę ci kod
takie coś wymysliłem że jeśli ktoś sobie założy filtry to potem skopiuje CRM do innego nowo powstałego arkusza i wtedy bedzie wklejac... ale jeszcze pętle bym potrzebował bo ja zrobilem sobie na A2 A3 A4 tylko tak zeby zboaczyc czy bd chodzic [syntax=vb]Sub drukuj() ' ' drukuj Makro ' ' Klawisz skrótu: Ctrl+Shift+Z ' Sheets("Dane").Select Range("B2:B370").Select...
Bez sprawdzania [syntax=vbscript]Dim kom As Range For i = LBound(tblArkusze()) To UBound(tblArkusze()) With Sheets(tblArkusze(i)) Set rngTmp = .Range("O2:O" & Cells(.Rows.Count, "B").End(xlUp).Row) With rngTmp.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$BY$2:" & Range("BY2").End(xlDown).Address...
Musisz dodać kolejna pętle po hasłach.
Dzięki za podpowiedź Mam pytanie jak przypisać wartość LinaMax dla (komórka.Value =) Tak żeby można było skończyć pętle
Ciekawe czy to jest w ogóle możliwe w VBA szukałem w necie jakiejś gotowej pętli ale nic nie ma Nagraj sobie makro i podstaw to pod np. pętle for
Potrzebuje pomocy w napisaniu makra w excelu, kopiowanie danych z jednego pliku excela do drugiego excela w petli gdzie jest wiele plików. Wyjaśniam o co mi chodzi. Mam plik excel nazwany np dane1.xls ( dane2.xls, dane3.xls itd tych plików mam ponad 200 w folderze) z kilkunastoma arkuszami oraz plik wzor.xls. ( Potrzebuje wyciągnąć z pliku dane1.xls...
Może tak: [syntax=vbscript]Sub Duplikaty() Application.ScreenUpdating = False ow = Cells(Rows.Count, "A").End(xlUp).Row For w = 1 To ow For k = 1 To 8 If Cells(w, k).Interior.ColorIndex = 6 Then Cells(w, "K") = "Puste pole" If Cells(w, k).Interior.ColorIndex = 3 Then Cells(w, "K") = "Dulikaty" Next Next Application.ScreenUpdating = True End Sub [/syntax]
Potrzebuje napisać makro, ktore bedzie mialo dwie pętle Co do tej pory napisałeś? i gdzie załącznik.
Tylko makro i pętle w pętlach z formułą sprawdzającą za każdym przejściem wynik i jego tolerancję z E2. Swoją drogą to ciekawą pracę domową dał wam sor na święta, aczkolwiek nie za trudną - takie podstawy wykorzystania pętli :)
Niestety dalej się zapętla. A jest możliwość dla osobnego buttona? tak żeby były buttony: Start Stop 1. Niemożliwe, pewnie kod przycisku masz w innym module niż procedurę. 2. To nie jest konieczne.
u mnie nie pokazuje ilości plików. klikając F8 i mam dla próby 4 pliki i makro robi pętle 4 razy i za 4 kończy na end sub Dodano po 2 jak jest close to wywała błędy. saved jest ok tylko drukuje 1 plik i konczy na tym
Zamiast przerabiać było napisać nowe makro, bo np. po co ci pętle. Najpierw musisz "pobrać" nazwę arkusza z A1 potem nr wiersza z B1 A potem wprowadzić dane w arkusz o nazwie zapisanej w zmiennej "nazwa" w wierszu zapisanym w zmiennej "wiersz". C1 w kolumnie 2 a D1 w kolumnie 3 Private Sub CommandButton1_Click() nazwa = Worksheets("Arkusz1")....
Witam Widzę tu "czary mary" [syntax=vbnet]Application.DisplayAlerts = False With wkb2.Sheets(2) .Delete End With With wkb2.Sheets(1) .Name = "Lista odczytowa" End With Application.DisplayAlerts = True [/syntax]
Makro, które zamieściłeś powinno być umieszczone w module uniwersalnym skoroszytu, a odwołuje się ono do arkusza aktualnie aktywnego oraz do arkusza o nazwie "Baza". Ponieważ w kodzie są pętle po wierszach i kolumnach, a ich adresy początkowe są zapisane na sztywno, to struktura (w sensie umieszczenia początku danych) musi być jednakowa dla wszystkich...
Jest funkcja rejestrowania i odtwarzania makra. Uruchom rejestrowanie makra i wykonaj 2-3 cykle powtarzających się operacji, potem możesz makro edytować w Visual Basicu. W kodzie powinieneś zauważyć pewne prawidłowości, wtedy zamienisz procedurę na pętle z tyloma iteracjami, ile potrzeba do przetworzenia całości danych.
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...
Witam, mam pytanie jak rozwiązać następujący problem mam komórkę, która przyjmuje określoną wartość np. 4 chciałbym, żeby makro pobrało tą wartość i wykonało jakąś czynność tyle razy ile jest wpisane w tej komórce np: ActiveWorkbook.Sheets("Zes").Activate Range("A2").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If...
Po co tu makro, jak wystarczy AutoFiltr ?
Teraz działa wyśmienicie :) Musze dorobić jeszcze do tego pętle tak żeby makro po wydruku uruchamiało się na nowo Ale będę próbował to zrobić własnymi siłami dopiero jak sobie nie poradzę będę prosił o pomoc Na razie PRL masz u mnie dobre %%%%
wyeksportowania bez pętli Pętla ma zostać. Otwieranie i zamykanie pliku ustaw poza pętlą. Otwieranie przed, a zamykanie po pętli.
Skoro raport ma 300000 wierszy, to zmienna i musi być zadeklarowana jako long. W którym miejscu Twoje makro się zatrzymuje? A tak w ogóle to zamiast mozolnego porównywania każdej komórki z elementami tablicy przy pomocy pętli to poszedłbym w sprawdzenie przy pomocy odpowiednika arkuszowej funkcji PODAJ.POZYCJĘ czy wartość danej komórki jest w tablicy....
Będę bardzo wdzięczna za pomoc Na forum jest wiele podobnych przypadków. Proponuję nagrać makro, a następnie użyć metod (pętli) ze wspomnianych przykładów.
Jest w kodzie arkusza (nie w module). Procedur zdarzeniowych oraz 'Private' nie widać w menu 'Makra'.
Zmienną zadeklarowałem. A mógłbyś dokładnie wskazać gdzie tą pętle wkleić w istniejącym kodzie?
... 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...
Dzień dobry, Bardzo proszę o pomoc z makrem, potrzebuje pętle które będzie miała za zadania kopiowanie i wklejanie w odpowiednie komórki między arkuszami aktualnie mam napisane makro ale niestety sam nie potrafię jeszcze stworzyć takiej pętli Dodano po 3 Mam już coś takiego ale jeszcze nie jest to co bym chciał osiągnąć Potrzebuje dla następnego wiersza...
Musisz dodać jeszcze pętle sprawdzającą nazwy arkuszy. A co jak klikniesz makro w danym dniu 3x razy?
Przecież już tą kwestię Ci rozwiązałem w makrze kilka pozycji do góry. Chodzi o to makro pracujące w pętli for. Należy tylko podać w pętli for argument jak wiele artykułów ma sprawdzać. Można też to makro rozbudować aby samo sprawdzało ile jest rekordów i zapisywało do zmiennej.
a co masz na myśli mówiąc "...podstawiać formuły w osobnej pętli"? Wstaw kolumny, wpisz ręcznie formuły sumowania i przepisz argumenty do makra. Po zakończeniu pętli wstawiającej kolumny i nagłówki (usuń linię z wstawianiem sum), dopisz następną wpisującą tylko formuły.
Ja nie widzę problemu z odwoływaniem się.. - pewnie zerwałeś połączenie (nie wiem skąd to się wzięło ? W pewnym momencie jak wpisywałem formułę "=" to ta formuła autentycznie zostawała w komórce ! dopiero jak następny raz otworzyłem plik i wyczyściłem zawartości tych kilku kolumn (aby rozpocząć nowy miesiąc) udało się wpisać formuły i teraz wszystko...
Hmm... Trochę więcej tych danych, niż się spodziewałem. Najprościej byłoby dodawać[syntax=text]WYSZUKAJ.PIONOWO(RAN... MIN w kolumnie C, to 2, MAX - 32, suma kolumny 80326 (losowań) w 5000 wierszach :( Nie mam tyle cierpliwości. No i będzie się działo gdy zmienią się dane w kolumnie C. LOS, MAX.K, INDEX(... w...
Makro + pętla zagnieżdżona.
Załącz plik. Jeśli typ zmiennej jest Variant, nie powinno być tego błędu.
Zastanawiam się czy jest możliwość, aby makro skopiowało mi tyle arkuszy ile jest wypełnionych wierszy w arkuszu głównym Zerknij Czytałem i próbowałem na różne sposoby, ale jestem jednak za cienki. Ledwo w ogóle ogarniam proste procedury, a pętle mnie przerastają.
Dzień dobry! Potrzebuje kod w makrze Założenia: Będzie powtarzał daną wartość np. 3000 lub tekst w danej kolumnie w askusz1 oraz powtarzał daną wartość np.0000 lub tekst 2 w arkuszu 2
Kod czego ... pętli ... tablicy ? Pętli przecież masz, a tablica niekoniecznie potrzebna, można np. tak (o ile problem poprawnie opisany): [syntax=vbscript]Option Explicit Private Sub CommandButton2_Click() Const pth = "P:\RAPORT\" Const fle = "Plan wk" Const sht = "Main sheet" Const fsht = "R" Dim x As Integer, week As Integer Dim dzientygodnia As...
Potrzebne będą dwie zagnieżdżone pętle. W przykładzie poniżej, makro porównuje nazwę arkusza z fragmentem ciągu w komórkach kolumny 'A'. Urozmaiciłeś nieco różną wielkością liter, dlatego LCase . Do modułu wklej [syntax=vb]Sub Kopiuj() Dim wk As Workbook, ark As Worksheet, myFile As String, wrs As Long myFile = "c:\Statystyka.xlsx" 'ścieżka i nazwa...
Musisz 'zamienić' pętle z warunkiem 'if' Co to jest to 'k' pętla ma działać dopóki znajduje "k"?
makro działa ok ale przy małej liczbie wierszy. W przypadku gdy np: lp=300 to excel wpada pętle i cała operacja trwa bardzo długo i pożera dużo ramu. Da się coś z tym zrobić?
Czułem, że trzymasz coś w rękawie ;) Z takim pryszczem poradziłabyś sobie. Spróbuj takiej pętelki [syntax=vb]Sub Merguj() Dim wrs As Long, merg As Long wrs = 1 merg = wrs Application.DisplayAlerts = False Do While Cells(wrs, 1) <> "" If Cells(wrs, 1) <> Cells(wrs + 1, 1) Then With Range(Cells(merg, 1), Cells(wrs, 1)) .Merge .HorizontalAlignment...
Dzięki wielki. Super, makro działa
Zacznij od dodania na początku procedury Application.ScreenUpdating = False. Skróciłbym też kod: [syntax=vbscript]y = 1 For i = 1 To 7 For x = 1 To 18 Sheets("KOR").Cells(1, lastcolumn + y + (i - 1) * 18) = "nazwa" & y & "_" & i y = y + 1 Next Sheets("RAT").Activate Sheets("RAT").Range(Cells(1 + i, 1), Cells(1 + i, ile_kolumn)).Copy Sheets("KOR").Range("A1").End(xlToRight)...
Dzieki wszystkim za podpowiedzi ale dalej nie wiem jak to rozwiazac. Moze powiem o co mi biega: chce monitorować pewne zdarzenia w wierszach mam wpisany czas i obok zdarzenie ktore ma nastąpić tego jest od groma (ok 350) i chce podświetlić te które teraz ma mjejsce np 9:01:24 - płączenie pradu 9:01:46 - zwiększenie pradu o ... 9:02:02 - włączenie czegośtam...
czas wykonania procedury skrócił się z 10 minut do 1,01 minuty Aż za bardzo ;) Można też wcześniej obliczyć sumę z pierwszych pętli (wynik częściowy)... to nie za bardzo rozumiem jakby to miało wyglądać w kodzie by było efektywne Myślałem o tej linii: If x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8 + x9 = 34 Then Ty poszedłeś po całości ;) Jeśli zapamiętalibyśmy...
Witam ponownie, Nie linczujcie mnie :) podejrzewam, że dzisiaj jeszcze poproszę kilka razy o pomoc - jestem początkująca, ale bardzo chętna do nabywania wiedzy:) Mam problem ze stworzeniem pętli do tworzenia nowych skoroszytów, napisalam makro tworzące 10 skoroszytów o nazwach dane_1, dane_2 itd., zapisujących się w folderze utworzonych na pulpicie...
Tak na szybko... Bez obsługi błędów, gładzenia kodu itp. Sub czytajpliki() Dim linia, sciezka, fs As Object, f, f2, k 'Application.ScreenUpdating = False sciezka = "C:\Documents and Settings\admin\Desktop\test\" Set fs = CreateObject("Scripting.FileSys... Set f = fs.GetFolder(sciezka).Files For...
tinca2 pokaż to makro. może coś sie da z tym zrobic. widocznie masz żle pętle założoną. tak w ciemno to mogę podejrzewać, że jakaś zmienna jest żle zadeklarowana. Ale lepiej będzie jak "zapodasz" tym makrem.
Witam, Jak by tu odpowiedzieć ... Nie będę pisał tutoriala z VBA - ani czas ani miejsce. Jeżeli chcesz się nauczyć VBA to sporo materiałów jest w necie. Jak ma działać makro ? Punkt 1) "Czy produkt ...." Dwie pętle (for /while). Pierwsza (produkt po produkcie) pobiera informacje na temat szukanych danych. Druga szuka danych z pierwszej pętli w drugim...
Załącznik nie uruchamia się normalnie(Znikające makra)
Dlatego myślałem o dodaniu ewentualnego oczekiwania na naciśnięcie klawisza w pętli tylko nie wiem jakim poleceniem. Jeżeli makro zostało już uruchomione to nie przerwiesz działania innym makrem czy przyciskiem, tylko możesz cisnąć szybko 2x klawisz escape. Tak jak pisałem wcześniej przenieś tą pętle pod 'worksheet calculate' i wtedy możesz zmieniać...
Znaki "<" i ">" występują tylko jako nawiasy i nie ma ich nigdzie więcej niż w znacznikach. Modyfikację makra rozpocząłem od usunięcia tablicy znaków, jednak z modyfikacją pętli "do" nie było tak dobrze. Logicznie to tak: Skanuj komórki, jeżeli napotkasz "<" wtedy rozpocznij podkreślanie. Czyli wykonaj nasz kod z pętli do while. Po napotkaniu...
Witam, generalnie to mam wrażenie, że Twój opis jest bardziej zagmatwany niż to czego faktycznie potrzebujesz. Niestety w załączniku nie ma makr, którymi planujesz generować swoje zestawienie i to trochę utrudnia znalezienie właściwego rozwiązania. To co mi się na początek rzuca w oczy to układ pliku. Dodanie kolejnych produktów spowoduje przesunięcie...
Wszystko działa tylko w starym EB8000 brakło możliwości wykonywania makra w pętli czasowej.
Wyłącz Eventy na czas działania makra (Application.enableEvents=True/False)
Pomysł ciekawy. Pozwoliłem się pobawić tym makrem. :arrow: do autora Makro działą tylko że nie znajduje sumy w kombinacji sum 5 liczb. (Można dodać okno z wyjaśnieniem) Twoja suma pojawi się (12 kombinacji) jak dodasz jeszcze pętle dla sumy sześciu (6) liczb. czyli w miejsce 'tu kolejna pętla dla kombinacji 6 liczb itd' wklej For n = m + 1 To a kontrol...
Aktualizacja, pętla działa, mam sukces, kłopot pojawił się inny, całość makra działa tylko z małą ilością danych. Przy dużej, to znaczy konkretnie 455 rekordów pojawia się błąd z obrazka. Teraz zastanawiam się jak pominąć nieszczęsną pętle, bo wydaje mi się, że tu o to chodzi. Wiem, że w rekordzie 455 i następnym nie ma błędu, bo jak zmniejszę ilość...
Witam, Chciałbym poprosić o pomoc w związku z makrem które, muszę zbudować. Mianowicie chodzi mi o to że mam tysiąc komórek które wyglądają mniej więcej tak: dzbanek_02-01-2008_K20 oczywiście słowo dzbanek się zmienia i jest jego 100 rodzajów i to samo z datą itd. I muszę zrobić tak żeby każda z tych danych znalazła się w różnych komórkach, tzn dzbanek...
JRV dokładnie o to mi chodziło. Jesteś wielki! Zmużdżałem się i nie mogłem wpaść na tą pętle. Potrzebuję trochę zmodyfikować ten kod, ale z tym już sobie poradzę (muszę sprawić żeby to makro było bardziej uniwersalne). Wielkie dzięki za szybką i konkretną pomoc.
(...) nd G0, G1, G2, G3 - współrzędne początkowe: X0, Y0, Z0 - za każdym przejściem wysokość Z zmniejszana o 0,05mm - średnica początkowa: 13 mm - głębokość: 4 mm - kąt stożka: 90 stopni - średnica końcowa wynikająca z matematycznego wyliczenia z kąta, średnicy początkowej i głębokości. (at)ElektrodaBot Wstępna ocena dostępnych informacji Zadanie polega...
Jeżeli wszystkie tabele masz w tych 100 arkuszach i masz je numerowane po kolei to wystarczy dodać nad tym formatowaniem pętle z dodaniem zmiennej dla nazwy tabeli: [syntax=vbscript] Dim NazwaTabeli as String Dim NumerTabeli as Integer For NumerTabeli = 2 to 100 ' Czy inny zakres jaki Ci potrzebny NazwaTabeli = "Tabela" & NumerTabeli '... Tutaj Twoje...
Witam, Mam dane w lewym górnym rogu i chcę by makro kopiowało mi tak dane jak te które są pośrodku arkusza (te na niebiesko). Czyli input=dane w lewym górnym rogu, output= dane na niebiesko. Ja to zrobiłem w 2 częściach (gdyż jest to urywek większego makro które chce stworzyć i robie je w kilku częściach by się nie pogubić:) ). Pierwsze makro sprawdza...
Prędzej uzyska Kolega pomoc niż wykonanie za Kolegę całej roboty (szczególnie w przypadku zastosowania komercyjnego). Pętle w VBA w sumie nie są niczym trudnym, więc jeśli tylko z nimi jest problem - to na pewno ktoś będzie w stanie pomóc.
[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 stworzyłem makro które dane z arkusza instrukcja przyporządkowuje do odpowiedniej daty w innym arkuszu. Mógłby ktoś zerknąć na to makro i np je trochę skrócić, ponieważ nie mam pojęcia jaką można by zastosować pętle żeby to zrobić? Drugie pytanie jest takie czy da się zrobić żeby podczas działania makra nie skakał on tak między arkuszami a został...
Niestety po wpisaniu niepoprawnej daty makro kończy działanie
jest jakaś opcja, żeby makro pracowało bez przerwy Teoretycznie tak, wystarczy zamiast kodu wątpliwej jakości weryfikacji poprawności wpisywanych danych (można tu wykorzystać choćby natywne funkcje Excela poprawności danych :idea: ) wprowadzić makro typu Worksheet_Change, które będzie uruchamiało makro sumuj() po każdej zmianie w którymkolwiek arkuszu...
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"
Witam, mam problem z napisanie makra które chowałoby wiersze po kolei, tzn. jeden przycisk chowa 4 wiersz, po kliknięciu go ponownie chowa się także 5, po ponownym kliknięciu jeszcze 6 i tak dalej, drugi przycisk odrywa te wiersze od tyłu, czyli jeśli ostatni schowany wiersz to był wiersz nr 6 to go odkrywa, po kolejnym kliknięciu odkrywa wiersz nr...
Jeśli chodzi o to volatile, to jego działanie być może np. tak, że w kompilator umieścił zmieną wskaźnik w rejestrze i tam ją trzymał. Wywołanie delay (to chyba jest makro rozwijane w odpowiednie pętle) spowodowało, że rejestr był potrzebny i musiał zostać zapisany do pamięci. A jeśli chodzi o te ostatnie problemy to zwykle wysyłanie RS ma własny bufor...
Pytanie o sens całkowicie zasadne ;) Nie rozumiem... Uruchamiasz powyższe makro skąd? W tym makro wywołujesz w pętli makro z jeszcze innego pliku (personal). Wcześniej odniosłem wrażenie, że w tych otwieranych plikach są makra o tej samej nazwie, wykonujące różne działania i je własnie chcesz uruchamiać. Ale, widzę, to nie tak. Dlaczego nie trzymać...
Witam ! Z góry przepraszam, ale jestem początkujący jeśli chodzi o programowanie jakiekolwiek. Mam pytanie odnośnie pętli w vba w przypadku update do bazy danych Mam w excelu kolumnę z poleceniami update (ilość wierszy może być różna) https://obrazki.elektroda.pl/4545887200_... Napisałem kod, który wykonuje polecenia update z komórki...
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ę...
Gdzie, w sterowaniu tym wyświetlaczem jest konieczność używania makr? Wystawiana jest dana, po czy na lini zegara, zmiana na H, następnie L. Gdyby trzeba to zrobic kilka razy to już prędzej, ale wtedy lepiej użyc pętli. Chyba, że makra mają zastąpić pętle. Ale to szczególny i zadki, zwłaszcza w dzisiejszych czasach, przypadek.
Najprościej byłoby umieścić w tablicy/kolekcji i posortować (chociaż 'selecteditem' jest kolekcją, można więc spróbować sortowania "w locie").[syntax=vbscript]Dim fd As FileDialog Dim tablica As Collection Set tablica = New Collection Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("HOMEPATH")...
Potrzebne są dwie zagnieżdżone pętle. Zewnętrza, sprawdzająca wartość komórek w kolumnie 'A' oraz w bloku instrukcji warunkowej wewnętrzna, przeliczająca wartości w komórkach wiersza. Użyj wyszukiwarki, przykładów ci u nas dostatek.
Jeśli makro, to prosta pętla 'Do-Loop' z instrukcją warunkową. Ale, z kolumną pomocniczą, można i bez makra (załącznik)
Jeśli makro, to prosta pętla porównująca każdą parkę z każdą. Można też bez makra. Oba (E2k0) rozwiązania w załączniku.
Napisałeś pętlę nieskończoną. Nie do końca łapię co chcesz zrobić. Może wystarczy licznik pętli przesunąć poza gałąź If Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = "" If Range("A" & i).Value = 37258 Then Range("A" & i + 1).EntireRow.Insert...
Witam, Mam problem z makrem, które dzieli duży plik na zakładki, filtrując po nazwie miasta. Makro działa w pętli, pobierając nazwę miasta z tabeli, ale przerywa działanie, gdy w zestawieniu brakuje danego miasta. Jak zrobić, aby zapisało pustą zakładkę i przeszło do następnego rekordu w tabeli.
Dzień Dobry, zakładam temat bo w sieci to co znalazłem nie potrafiłem wykorzystać. W załączniku plik. Piszę makro, które będzie kopiowało mi z Arkusz2 do Arkusz1 wtedy, gdy będzie spełniony warunek. W Arkusz1 mam nazwy kontrahentów według wykazu alfabetycznego, w Arkusz2 są kontrahenci w różnej kolejności. Pętlą For w Arkusz1 schodzę po wierszach w...
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
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...
Dzień dobry potrzebuje takiego makra (3 pliki załączone) pewnie jakieś pętle będą potrzebne 1. kliknij w START w pliku Start.xlsm 2. Otwórz pliki Raport skrócony.xlsx i raport_roznic_vat_i_pogrupowan.xlsx 3. w pliku raport_roznic_vat_i_pogrupowan.xlsx od arkusza 3 w tym wypadku Immomok Sp. z o. o. do ostatniego arkusza (co miesiąc może być inna liczba)...
W kodzie masz 79, zaś w treści 77 - to poczynając, od której właściwie ma to się dziać ? Dzięki za zainteresowanie, ale nie do końca o to chodziło. Może źle to wyjaśniłem. W kodzie jest 79, bo wartość jest przenoszona z wiersza 79, ale scalanie ma się rozpocząć od wiersza 77 i w scalonej komórce ma zostać wartość przeniesiona z wiersza 79. Przy czym...
Niestety nic nie działa. Prosze o wsparcie. Próbowałem formuł jak poniżej: Jak widzę takie kody to ... Dodaj sobie pętle sprawdzającą i jak coś będzie zablokowane to odblokuje. Coś ala [syntax=vbscript]For Each w In Application.ProtectedViewWindows w.Edit Next Windows("20230725_INT.xls").Activate Application.WindowState = xlNormal Range("A:L").Select...
A jak dokładnie są nazwane arkusze? Cała data, czy tylko numer dnia? Jeżeli cała data to: Sub NazwaArkusza() Range("a2") = ActiveSheet.Name End Sub przy numerze dnia: Sub NazwaArkusza() Range("a2") = ActiveSheet.Name & ".02.2011" End Sub To jest tylko dla jednego arkusza. Dla większej ilości...
Co do zasad pisania kodu Jak już deklarujesz zmienne to powinieneś deklarować wszystkie. Zapomniałeś o zmiennej "mnoznik" i chyba błąd w nazwie zmiennej lastcell x Jeżeli potrzebujesz liczby całkowitej skorzystaj z operatora "\" a nie "/" lub z Fix(liczba) Czyli mnoznik = lastcell \ 10 + 1 lub mnoznik=Fix(lastcell / 10 + 1) Co do pętli niby założyłeś...
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ś...
Cóż, masz schemat i wiesz jak to działa. Dla porównania kolejnych losowań musisz zastosować kolejne pętle. Z drugiej strony: nie widzę głębszego sensu porównywania drugiego losowania z czwartym. Lepiej wrzucić w arkusz tylko te dwa. W przypadku porównywania sześciu losowań w każdej kombinacji makro będzie miało ~1 metra :) Można podejść inaczej i warunkować...
zagnieżdżone pętle programowanie pętle pętle indukcyjne
virtual floppy drive odczytać matrycy przetwornik impulsowy
satel integra 128wrl kluczyk kodowanie
Jak wyjąć zablokowany przycisk z deski rozdzielczej? Najmniej awaryjny silnik w Opel Vectra C - opinie