Jest w kodzie arkusza (nie w module). Procedur zdarzeniowych oraz 'Private' nie widać w menu 'Makra'.
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....
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.
[syntax=vb]For i = 3 To 31 Select Case i Case 3 To 7, 12 To 27, 30, 31 '[dzialanie] End Select Next [/syntax]
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,...
Masz racje może faktycznie ciężko i spaprałem opis, postaram się to sprawdzić po weekendzie. Jeszcze raz opisuje o co mi chodzi , mam 200 plikow w folderze "dane", w folderze "WZOR" jest plik wzorcowy wzor.xls oraz folder "CEL" czyli jest tak skrypt z folderu "dane" pobiera pierwszy plik to jest otwiera plik np g35.xls kopiuje odpowiednie zakresy komorek...
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.
dzięki wielkie ! fajny kod, będę więc go też stosował.. ja przynajmniej moglem sie troche nauczyc przy pisaniu tego swojego prostego makra
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...
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...
:arrow: Do autora: Dobrze podstawiłeś to makro? W załączeniu przykład z działającym makrem kolegi adamas_nt Poprawiłem tylko to, że nie liczy dla 100 wierszy tylko dla wszystkich wierszy w kolumnie A zeszytu1. Dodane po czasie ----------------------------- Zmieniłeś treść wiadomości więc moja uwaga nie ma już uzasadnienia, niemniej pozostawiam przykład...
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
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...
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
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...
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...
Dzięki za podpowiedź Mam pytanie jak przypisać wartość LinaMax dla (komórka.Value =) Tak żeby można było skończyć pętle
Jeśli jest taka potrzeba... Nagrałem makro w Wordzie i wyszło coś takiego [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Selection.TypeText Text:="ala i as" Selection.Style = ActiveDocument.Styles("Nagłówek 1") Selection.TypeParagraph Selection.TypeText Text:="poszli w las" Selection.Style = ActiveDocument.Styles("Normalny") Selection.TypeParagraph...
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.
Makro niemal prosto z rejestratora, jeśli się nie mylę. Co, jeśli w arkuszu źródłowym będzie więcej niż dwie pozycje? Powinieneś pójść krok dalej i zainteresować się pętlami.
Najprościej napisać makro w VB i skorzystać z pętli
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.
A nie dałoby się jeszcze ograniczyć tego zakresu kolumnami? Makro działa tylko w jednej kolumnie, czwartej (While Cells(wrs, 4 )). Doklej tylko te 6 linijek i dopisz warunek pętli 'Do'.
Nagraj to makro i dodaj pętle for o odpowiedniej ilości. Jeżeli zdążę :) to za chwile podrzucę ci kod
Dałoby się (potrzebna byłaby jeszcze jedna kolumna pomocnicza i dość długa formuła wynikowa), ale przy tej ilości wierszy przeliczanie arkusza trwałoby nieznośnie długo. Chyba żeby zrezygnować z automatu i przeliczać ręcznie. W przypadku VBA nie widzę innego sposobu jak sprawdzanie wszystkich możliwych kombinacji w pętli...
Jeśli makro, to prosta pętla 'Do-Loop' z instrukcją warunkową. Ale, z kolumną pomocniczą, można i bez makra (załącznik)
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ć?
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ą...
Pewnie, że lepiej.:) Lecz wadą tego rozwiązania jest to, że po 'przeleceniu' makra nie będzie działać obliczanie D = A + B.
Włącz rejestrowanie makra i wykonaj z ręki wykresy. Zatrzymaj makro i przeedytuj jego kod usuwając zbędne elementy.
Na podstawie samego kodu, to nie jest oczywiste. Powinnaś załączyć plik z tym kodem i napisać w którym dokładnie miejscu kodu występuje błąd. Poza tym kod jest trochę dziwny. Ile masz arkuszy o nazwie "aaaa"? Po co ta pętla? Czy pasek ScrollBar ma faktycznie numer 2?
Dzięki, za zainteresowanie. Mas rację, lepsze będzie zwykle pole, ale mi głownie chodzi i te drukowanie w pętli. Jak je dobrze napisać.
Skoro 'jesteś słaby', to zapodam Ci trochę siły.;) 1. Włącz rejestrację makra, zaznacz tabelkę i skopiuj. 2. Ustaw kursor na komórce, gdzie ta tabelka ma być wklejona i wklej. Następnie zmodyfikuj to makro o pętlę. Jak zarejestrujesz makro i poczytasz o pętli 'For" w VBA, to na pewno sobie poradzisz.
Temat do zamknięcia. Problem rozwiązany poprzez zmianę kodu stosując pętle For, usuwając moduły, makra zadziałały. Dziękuje za pomoc...
Ale w załączonym pliku nic nie znalazłem. Jeśli kwerenda "chodzi" w pętli, to nie ma problemu, można w niej wywoływać makro...
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 ??
1. Nie rozumiem, po co VBA? 2. Nagraj sobie makro ;) Potem podmienisz tylko wartości...
Mam w kolumnie hiperłącza do plików PDF. Chciałbym aby po filtrowaniu wydrukować wszystkie pliki z widocznych (filtrowanych) w komórkach hiperłączy. Bazowałem na wpisie http://www.elektroda.pl/rtvforum/topic28... nie wiem jak przekazać wartość hiperłącza z komórki do komendy [syntax=vb].PageSetup.PrintArea =[/syntax] i dalej... jak to...
Zmiennej 'lastRow' oraz 'lastColumn' przypisujesz wartość z ActiveSheet i wykorzystujesz jako liczniki pętli przeszukującej sht... Przypisanie powinno być wewnątrz pętli 'For Each sht In ThisWorkbook.Worksheets'.
Sprawdź makro, które podałem Ci ostatnio. W Twoim jest pewien błąd. Otóż, jeżeli komórka A6 zawiera produkt który był w drugim arkuszu na pozycji B4, to makro nie wejdzie do pętli i zmienna y nie zostanie zdefiniowana. Druga sprawa, to przeszukiwanie kolejnego produktu, B5, B6 itd. W Twoim makrze nie ma zmiennej, która decydowałaby kiedy zaprzestać...
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.
Jeśli znaki "<" oraz ">" występują tylko jako "nawiasy" znaczników i nigdzie więcej, to można w prosty sposób skorygować pętlę Do , umieszczając warunek i polecenie wyjścia z pętli wewnątrz niej. Rezygnujemy wtedy z tablicy i określamy początek i koniec fragmentu do pogrubienia wg wspomnianych znaków.
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)
Wystarczy zwykła pętla z wieloma warunkami. Zobacz przykład (funkcja VBA) w [url=http://www.elektroda.pl/rtvforum/to... temacie.
Skoro już idziemy na całość... Jak dobrze pamiętam z poprzednich wątków autora, miał być możliwy wybór wielu plików (multiselect). W takim wypadku jeszcze jedna pętelka byłaby niezbędna. [syntax=vbscript]Sub Proba() Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Dim CodeMod As...
Dziękuję bardzo za kod, prześledziłem go gruntownie i wiele wnosi on do mojej póki co skromnej wiedzy. W swoim przykładowym pliku Excela dodałem formanty i starałem się przypisać im pewne funkcje, z sortowaniem wedlug kolumny "status zlecenia" poszło mi gładko nawet sortowanie naprzemienne działa :). 1. Problem pojawia się przy segregowaniu danych względem...
Ad1) Zastosuj warunkowe zapisywanie (gałąź If-Else). Sprawdź stan/wartości kontrolek (w pętli wg nazwy typu, jeśli dużo) i jeśli spełniają warunki - zapisujesz, jeśli nie, wyświetlasz stosowny komunikat. Ad2) Wstaw licznik do pętli i wymuś wyjście, jeśli licznik=suma.
Wystartuj rejestrowanie makra, zmień interesującą cię komórkę na inny kolor, następnie zamień kolor na pierwotny, zatrzymaj rejestracje makra. Wyjdź w edycje makra, dodaj warunek i pętle jak się zmienia kolor i jak on się zapisuje będziesz miał już w tym zarejestrowanym makrze.
ok problem tylko w tym, że chciałbym żeby automatycznie się zapisywał plik ten otwarty z formatu .mst w formacie excel. Tzn. żebym nie musiał wypisać 200 razy w środek pętli tego fragmentu, który poprzednio wkleiłem, z inną nazwą pliku za każdym razem.
Jeżeli arkusz ma być eksportowany do nowego pliku, to lepiej zrezygnować z formuł (będą się łącza za nim ciągnąć) i zrealizować wyszukiwanie w makro (metoda Range.Find, lub w pętli). p.s. Jeśli umieściłeś makro w module, zastosuj precyzyjne odwołania (arkusze). Przycisk przyciskiem, ale łatwo "wdepnąć"...
Wartość "i" sprawdziłem po każdym kroku (F8) bez zmian: 0. Przechodzę po kolei od początku kodu, ale przy przejściu z pierwszej pętli for dalej, wyskakuje błąd 424 "Object requiret"
Interesują mnie wartości z dwóch wierszy- drugiego i czwartego. (...) Chciałbym użyć makra do wyszukania tych wierszy z pierwszego arkusza, gdzie występują wartości szukane w drugim arkuszu i przekopiowanie wszystkich tych wierszy do np. 3 arkusza. Z tego wynika, że szukasz duplikatów wierszy 1 i 4 z arkusza Nr1 w arkuszu Nr2. Zdaje się, że coś pominąłeś/pomyliłeś,...
Witam, nie znalazłem rozwiązania na forum. Mam makro, które otwiera linki wpisane w komórki. Wszystkie linki znajdują się w pierwszej kolumnie i lecą daleko w dół. Problem w tym, że chciałbym, aby pętla wykonywała to makro otwierania linku do momentu osiągnięcia numeru wiersza wpisanego w inną komórkę. Czyli jeżeli wpiszemy w komórkę '500' to pętla...
Wyskoczyło okienko SolidWorks z komunikatem Excel, żeby kliknąć ok, czyli MsgBox. Na spokojnie sobie to przeanalizuję, pewnie teraz jeszcze jest źle, ale czy ta pętelka będzie wyglądała następująco?: For i = 4 To UBound(Tablica) If WymZloz = Tablica(i, 36) Then knyps = True Exit For End If Next
A z czym masz problem? To proste przypisanie w pętli przecież. Nawet (skromny co prawda) opis jest w podanym linku...
Co masz na myśli pisząc "karta"? Dla arkuszy skoroszytu można zagnieździć kod w kolejnej pętli For ark = 1 to thisworkbook.sheets.count ' lub liczbowo indeksy Np 2 To 4 sheets(ark).select 'kod Next
A co jeszcze zostanie? Chyba nic.;) Czyli faktycznie przegiąłem... No nic , będę musiał walczyć dalej sam. Pętelka , którą mam (makro) pięknie skacze po arkuszach i wywołuje makro do wysyłki email , przerobiłem to makro aby wysyłało na adres z komórki "D1" z aktywnego arkusza - no i ładnie to wysyła. Przecież nie pisałem "macie mi to zrobić" tylko...
Ja bym zrobił makro, które w pętli będzie wyszukiwało pierwsze wolne pole w kolumnie B i tam wstawiało wartość z A1
??? Lelum Polelum, ale do tego "klasy" to chyba nie są potrzebne ? Zwykłe makro strukturalne, z pętelką, nie wystarczy ? [syntax=vba]Option Explicit Sub dodaj_dt() Dim adr As String Dim kom As Range With ActiveSheet adr = "A2:A" & CStr(.Cells(.Rows.Count, "A").End(xlUp).Row) For Each kom In .Range(adr) If IsNumeric(kom.Value) Then kom.Value = "dt" &...
szkoda mi teraz czasu na uczenie się tego Cóż, forum stworzono dla tych, którym tego czasu nie szkoda... Przy porannej kawie naszło mnie znaleźć rozwiązanie bez rozpiski i wyszła taka pętelka[syntax=vb]Dim a As Integer, b As Integer, c As Integer, d As Integer a = 1 Do Until a = 4 b = a + 1 Do Until b = 5 c = b + 1 Do Until c = 6 d = c + 1 Do Until...
Jak zmienić mu "For wrs = 1" na "For wrs = "zależne od ostatnio wczytanych danych - od ostatniej pozycji w kolumnie A Przez podstawienie Nr ostatniego wiersza do licznika pętli, 'For wrs = Range("A" & Rows.count).End(xlUp).Row to ....' Musiałbyś tylko sprawdzać, czy nie jest większy od drugiego argumentu (pętla pojedzie wstecz), lub dodawać stałą liczbę.
Zasugerowałem się przyciskiem "kolor wypełnienia" w Excel2003. Jest tam tylko 40 kolorów. Sądziłem że sa po kolei ale jak przed chwila sprawdziłem - myliłem się. W zestawie 40 nie ma np ciemnego żółtego co będzie wpływać na ewentualne obliczenia. Więc we wszystkich makrach powyżej należy poprawić 40 na 56. (W przypadku pierwszego makra wydłuży to jeszcze...
Witam. Owszem jest to do zrobienia...mało z tego całkiem prosto :D... Zacząć nalezy od makra, które tworzy nowy arkusz...nastepnie wklejane są dane i numer...nastepnie wydruk arkusza o numerze [ilosc arkuszy]...nastepnie zamkniecie arkusza o tym samym numerze... a wszystko w pętli aż do natrafienia na pusty wiersz - bez danych
Witam, Mam problem z makrem. Chciałbym by komórki C3:D5 przeniosły się do pierwszego miejsca od góry w kolumnie E gdzie znajduje się "+", C14:C16 przeniosły się do pierwszego miejsca od góry gdzie znajduje się "+" ("+" w E5 już wtedy nie będzie), itd. Zrobione przez mnie makro nie działa w pętli i do końca nie robi to co powinno. Pozdrawiam Tematy scaliłem....
pozostałe które byłe wprowadzone wcześniej pozostaną na swoim miejscu w "przyrządach pomiarowych" I tak będzie dopóki nie zmienisz czegoś w zakresie "C5:I5" w arkuszu "Rejestracja przyrządów" tzn przypisywana (kopiowana) jest wartość, której nie zmieniłeś. Jeśli jednak komórki te chcesz zostawić puste a zachować wartości w drugim arkuszu musisz posłużyć...
Problem w tym, że nigdy nie uda Ci się wpisać innej liczby porządkowej przy tej postaci kodu (nawiasem pisząc, zdała by się pętla). Zanim makro "wyprostuje" numerację musiałbyś zrealizować kopiowanie... Czyli odpowiedź brzmi: Tak, jest do zrealizowania.
Poszukaj informacji na temat sortowania bąbelkowego. Tak się składa, że w VB litery i łańcuchy też można porównywać. "b">"a", "Alicja">"Ala" itd Musiałbyś kopiować dane ze wszystkich kolumn wiersza do tymczasowej tablicy, co pokazałeś że potrafisz już robić. Sumowanie najlepiej zrobić funkcją SUMA.JEŻELI. W VB Aplication.WorksheetFunction.SumIf(argum...
Wykorzystując kolumnę pomocniczą i formuły tablicowe, można zadanie wykonać bez VBA. Dwa minusy: kolejność zadań jest odwrotna (tu można by jeszcze coś wykombinować) i przy takiej ilości formuł tablicowych przeliczanie arkusza będzie... no, chwilę trwało. Jeśli Ci to nie przeszkadza... Oczywiście przeliczanie można wyłączyć (dla spokojności nerwów)...
Musisz dodać jeszcze pętle sprawdzającą nazwy arkuszy. A co jak klikniesz makro w danym dniu 3x razy?
Dzięki za podpowiedź. Teraz jak to uruchomić, aby działało w pętli. Chciałbym, aby formuła działała w pętli, tj aby dla zmieniającego się parametru do zakresu B2:B5 pobierane były kolejne zawartości do C2:C5, D2:D5,...., G2:5. Dla mnie cały szkopuł sprowadza się do tego jak zapisać adres komórki, aby zależnie od zmieniającego się parametru (względnego...
Tak. Używam "Microsoft Communication Control" Problem udało się rozwiązać poprzez wstawienie do pętli DoEvents. Do DoEvents Loop Until MSComm1.InBufferCount >= 9 Program w pętli umożliwia zmianę komórek bez wysyłania danych, a pętla kończy się w momencie kiedy z urządzenia zostaną wysłane dane do komórki. Po zmianie komórki procedura startuje na...
Do pierwszego możesz użyć funkcji RIGHT (zakładając że tydzień jest dwucyfrowy i zawsze na końcu) tydzien = Right(wartosc_komorki, 2) Do drugiego: albo użyć przycisku którego kliknięcie wywołuje makro dodające nową osobę do zakłądki "status" i "zasoby", albo spróbować obsłużyć zdarzenie Worksheet_Change zawężone do kolumny gdzie jest nazwisko....
A może by tak makrem kasować? Jakby go zapuścić w pętli, to może jeszcze by procesora wystarczyło na wpisywanie jakichś wartości do tych pozostałych komórek? :)
Jak najbardziej jest tam rekurencja - kilka pętli w obliczeniach. Dlatego pytam czy jest możliwe żeby makro zadziałało jako "oddzielny proces" i pozwoliło dalej pracować na komputerze
Witam mam w załączeniu makro które importuje plik txt do Excela, muszę jednak ograniczyć import tylko do wybranych kolumn, tzn jeżeli wybiorę datę( zawsze to bedzie ostatni dzień miesiąca) 30.09.2012 to powinny kopiować się wszystkie kolumny do września, wiem że można wyciągnąć nr miesiąca z tej daty ale jak to zapisać w pętli aby makro wiedziało jakie...
Najprościej pominiesz kolumnę robiąc nie jedno ale dwa kopiowania. Oddzielnie kawełek przed pominiętą kolumną, oddzielnie po. Pomiędzy jednym a drugim kopiowaniem trzeba przesunąć np. offsetem początek obszaru docelowego o kilka komórek w prawo, żeby dobrze trafiało. A żeby skopiować za jednym razem to rzeczywiście trzeba trochę przerobić. Makro powinno...
Był ostatnio temat [url=http://www.elektroda.pl/rtvforum/to... w którym maglowanych było kilka rozwiązań. Kod jest logiczny i łatwy do zaadoptowania. Fakt, nie ma tam nic o podfolderach. Do pierwszego poziomu można "dobrać się" Np w ten sposób [syntax=vb]Sub Lista1() Dim path1 As String, path2 As String, plik As String Dim folder As...
No teraz tak :D jak już mówiłem jestem zielony w VBA więc pętle są mi trochę obce ale na pewno jest to lepsze rozwiązanie, w każdym razie dziękuję za pomoc i zamykam temat :D
Bez wykorzystania makr, może to być trudne, potrzebujesz zmiennej z dzisiejszą datą, z niej pobierać ilość dni; Tą wartość używać w pętli jako ilość kroków w których ma zostać dokonane sprawdzenie,
świetnie:), tylko jest jeden kłopot, muszę naciskać kilka razy, aby policzył wszystko. Po pierwszym razie zostawia jeszcze takie same, dopiero po drugim, trzecim, zależy ile wpisów zlicza wszystko. próbowałem w pętli, ale nie wiadomo tak naprawdę ile razy musiła by się wykonać. Nie wiem, czy mnie rozumiesz...
W mojej ocenie błąd powodowany jest poprzez niezrozumiałą pętle napalecie :?: :cry: Gdybyś podała przykładowy plik z wycinkiem Twoich danych to łatwiej byłoby przeanalizować Twój kod - a tak mam tylko wrażenie, że tu makro wprowadza jakieś wartości od "czapy" :D :arrow: wystarczy spojrzeć na kolumnę G :!:
Excel niestety kaleki jest w opcję "suma strony". Też próbowałem swego czasu z hPageBreacks.count i hPageBreacks(n).Location, ale ja swoje a Excel swoje... Sposobu nie znalazłem. Jeżeli zmuszony jestem do sumowania stron w przypadku długiej tabeli, to przełączam do widoku "Układ strony", wstawiam wiersz na dole strony i sumuję zakres. Na nst. stronie...
No tak, działania kodu nie sprawdziłem i niechcący wprowadziłem Cię w błąd. Jako rekompensata Twojego straconego czasu makro z elementami, o których do tej pory była mowa. Krytyczną sprawą było brak zerowania zmiennej nowyNr na początku pętli... Edit 9:00 zmieniłem załącznik (dodatkowo 5-cio cyfrowe i pomijanie arkuszy ukrytych)
Szkoda, że nie chcesz załączyć przykładowego pliku, bo w ten sposób zmniejszasz swoje szanse na uzyskanie optymalnej pomocy, a potencjalnych pomagających zmuszasz do wypytywania o wszystkie szczegóły. Z tego co teraz napisałeś zrozumiałem, że arkusz "Generator cen" zawiera jakieś formuły, które mają być użyte do przeliczenia danych z arkusza "301" i...
Witajcie drogie grono ekspertów! Mam pytanie odnośnie pewnego makra. Chce zautomatyzować wykrywanie błędów przy wprowadzanych zakresach dat. Precyzując: jeżeli przedział nowo wprowadzonych dat ( data start i data end dla danego miesiąca) pokrywa się z datami już wprowadzonymi (przedziały mają część wspólną) to chce pokolorować istniejące daty (patrz...
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...
Witam. Uczę się dla siebie samego pisania makr i mam prośbę odnośnie czy, ktoś z was zna jakiś dobry link do strony gdzie wytłumaczono by jak zrobić pętle w excel'u? Chce zrobić coś takiego, że w UserForm'ie wpiszę 10 liczb z zakresu od 1 do 100. Makro będzie zawsze losowało 10 liczb z tego zakresu. Gdy wylosuje 5 takich samych cyfr jak te z 10, które...
Trzeba będzie wprowadzić copy-paste w miejsce przypisania. Raczej nie obędzie się bez select'ów, ponieważ pliki mamy w różnych instancjach... Spróbuj (nie testowane) [syntax=vb]Dim myPath As String Dim myFile As String Dim myPass As String Dim mySfrom As String Dim mySto As String Dim oExcel As Excel.Application Dim k As Integer Dim i As Integer Dim...
Jeszcze mam drugie pytanie, w którym momencie trzeba zastosować ? To był tylko przykład żebyś zrozumiał jak działa pętla. Do komórek się odwołujesz .cells(numer wiersza, numer kolumny), są też inne sposoby, ale na razie stosuj ten. Pętlę zastosuj jakąkolwiek np: [syntax=vbnet] dim a as integer a=1 Set a1 = ThisWorkbook.Sheets("Arkusz1") Set a2 = ThisWorkbook.Sheets("Arkusz2")...
Ad.1 i 2 Najprościej: nazwij je przy tworzeniu Np dla pierwszego wykresy dodaj na końcu Wykres_01.Name = "Wykres1" wtedy: Sheets(Zak).Shapes("Wykres1").delete Ad.3 Przy Workbook.Open wywołaj makra usuwania i tworzenia. Jeśli będą nazwane (pkt.1), nie będzie trzeba nawet pętli, instrukcji warunkowej, itp. Ad.4 Array z nazwami i pętla. Zakresy masz po...
Brak odzewu może być spowodowany kiepskim uzasadnieniem sensu wykonywania takiej operacji. Zwykle kontrolki AciveX zaznacza się (w trybie projektowania) trzymając Ctrl, kopiuje (ctrl+c) i wkleja (ctrl+v) w wybrany arkusz, lub kopiuje cały arkusz (ppm). Dlaczego chcesz to zautomatyzować? Ile takich operacji wykonujesz? Czy oprócz przycisków w arkuszu...
To znaczy tak, pomysł z zastosowaniem pętli moim zdaniem bardzo dobry, na pierwszy rzut oka, niestety po przetestowaniu, żadnej reakcji makro nie zrobiło w arkuszu Excel, także dalej muszę kombinować, ale mimo wszystko dzięki:) Aczkolwiek jedną rzecz zrobił programik. Zaznaczył komórkę A1, czyli tą od której ma zacząć wklejanie, czyli dostęp do Excela...
... jak masz zamiar je wybierać? ... z tym mam problem ... Nie masz żadnego - po prostu w dodatkowym arkuszu ("konfiguracyjnym") w pewnym zakresie komórek (np. kolumny "A") wpiszesz sobie jeden pod drugim owe nagłówki do wyszukiwania. Makro będzie pobierać nazwy nagłówków (z tego zakresu) i wyszukiwać je w pętli po pierwszym wierszu arkusza z tabelą...
Spróbuj zamiast "ActiveWorkbook" podstawić nazwę pliku z pętli i na końcu pętli włącz =True wbkSkoroszyt.Activate wbkSkoroszyt.UpdateRemoteReferences = False (...) wbkSkoroszyt.UpdateRemoteReferences = True wbkSkoroszyt.Close False Next i
Trzeba to zrobić w pętli bo wierszy jest ponad 5000. Skąd ten wniosek? Wyniki można otrzymać wykorzystując "zwykłe" funkcje Excela. Pewnie konieczna byłaby kolumna pomocnicza, ale dałoby się...
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.
Dzień dobry, Nie znalazłem podobnego tematu więc otworzyłem nowy post: Mam plik Excela (coś w rodzaju magazynu) w w nim ok 100 arkuszy, w każdym arkuszu mam wstawioną tabelę. Wszystkie tabele mają ten sam układ nagłówków. Stworzyłem (nagrałem) makro dla pierwszej tabeli (Tabela1), które będzie formatowało poszczególne kolumny. Chciałbym uruchomić to...
Pytanie podstawowe: czy potrzebujesz kopiować tylko wartości, czy też formaty? Bo w tej chwili to, co robi to makro, to kopiuje wartości "aa" z kolumny A do C, co jest raczej średnio przydatne - równie dobrze można tą wartość tam wpisywać...
Dzięki, uwzględnię to w moim kodzie. Nie rozwiązuje to jednak problemu, który jak mi sie wydaje jest pomiędzy if … a do while… Jak debuggerem analizuje kod linia po linii to po sprawdzeniu warunku if… wykonanie makra przeskakuje od razu do exit if, pomijając po drodze najważniejsze czyli całą pętle i print. Musiałem pochrzanić z kolejnością,...
Tak. W procedurze zdarzeniowej worksheet_change, w pętli For Each porównuj komórki zakresu wyłączając Target z wartością Target... Funkcją Replace "podstaw" pusty znak pod wszystkie cyfry i znak minusa.
pętel excel excel pętel makro kopiować arkusz pętel
wiena mostek drżeć silnik volvo silnika
philips senseo sterownik ładowarki akumulatora
Silnik pralki Amica AW100N nie działa - przyczyny Renons w grach karcianych: brak kart w kolorze