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...
Dzięki za podpowiedź Mam pytanie jak przypisać wartość LinaMax dla (komórka.Value =) Tak żeby można było skończyć pętle
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
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....
1. Potrzebna będzie jeszcze jedna pętla z funkcją 'Dir' + parametr vbDirectory (opis w helpie). Wynik podstawiasz jako argument 'ChDir' i dalej jak wyżej. 2. Podobnie jak z wyszukiwaniem identyfikatora (metoda 'Find'). Przeszukujesz pierwszy wiersz, z tym że szukasz ciągu... no właśnie. Tylko "LP" jest we wszystkich plikach, więc musiałbyś najpierw...
chciałbym poinformować,że nie dawno odkryłem VBA Hmm... Skoro odkryłeś, może warto nauczyć się go wykorzystywać? Do rozwiązania swojego zadania potrzebujesz kilku rzeczy: 1. Określić nazwę folderu nadrzędnego. Tu można wykorzystać FileSystemObject, Np [syntax=vbscript]Dim oFSO As Object, srcFldr As String, parFldr As String Set oFSO = CreateObject("Scripting.FileSystemObject...
... 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ą...
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.
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ż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ąć"...
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]
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....
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 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...
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)...
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.
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...
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...
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]...
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)...
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 :!:
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.
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,...
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...
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...
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...
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...
Panowie jeżeli to możliwe proszę o pomoc w podpięciu pętli do userform. Jeżeli w pętli używam msgboxa i przycisków TAK i NIE /TAK-szukaj dalej, NIE-przerwij szukanie/ to wszystko jest ok. Stworzony userform ma zastąpić msgboxa. Problem polega na tym, że nie wiem jak zatrzymać wyszukiwanie po uruchomieniu makra w którym jest pętla oraz z którego uruchamia...
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,...
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 & "|" &...
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...
Witam:) Nie wiem czy to dobre miejsce na ten temat ale jakoś nie mogę połapać się na tym forum a tym bardziej założyć nowy temat Bardzo proszę o pomoc, mam zadanie tego typu chciałbym aby makro wyszukiwało mi zakres aktywnych komórek np (A1:A2) z przykładowymi wartości np 1,2,3,4,5...20 i chciałbym aby pętla kopiowała mi te wartości określoną ilość...
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ś...
Myślę że można ten kod uprościć tylko nie trafiam za twoim myśleniem (może zaspany jestem). Na początku wyrzucić to co jest zbędne np. tak: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("zmieniane3")) Is Nothing Then NumerWiersza = 3 For NumerKolumny = 2 To 7 If (Worksheets("biblioteka").Cells(1, NumerKolumny)...
Witam. Tworząc nowe makra w excelu natknęłam się na problem, którego po wielu próbach niestety nie umiem pokonac ani przy pomocy pętli, ani operacji find itp. Otóż w arkuszu "Dane" dotyczącym zawieranych transakcji w kolumnach A-D mam kolejno Nazwisko, Data, Cena, Uwagi Potrzebne jest mi makro, które będzie wyszukiwać podane przeze mnie nazwisko w arkuszu...
Witam. Proszę o pomoc w jednym temacie, mianowicie poszukuje rozwiązania problemu wyszukania zadanej frazy w tekście komórki Excela przez vba. Chodzi mi o algorytm, który sprawdzi tekst w komórce i na tej podstawie wpisze dane wyjściowe. Dla rozjaśnienia przykład. - użytkownicy przy wykonaniu danej czynności wpisują jej kod, np. "kod 8 obniżka ceny"....
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...
mam duży problem (choć prosty :-) ) mam tekst: get system name name = ... w drugiej kolumnie odpowiedni " PPPoA Bridging ... skrypt: WierKon = InputBox("wiersz koncowy") N = WierKon Sheets.Add.Name = "liczniki_pppoa" ' nowy arkusz Sheets("liczniki_pppoa").Select ActiveWorkbook.Sheets("liczniki_pppoa").... = 3 Sheets("Arkusz1").Select 'WierAkt...
hmm jeszcze nie wiem czy od razu dużo lepszy od AVR Studio ale jak dla mnie dużo lepsze IDE do pisania softu bo. 1. lepsze kolorowanie składni (pogrubione czcionki itp) może to błahostka ale jak się dużo pisze to człowiek i na takie rzeczy zwraca uwagę 2. jeszcze właśnie b.mało wiem o możliwościach konfiguracji np ścieżek do własnych bibliotek jak i...
Dziękuje, tak, ale nie całkiem o to mi chodziło. [1]ciotka [2]Danuta [3]swetry [4]zielone "Gruba (1) (2) Robi (3) na drutach. Już po pięciu minutach Dowiedziały się o tym jaskółki, Gwałt podniosły do spółki: "Jak to? (1) (2) Robi (3) na drutach? Na drutach siadają ptaki, Lecz (1)? Skąd pomysł taki? A lećcież do niej gromadnie, Bo wam (1) z drutów spadnie!"...
makro pętla excel makro pętla zamknięta pętla
zmywarka bosch mycia parametr maszynowy strumienica zamiast katalizatora
philips senseo zgrzewarka transformatorowa
Odczyt IMEI za pomocą komend AT w modemach GSM Oscyloskop OMŁ-3M - produkcja radziecka czy polska?