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.
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.
Dzięki za podpowiedź Mam pytanie jak przypisać wartość LinaMax dla (komórka.Value =) Tak żeby można było skończyć pętle
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
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
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....
Na podstawie pliku czas_pracy.xls przygotowałem przykładowe makro. W skoroszycie czas dodałem w komórce A2 ilość pracowników wyszukaną funkcją =ILE.NIEPUSTYCH(A3:A5000). Dodałem nowy skoroszyt "Warunek" w którym znajdują się komórki z funkcjami wyszukującymi interesujące nas godziny : =BD.MIN(dane!$A:$D;C$1;$A$1:$B$2) i =BD.MAX(dane!$A:$D;D$1;$A$1:$B$2)...
... 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ą...
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...
Zwykle na czas działania pętli wystarcza wyłączenie zdarzeń i odświeżania.[syntax=vb]Sub Kasuj() Application.EnableEvents = False Application.ScreenUpdating = False 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 Application.EnableEvents = True Application.ScreenUpdating =...
Czyli algorytm mniej więcej taki: 1. Wyszukujesz ostatni arkusz i zapamiętujesz jego nazwę w zmiennej tekstowej, np Src. Metoda wyszukania dowolna, arkuszy jest zwykle nie tak dużo, można przejrzeć w pętli wszystkie. 2. Tworzysz w zmiennej np Dst nazwę nowego arkusza i tworzysz arkusz z taką nazwą: Sheets.Add.Name = Dst 3. Kopiujesz dane z jednego arkusza...
Mam problem z dokończeniem makra w vba, mianowicie chce wyszukać wyrazy (znaczniki html) wpisane do komórek w excel-u, w całym arkuszu. Arkusz posiada 5 kolumn i około 6000 wierszy. Po wyszukaniu wyborderować i zmienić kolor ich czcionki na czerwony. Zdaje się, że źle się do tego zabierasz. Na razie pętla mieli A1 i na oko będzie mielić bez końca (pętla...
zauważyłem tylko, że nadpisała się jedna komórka więcej z pustym ciągiem i kropką. To miałem na myśli pisząc wcześniej: Przy tym rozwiązaniu trzeba też pominąć ostatni element w tablicy (pusty ciąg). Możesz dodać w pętli warunek [syntax=vbnet]if W(x) <> "" Then[/syntax]
Witam, Ja znam i używam jednej z czterech metod wyszukiwania danych. 1. z wykorzystaniem funkcji FIND() 2. z wykorzystaniem pętli FOR 3. z wykorzystaniem pętli FOR EACH 4. (niezałączona) z wyszukiwaniem binarnym na posortowanych danych Trzy z nich załączam w pliku "testowym". Znajduje się w nim 10.000 losowych, nieposortowanych rekordów: firma, miasto,...
Cześć, może spróbuj napisać taką pętlę: [syntax=vbscript]Sub test() Dim a As Short Dim i As Short Dim y As Short Worksheets("Sheet1").Activate a = InputBox("wpisz liczbę", "szukana pozycja", 1) For i = 1 To 3000 If Cells(i, 1).Value = a Then If Not Cells(i,2).Value = "" Then Cells(y, 3).Value = Cells(i, 2).Value y += 1 End If End If Next i End Sub [/syntax]...
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ąć"...
... 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...
To się przyda, ale potem, na razie nie mamy jeszcze czego zapisywać. Musisz przemyśleć gdzie będą te wszystkie pliki, gdzie plik wynikowy i gdzie plik z makrem. Nie muszą być a tym samym folderze, a nawet lepiej żeby nie były. Natomiast dobrym rozwiązaniem będzie utworzenie podfolderów. Folder gdzie jest plik z makrem prosto określić, więc przenosząc...
Skoroszyt, opcja ta jest zapamiętywana w skoroszycie i makro działa na wszystkich arkuszach skoroszytu. Pytanie brzmi, czy można ten check box ustawić w VBA, aby nasze makro działało zgodnie z naszymi oczekiwaniami. Trzeba przeczytać kod tego makro, to postawa. A nie tupać nogą. VBA jest tylko modelem Excela, a nie jego wiernym odwzorowaniem. Nie wszystko,...
A co tam w procedurach zdarzeniowych arkusza? Dla pewności dopisz Application.EnableEvents=false/true analogicznie jak z screenupdating pierwsze zdanie - strzał w 10! problemem okazała się procedura zdarzeniowa - ''Worksheet change'', więc filtrowanie traktowane było jako ''change'' i wracał na początek. Zamiast filtrowania użylam pętli do wyszukiwania...
Trochę pogmatwany ten opis ;) 1. Wszystkie w tym samum folderze? 2. Wszystkie mają być przeszukiwane, czy tylko z jakąś specjalną nazwą, datą modyfikacji, lub tp? 3. Ile arkuszy do przeszukania w każdym, która kolumna zawiera id, która kwotę? Nie oszczędzaj klawiatury, wskazany jakiś plik z przykładem (Np arkusz wynikowy + jeden arkusz z pliku źródłowego...
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 :!:
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.
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.
Już myślałem, że się nie doczekam na ten plik. Proponuję taki kod: [syntax=vbscript]Sub ReplaceTest() Dim i As Long Application.FindFormat.NumberFormat = "h:mm:ss" Application.ReplaceFormat.NumberFormat = "h:mm" With ActiveSheet.UsedRange For i = 1 To .Columns.Count .Columns(i).Replace What:="", Replacement:="", _ SearchFormat:=True, ReplaceFormat:=True...
Ale dla którego wiersza tabeli 1 ma szukać? Dla jednego czy wszystkich? Jak go chcesz wskazać jeżeli jednego? W najprostszym przypadku uruchamiasz makro stojąc w jakimś wierszu Tabeli 1. Makro znajduje numer wiersza i zapamiętuje klucz wyszukiwania łącząc zawartości komórek z jakimś separatorem, np : Kolumna 1 & "|" & Kolumna 2 & "|" &...
1. ... Chciałbym aby pętla opierała się na "numerze dostawcy" i po zmianie numeru na inny - początek nowej pętli. Pusta kolumna = koniec pętli. 2. ... działa, ale potrzebuję, aby obejmowało tylko dany "numer dostawcy". Po zmianie numeru na inny - start nowego macra. 3. ... Obecnie macro nagrywa mi całą zawartość tabeli ( tabela 1) Pkt 1 i 2 - Pętla...
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)...
Czy da się coś zmienić w kodzie żeby to wykonywało się szybciej ?? 1. Na początek wyłącz wszystkie opóźniacze, które mogą rzutować na szybkość kodu: [syntax=vbscript] With Application .ScreenUpdating = False: .DisplayAlerts = False: .DisplayStatusBar = False .EnableEvents = False: .Calculation = xlManual End With [/syntax] Na końcu makra włączysz je...
witam, przeszukałem trochę postów ale nie mogłem znaleźć rozwiązania na mój problem. Napisałem makro wyszukujące i kopiujące dany zakres jaki będzie wyszukiwany automatycznie. A teraz: Mam teraz stałą ilość nazw WW1A, WW1B itp. teraz chciałbym aby te nazwy powieliły się tyle razy - zapisały pod sobą - ile jest wierszy nie pustych ze skopiowanego zakresu....
Cześć, potrzebuję pomocy z wykonaniem jednego makro. W przykładzie, który zrobiłem wszystko działa prawie jak należy, ale chciałbym to zmienić ze względu na ilość kodu oraz zmienić warunek. Makro uzupełnia komórki znajdując pierwszą wolną komórkę w kolumnie "C", jest to prosty, skuteczny kod, ale zarazem długi. Jeśli chciałbym to zrobić dla większej...
Dzięki za szybką odpowiedź pomogło ale jest jeszcze jeden problem. Opiszę to dokładniej. Makro szukaj uruchamiane jest z komórki "B12" i przez InpudBOXa szuka podanej wartości. UserForm szukaj ładowany z makro szukaj w którym jest ta pętla ma 5 przycisków CommandButton z czego: szukaj_dalej ma przeszukiwać pętlę a pozostałe zakończyć makro szukaj i...
Potrzebuję makro, które usunie mi cały wiersz Co stoi na przeszkodzie, aby kolega napisał sobie takie makro? Przykładów różnych pętli jest na naszym forum pod dostatkiem, usuwanie wiersza można nagrać rejestratorem, kod wstawić do pętli i podstawić zmienne. Metoda do wyboru: porównywanie każdej z każdą, lub wyszukiwanie (Find) W razie problemów z działaniem,...
Witam, Uprzejmie proszę o pomoc. Jak zapisać numery wyszukanych kolumn do zdefiniowania zmiennej / obszaru Array ? Mam taki kod wyszukiwania (prościutki i działa): For Each Kolumna In Szukane_kolumny ' szukanie kolumny w zdefiniowanym zakresie Set Znaleziony_Kolumna = Zakres_kolumn_zrodlowy.Find(What:=Kolumn... LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns,...
Rozwiązanie (VBA) jest w miarę proste. Zwykła pętla z kilkoma warunkami i wyszukiwaniem. No, trochę "dłubaniny" przy tworzeniu procedury ;) Pytanie dodatkowe: Czy wszystkie pliki są w tej samej, stałej lokalizacji (a może przy pierwszym odwołaniu, gdy plik jeszcze zamknięty, należałoby podać lokalizację w okienku filedialog)?
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
Należy utworzyć makro w języku VBA, które w pętli będzie wybierać rekordy z pierwszej bazy i porównywać je z pozostałymi (wyszukując również w pętli pasujący rekord). W zależności od wyników porównania będzie dokonywał stosownych operacji. Jeśli bazy są duże (>10000 rekordów), lecz nr kat są posortowane we wszystkich, to można całą operację znacznie...
Poza tym, że są błędy formalne, to nie bardzo rozumiem jak ten kod ma działać. 1) zakres . Było tylko Worksheets("Arkusz1"). , a to nie jest zakres. Trzeba jeszcze określić jakoś komórki przynajmniej Cells albo UsedRange 4) Zmienną sterującą pętli jest w, a ono nie jest nigdzie w pętli wykorzystane. 5) Miejsce wklejania było zaadresowane Cells(w2, k2+1),...
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...
To nie było gotowe rozwiązanie, ale schemat podzielenia nazwy pliku, oczywiście w ten sposób możesz też podzielić nazwę pliku. Tak, potrzebna jest pętla. Mniej więcej taki algorytm musisz pomyśleć gdzie to wkleić, bo część już masz zrobione 1. Wyszukujesz plik są różne sposoby wyszukania i w związku z tym różne konstrukcje pętli. 2. Jeżeli jest plik...
Witam, plik w którym używam makro składa się z wierszy, w których znajdują się kolejno (data, imię i nazwisko, temperatura, ciśnienie, wartość pomiaru). Napisałem makro, które działa w następujący sposób: - w komórce A1 wpisuję interesującą mnie datę, - następuje wyszukiwanie podanej daty w zadanym zakresie w odpowiedniej kolumnie, - następnie pętla...
Cześć, Jestem początkującą osobą w kwestii VBA, więc mam nadzieję, że dobrze trafiłem i mogę liczyć na waszą pomoc, ponieważ chciałbym rozwinąć swoje umiejętności w manualnym tworzeniu makr niż nagrywaniu. Sytuacja jest następująca: Mam dwa arkusze, z czego do jednego codziennie przeklejam dane, które otrzymuje e-mailem - arkusz1 (zawsze w takiej samej...
Jak już wspomniałem pomysł jest kolegi szaleniec . Kluczowa jest zmienna "maxOd", przechowująca Nr pierwszego wiersza paczki. Makro cyt: "Leci" po kolumnie B, aż znajdzie różną wartość. W tym momencie zmienna "i" ma przypisaną wartość ostatniego wiersza paczki no i mamy zakres. W następnej linii wyszukujemy najmniejszej daty w tym zakresie i przypisujemy...
Strasznie to wszystko skomplikowałeś. Najprościej byłoby napisać funkcję użytkownika, którą posługiwałbyś się jak wbudowanymi. Np =KLUCZ(N17). Nie rozumiem powodu użycia intputbox'ów oraz tablicy. Zakres tabeli z kodami/kluczami powinien być zdefiniowany, albo przynajmniej jej lewy, górny narożnik. Łatwiej byłoby, jeśli to możliwe, gdyby zajmowała dwie...
Witam. Mam pytanie odnośnie makra. Chciałbym zrobić makro które działa w nastepujący sposób: Mam 1000 kodów produtrów do kazdego z nich jest przyporządkowana nazwa produktu np. pomidor21, ogórek 25 ogórek30. Chce aby makro tak działało że w komórce np C2 wpisuje unikalny kod np O25 i po wciśnięciu entera wyskakuje mi pełna nazwa produktu czyli ogórek...
Chciałbym aby po wpisaniu numeru pięcio cyfrowego do komórki "D1" makro przeszukało Range ("B3:B1000") Nie, żeby wszystko źle :) ale gdzie to przeszukanie? Poczytaj o metodzie Range.Find , wpisz w wyszukiwarkę elektrody ".Find" (bez cudzysłowów) lub zastosuj wyszukiwanie w pętli For.
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...
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...
Nie jestem pewien, czy nie mylisz nazewnictwa. Pole to komórka, formularz to arkusz? Ale pomijając to, nie potrzebujesz pętli tylko funkcji wyszukującej ostatniej, niepustej komórki i wpisaniu tekstu do następnej. Być może w kodzie arkusza w zdarzeniu "Przy zmianie", ale to zależy od odpowiedzi na pytanie i działaniu (tajemniczego) pola wyboru. Zarejestruj...
Witam Dzięki za propozycję. Jest to jakieś wyjście ale jak Pan zauważył nazwa mp3 musi być jednolita. Jeśli utwór jest wykonywany przez kilku wykonawców i w tytule połączeni są za pomocą "feat." bądź "vs." a szukamy tylko jednego z nich to już nie działa. Lepiej jakby w przypadku wyszukiwania makro zadecydowało w sposób kolejności działania bądź jakiejś...
makro wyszukiwać makro pętel makro wyszukiwać komórka
lexia sterowniki interfejsu wałek dociskowy tagan tg600 u33ii
energia odnawialna magazyn technic zniekształca
Eliminacja zakłóceń w silnikach krokowych: techniki i rozwiązania Stihl MS 181 – słaba iskra, diagnoza cewki zapłonowej i ustawienie szczeliny
