Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
Ok, to z tym myślę, że sobie poradzisz (a jeżeli coś by nie szło to śmiało pisz). Co do wyszukiwania to masz dwie opcje: - użyć wbudowanej funkcji VLookup (tak jak w formułach) - napisać swoje wyszukiwanie Oczywiście pierwsza opcja wydaje się bardziej sensowna :). Użycie tego w makro jest bardzo proste. Tutaj masz przykładową implementację - spróbuj...
Dopisz przed tą linią: debug.print .Shapes(.Cells(w, 1).Text).name naciśnij Ctrl+g uruchom makro. I co tam wypisało?
Proszę krok po kroczku 1. "Baza danych" musi mieć identyczną budowę (jeśli chodzi o kolumny) jak arkusz spisowy (zwłaszcza pod względem komórek scalonych :!: ) :arrow: najlepiej zrobić do wydruku kopię arkusza "Arkusz danych (2)"; 2. Ze wzoru arkusza spisowego robisz zrzut stopki wydruku 932190 3. W "Arkuszu danych (2)" wyfiltrowujesz tylko dane z...
Niestety nie działa :/ Oczywiście, że działa ;) Sprawdza wszystkie komórki w zakresie S340. Innego nie podałeś. Do sprawdzenia zakresu >1 komórka należy zastosować pętlę: [url=http://dzono4.w.interia.pl/kurs/for... Szukanie wolnej komórki: Włącz rejestrator makr i nagraj kilka kombinacji Ctrl+strzałka (w dół/górę). Najlepiej z wypełnionymi...
Fajnie jakby to wyszukiwanie nie wymagało otwierania pliku. Hmm. Przy tylu danych makro działałoby od poniedziałku do środy :) W załączonym pliku dodałem przycisk oraz (na życzenie) pętlę Do-Loop.
Zarejestruj jeszcze wyszukiwanie tekstu (Ctrl+f), zamiast 'Activate/Select' wpisz 'Column' i przypisz do zmiennej. Powinno wyjść coś takiego p.kaczmarek2 . Do tego obsługa błędu, w razie nieznalezienia, oraz różne takie mniej istotne...
Jak dla mnie to będzie jakiś z rodziny TNY.... Bajki co wdać bez makro to na pewno jest TOPxxx ja bym spróbował TOP209P kolego (at)serwisancik (gdybyś się więcej postarał od strony lutowania), a to co dałeś równoległe do aparatu...
Teraz działa lepiej. Choć nie jest kod zbyt dobrze napisany (to moje 1 samodzielne makro) jakoś działa. Przy każdym starcie przesuwa kursor o 2 znaki. Jak znajdzie kursuwę przed spacją i 4 cyframi - zatrzymuje się. Ponowne uruchomienie makro szuka dalej w tekście. (można sobie wywalić ikonkę makro na Wstążkę albo dodac skrót klawiaturowy do jego uruchomienia)...
Zupełnie mnie nie przekonuje to rozwiązanie, wpisywanie wartości w jednym arkuszu a potem wyszukiwanie wg kilku kryteriów, automatyczna zamiana lub dopisanie itp. Trochę za dużo kombinacji. Trzeba pamiętać, że działania makr są nieodwracalne, najmniejszy błąd i pozamiatane :( Oczywiście makro jw. da się napisać :) Proponuję inne, wg mnie prostsze rozwiązanie...
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.
Pobaw się tym.
Sprawdź więc (nie korzystałem z twojego przykładu): 903122 Wielkość liter ustawiona na stałe "MatchCase = True". Wyszukiwanie dokładne lub przybliżone określane w okienku dialogu, szukana fraza również. Drobne opisy działania w kodzie.
Cześć, potrzebuje pomocy z napisaniem procedury wyszukaj pionowo jako makro. Poniżej wysyłam to co mam. Wpisując wartość w jednej z komórek, makro musi wyszukać dla niej odpowiedni wynik w innym pliku. Jako, że ten plik będzie codziennie inny to makro będzie otwierać najnowszy plik z danej lokalizacji "Baza". Uruchamiając makro otwiera mi się okno w...
Sprawa dość prosta. Procedura zdarzeniowa arkusza "przy zmianie" Range(zakres).Find i przypisywanie...
Potrzebuję makro, które pomogło by Jeśli chcesz gotowy, staraj się nie powodować niepotrzebnych prac, temu kto by mogł pomoc. Które naprawdę powinny być format pole 'numer artykułu ' bo na jednej stronie to tekst(arkusz1) na inny numer(arkusz2)?
Do tego wystarczy formuła: [syntax=text]=FRAGMENT.TEKSTU(C2;SZUKAJ.... Jeśli koniecznie chcesz makro, to wypróbuj takie z użyciem wyrażeń regularnych: [syntax=vbscript]Sub Wyciagnij_Daty() Dim lLstRw& Dim i& Dim l% Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania...
Cóż - nie wiem, czy się dobrze wyraziłem, ale chodziło mi o takie makro VBA implementowane np. do Worda albo Excella. Słabo rozumiem Twój kod, nie do końca się orientuję jaką miałby być dla mnie wskazówką... :( Co zrobić Panie Kierowniku? :) Tak na poważnie - wyszukiwanie bloku tekstu między dwoma znakami jest w Excell albo Word dostepne z poziomu...
Uruchom makro i wybierz Makro1 / lub podepnij pod przycisk. Ja tylko wtrące że można prościej napisać to makro (zostawiając pomysł) [syntax=vb]Sub Makro1() Dim maxIndex, x, y As Integer maxIndex = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row For x = 1 To maxIndex For y = 1 To maxIndex If Abs(Cells(x, 2).Value + Cells(y, 2)) < 0.01 Then Cells(x,...
Jeśli wszystkie warunki były znane od początku, to być może byłoby oczekiwanych wyników. biorąc pod uwagę fakt, że Pan dwa razy więcej postów i są wystarczająco dużo punktów, myślałem, że to po prostu dać wskazówkę. Dlaczego wyszukiwanie w kolumnie I nie działa z poniższym kodem ).AutoFilter Field:=9: w tym przykładzie nie ma nic o kolumnie 9 przy pierwszym...
Najpierw musisz utworzyć marko które będzie się uruchamiała po zmianie tekstu w komórce. Przykład Cells.Find . Na końcu wyrażenia dajesz .Activate i komórki w których znaleziono daną wartość robią się aktywne. Na końcu używasz czegoś [url=http://java2s.com/Code/VBA-Excel-Ac... żeby przejść do właściwej komórki.
To sprawdź sobie takie rozwiązanie.
Witam, mój problem polega na tym, że potrzebuje makro, które będzie z 10 plików worda wyszukiwało wskazane słowa np: "Developer" i wstawiało do jednego dokumentu dane do tabeli słowo występujące po słowie "Developer". Wiem jak wczytywać z tych plików wskazane paragrafy(akapity) lecz nie wiem jak podejść do problemu, aby wyszukać najpierw słowa i wstawić...
Ojej! Ale najważniejsze, że próbujesz ;) Przy okazji: wklejając kod, umieść go pomiędzy znacznikami Syntax (opcja listing kodu) Poniżej przykład oparty o 'Dir'. Przeanalizuj, dostosuj do własnych potrzeb [syntax=vb]Sub Find_Id() Dim strPath As String, wb As String Dim ostWrs As Long, i As Long, test As Variant strPath = ThisWorkbook.Path 'jeśli w tym...
Wnioskuje że w jakimś okienku (ZaznaczForm) w polu (tbWartość) chcesz wprowadzać tekst (i tylko tekst). Tak? Może wystarczy tylko wykasować w linijce kodu wartość = Val(ZaznaczForm.tbWartość.Value) funkcję zmieniajacą "Val" czyli wartość = ZaznaczForm.tbWartość.Value Tylko jak to się będzie miało do większy mniejszy od jakiegioś innego tekstu wpisanego...
1) Lista musi mieć ciągły zakres. Najlepiej wykorzystać do tego osobny arkusz. Trochę można zautomatyzować (patrz załącznik). Założyłem, że nazwa firmy w Arkusz1 występuje co 13 wierszy. 2) W przykładzie wykorzystałem VBA (Select Case) i ukrywanie/odkrywanie wierszy 3) j.w.
Potrzebuję makro wyszukujące zadaną wartość w nieokreślonym zakresie arkusza. Nie mogę określić konkretnego zakresu ponieważ zakresy są różne. Wyszukiwanie zawsze zaczyna się od A1. Makro zawierające: "For Each komórka In ActiveSheet.Cells" wyszukuje zadaną wartość przeszukując arkusz w poziomie tzn. komórka A1, B1, C1 ..., następnie A2, B2, C2 itd....
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.
W twoim makro podmień [syntax=vbscript]fndList = Array("*kin*", "*samoch*", "*kot*")[/syntax]
W takim razie to InStr zwróci Ci pozycję w ciągu i to należałoby wykorzystać...
Nie doczytałeś jak działa obiekt [url=http://msdn.microsoft.com/en-us/lib... - drugim parametrem w nawiasie nie jest pozycja ostatniego znaku, a ilość znaków które mają zostać wzięte (długość). W związku z powyższym, musisz to przerobić na: [syntax=vb]kom.Characters(i, j - i + 1)...[/syntax]
Następnym razem jako przykład załącz skoroszyty Excela a nie zrzuty ekranu. Przetestuj kod: [syntax=vbscript]Option Base 1 Sub podziel_autorow() Dim tblTmp() As String Dim lLstRw& Dim i&: i = 1 Application.ScreenUpdating = False lLstRw = Cells(Rows.Count, 1).End(xlUp).Row Columns(3).EntireColumn.Insert Cells(1, 2).Value = "autorzy" Cells(1, 3).Value...
Tak się składa, że niedawno robiłem dla naszych finansów coś podobnego. Program, po uproszczeniu, w załączniku, może jakoś Cię natchnie. ;) Zamiast kopiować do innej zakładki - grupuje pasujące linie. Dla 5000 linii jak w przykładzie działa u mnie, po drobnej modyfikacji, ok. ~4s (przy ~260s dla poprzedniego makra). Być może zmiana Range() na Cells()...
Posiadam działającą wyszukiwarkę w Excelu, która działa tylko dla jednej kolumny [syntax=vbscript]Private Sub TextBox1_Change() ActiveSheet.ListObjects("Data1").RANGE.A... field:=2, Criteria1:="*" & [a2] & "*", Operator:=xlFilterValues End Sub[/syntax], jak zmodyfikować makro bądź utworzyć całkowicie nowe, aby działało dla wielu kolumn....
Tu masz poprawki :)
Program masz "prawie" gotowy. Pomyśl, potrzebujesz odwołać się do Nr wiersza komórki spełniającej kryteria (tutaj zmienna "abc", zadeklarowana jako 'Range'). Będzie to wartość właściwości 'Row'. Następnie należy znaleźć lub określić Nr ostatniej w wierszu. Zadziałaj podobnie (metoda End), jak masz to z licznikiem pętli. Pozostaje przeliczenie (wymnożenie)...
SUPER! bardzo dziękuję Makro działa, tabela niestety nie ma racji bytu, ponieważ w kolejnych wierszach tabeli będą się zmieniały wartości czy nie zawsze będzie szukać B, a makro wyszukuje z całości jedną daną. Mam natomiast inne pytanie, czy mogę przekopiować to makro do innego skoroszytu? Pytanie banalne, no ale coś mi to nie idzie, jak pisałem wcześniej...
Cześć, od razu chcę poinformować, że jestem totalnie zielony 😉 tworzę plik w którym w Arkusz1 mam wzór raportu w którym w odpowiednich polach zmieniają się dane na podstawie wybranego dnia, a następnie drukowany do PDF. W Arkusz2 mam bazę danych na podstawie której wypełniany jest raport w Arkusz1. Każdy dzień w bazie to osobna kolumna. Takich raportów...
tutaj wrzucam bo inaczej się nieda: http://wrzucplik.pl/pokaz/1955053---9fu3... w dodaj jest wszystko co jest zautomatyzowane, reszta to tak jakby baza danych. Chodzi o działanie przycisku przypisz na arkuszu "Dodaj" w "Dodaj/zmień asystenta. Ma wyszukać po imieniu i nazwisku odpowiedniego klienta, i zmienić przy nim asystenta na tego jaki jest wybrany...
hmmm coś niechce działać po wprowadzeniu zmian Hmmm, coś myślę, że zmiany źle wprowadzone. :D Kod kolegi adamas_nt działa. Wrzuć plik po zmianach.
Mam problem z przygotowaniem makra, który będzie wyszukiwał dane. W załączeniu zamieściłem przygotowany plik excel. Mam tam makro wyszukujące natomiast problem mam następujący - wyszukuje mi dane tylko po wpisaniu pełnej nazwa natomiast potrzebuję po fragmencie tekstu bądź jednego wyrazu (nazwy będą dość długie stąd potrzebuję coś takiego). Nie mogę...
Nigdzie na forum nie mogę znaleźć takiego przykładu. Stwórz go sama. Nagraj makro wyszukiwania i pod argument 'What:=' podstaw nazwę pola... Odnośnie wyszukiwarki forum: 1. "excel vba combobox" - 28 wyników 2. "excel vba wyszukiwanie " - 27 wyników Jest więc w czym przebierać.
Zdaje się, że źle się do tego zabierasz. Po pierwsze musisz przypisać właściwą listę do combo w zależności od stanu przycisków opcji. Jednak najprościej dwa pola kombi, z różnymi listami, nałożyć na siebie i wyświetlać ten właściwy. Makra przypisujesz do zdarzeń i już coś się dzieje (załącznik). Filtrowanie realizujesz po zmianie w combo (podstawiłem...
Jak masz tak ładnie popisane "stare:xxxxxxx" i "nowe:yyyyyy" we wszystkich wierszach to nawet nie musisz sięgać ani do wyrażeń regularnych, ani do VBA :please: Wystarczy zrobić odpowiednią formułę (na bazie fragment.tekstu) w kolumnach C i D i przeciągnąć ją na dół kolumny :idea: :idea:
Witam Poszukuje wsparcia w utworzeniu odpowiedniego makra. Chciał bym stworzyć makro które ułatwiło by mi wyszukiwanie danych np.: „odbiorcy” w arkuszu exel. Na bazie znalezionego arkusza na forum chciałem dostosować makro do własnych potrzeb, ale nie do końca mi się to udało. Układ miał działać w sposób następujący: 1.Po wciśnięciu przycisku...
Witam, moim problem jest wyszukiwanie za pomocą danych. Identyfikatora, nazwiska, imienia. Stworzone makro wyszukuje odpowiednie dane po czym one znikają i przeszukuje dalej.Mi zależy, aby można było wpisać tylko Identyfikator lub nazwisko lub imię. Czy ktoś naprawi mój błąd lub pokaże inne rozwiązanie?
Wykorzystaj funkcję wyszukaj.pionowo() z 0 (zerem) jako ostatni argument. Lub tak jak masz zrobione za pomocą wyszukaj() tylko zmień źródło z indeksu na nazwę i zakres kolumny przeszukiwanej na nazwy a nie indeksy. Jeżeli chcesz jednak makro to to podaj hasło do projektu makra lub zamieść załącznik z odblokowanym projektem makr.
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
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
Można przypisać dowolną kombinację klawiszy do makro wyszukiwania (żeby łatwo było je uruchomić) np. takiego: Cells.Find(What:=Cells(1, 1), After:=ActiveCell, SearchOrder:=xlByColumns).Select Jeszcze lepiej zastosować przypisanie opisane w moim poprzednim poście (...)What:=strSzukana(...). Do szukania tylko w 1 kolumnie można...
makro wyszukiwanie komórki makro excel wyszukiwanie excel makro wyszukiwanie
zodiak trzaski wyświetlacz mrugać współczynnik prostowania
kolokwium obwody kolokwium obwody
Sony KD-55X8508C 4K TV: Common 6-Blink Backlight, eMMC Boot-Loop, and Power Issues Instalacja TV Trwam na dekoderze Polsat Box
