Spróbuj: [syntax=vbscript]Option Explicit Sub wyszukaj() Dim tablica() Dim ostwiersz, petla, szukajwiersz As Long Dim szukana As String ostwiersz = Sheets("9.18").Cells(Rows.Count, 3).End(xlUp).Row Sheets("9.18").Cells(1, "e") = "reverses" ReDim tablica(2, ostwiersz - 1) For petla = 1 To ostwiersz - 1 tablica(1, petla) = Sheets("9.18").Cells(petla +...
Tutaj http://npp-community.tuxfamily.org/docum... masz pokazane jak używać prostokątnego zaznaczania. Ewentualnie nagraj makro jak w jednej lini usuwasz to co niepotrzebne następnie uruchamiasz makro wielokrotnie. Albo jeszcze prościej i szybciej: 1. Kliknij na pasku narzędzi na szukaj 2. Kliknij zakładkę Zamień 3. Na dole w trybie...
Czepiłem się tego od rana i dalej nie mogę rozgryźć tej zagadki. Dlaczego w makro działa FindNext a w funkcji nie chce załapać? Gdzie robię błąd? Dodałem do funkcji opcję by wskazać który nr wyniku ma wyświetlać (na razie nie myślałem nad zabezpieczeniami gdy nie ma ciągu) Wszystko jest dobrze jak się nie poda numeru wyniku lub poda się 1 bo pierwszą...
Witam! Dziś taki problem: Mam kilkaset plików wynikowych o jednakowej strukturze w których w kolumnie F znajduje się rachunek bankowy. Mam też plik nazwijmy go baza gdzie w kolumnie D znajduje się lista rachunków bądź ich części (tzn maska rachunku). Problem polega na tym jak w szybki sposób wyszukać w plikach wynikowych rachunków z listy z pliku baza....
Witam, mam wielką prośbę o pomoc. Potrzebuję stworzyć makro, które będzie podmieniało wartości komórek w kolumnie w zależności jaka wartość tekstowa zostanie znaleziona. Przykład: Mam komórki które zawierają: Dobre_Kino Kina Super_kino_ Samochodu Jadę Samochodem KOTEK Dla_kota Makro powinno wyszukiwać ciągi tekstowe: "kin", "samoch", "kot" i tak gdzie...
[syntax=vbscript]Sub UsunLinie() w = Trim(InputBox("Wpisz szukany tekst:", "Szukaj tekstu", "WebService")) Selection.HomeKey Unit:=wdStory For Each l In ActiveDocument.Paragraphs l.Range.Select If InStr(1, l.Range.Text, w) > 0 Then Selection.Delete Unit:=wdCharacter, Count:=1 End If Next End Sub [/syntax]
Cześć, Dziękuję za szybką pomoc. Jestem pod wrażeniem, dokładnie o to mi chodziło, makro ma szukać fragmentu tekstu i na tej podstawie zaznaczać wiersz w którym występuje szukana fraza. Sprawdziłem u siebie i fajnie śmiga. Zauważyłem jedną różnicę, gdy wpisuje szukaną frazę tak jak jest wpisana w tabeli, np. UTR z dużych liter to makro szuka i koloruje...
Sprawdź: 903325 Jeśli będzie ci "przeszkadzać" okienko wpisywania słów, to linię: [syntax=vba] fraza = Trim(InputBox("Wpisz szukane słowa rozdzielone średnikiem:", "Szukaj tekstu", "Service;Web;WebService"))[/syntax] zmień, zgodnie z poniższym schematem, na np.: [syntax=vba] fraza = "Service;Web;WebService"[/syntax] Podobnie z 'dokladnie', również możesz...
Moja znajomość języka nie pozwala dokładnie wyjaśnić. Różnicę między 'New' i bez niego Szukaj w podstawach programowania objektowego(definicja objektow)
Dzień dobry, Nie trzeba makra, wystarczą funkcje WYSZUKAJ.PIONOWO lub PODAJ.POZYCJĘ. Wyszukiwane dane należy połączyć w pary operatorem złączenia tekstów & i wprowadzić funkcje jako tablicowe Ctrl+Shift+Enter. WYSZUKAJ.PIONOWO zwróci szukany wyraz (jeśli go znajdzie) lub błąd #N/D! jeśli nie znajdzie. PODAJ.POZYCJĘ zwróci położenie znalezionego wyrazu...
Witam, ja tu przypadkiem i nie chcę zaburzać dyskusji, ale wpadłem na pomysł może głupi ale i tak się tym podzielę. .pdf z przykładu można otworzyć Word'em i jest tam "numer zlecenia" w formacie tekstowym. Może całość uda się załatwić makrem w vba ? otwiera plik, szuka tekstu i zapisuje plik w formacie pdf ze znalezioną nazwą. Robiłem tak tylko w excelu...
Słabo szukałeś. Tu masz przykład z "wordowskiej" pomocy visual basica jak się wstawia TextFrame (troszeczkę przerobiłem). Znalazłem poprzez nagrywanie makr. Owszem nie można nagrać wstawiania ramki ale jeżeli jest już wstawiona można do niej wejść i coś napisać (to się nagra). I po nitce do kłębka... With ActiveDocument.Shapes.AddShape(msoSh...
Przeglądarka zapisuje stronę html, a tam niespodzianka - plik tekstowy ze znacznikami odsyłaczy do stron. Dalej można sobie pisać program, który wywali wszystko poza znacznikami odsyłaczy, albo szukać gotowca. W załączniku plik z linkami strony elektroda.pl/forum/ Zapisane jako tekst. Rozszerzenie było inne, ale sobie poradziłem bez AI, bez Google,...
Owszem to filtrowanie danych ale w żadnym wypadku nie powinno być powiązane z auto-filtrem, tym bardziej jak masz excel 2003 i poniżej. Tu masz kod. Tłumaczyć? [syntax=vb]Sub Makro1() Dim ostWrs As Long, x As Long Dim tekst As String, szukane As String ostWrs = Range("B" & Rows.Count).End(xlUp).Row tekst = InputBox("Podaj szukany ciąg", "Podaj szukaną")...
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)...
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
"Zapomniałeś"dodać, że w kolumnie B też się mogą zdarzyć "wypadki", że ten sam tekst będzie pisany raz dużą, raz małą literą... Niemniej tak na szybko udało mi się takie coś naskrobać, jak w załączniku. Sprawdź sobie czy działa... PS. Gdybyś kiedyś szukał kogoś do stworzenia za rozsądne pieniądze porządnie takiego arkusza planistycznego - polecam swoje...
[syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax] Poniżej bez rozróżniania wielkości...
Zdecydowanie łatwiej się porozumieć na bazie załączonego pliku . Widać wtedy różne niuanse, które mogą wydawać się z pozoru nieistotne, a poza tym można przetestować proponowany kod. Powinien działać kod: [syntax=vbnet]ActiveCell.Value = Application.WorksheetFunction.VLookup("s... Worksheets(Range("B6").Value).Range("A:E... 5, False)[/syntax]Zakładam,...
Witam, chciałabym znać numer wiersza, który zawiera pewien fragment tekstu. Znalazłam takie makro: [syntax=vbscript]Sub szukaj() Dim str_Wartosc As String Dim int_Licznik As Integer For int_Licznik = 2 To 120 str_Wartosc = ActiveSheet.Cells(int_Licznik, "A").Value If str_Wartosc Like "*AAA*" Then MsgBox "W kolumnie A wierszu nr " & int_Licznik & " jest...
To nie ma związku z formułami. W wierszu oznaczonym poprzednio komentarzem 4) zamiast lw było wpisane 12, więc pętla w ogóle się nie wykonywała (od 13 do 12 nie ma żadnej wartości). Poza tym ponieważ lw szuka ostatniego zajętego wiersza w kolumnie A, a w tym ostatnim wierszu była teraz formuła zwracająca pusty tekst, więc dodałem jeszcze w pętli warunek...
jeżeli chodzi o iloś pozycji po importowaniu ze źrodła to max 700 - ilość firm to około 300-400. ma to polegac na tym, ze importuje pliki i w zestawieniu zbiorczym widze jakie ilości ma dana firma i wtedy np ta co ma najwiecej rozliczam... poprzez przygotowane filtrowanie wedłu firmy z ograniczeniem do przedziału czasowego. odnośnie filtrowania do dat...
Odnalazłem odpowiedź na pytanie które zadałem, postanowiłem więc bez zakładania nowego tematu opisać ją tutaj. Potrzebujemy darmowego programu [url=http://www.replsoft.com/downloads.h... File Utilities Oraz dodatek Batch Replacer for MS Word [url=http://www.replsoft.com/brformsword... Replacer for MS Word Po zainstalowaniu programu (...
To nie było pytanie, czy nie ma błędu, a czy znaleziono szukany tekst: [syntax=vbscript]a = Application.Match(Target, w.Range("A1:A" & ow), 0) If Not IsError(a) Then w.Rows(a).Delete[/syntax] Stąd taka negowana logika.:) Powyższy kod to przerobiony kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then...
Szukam makro które porówna wiersze do siebie z dwóch kolumn. Porównanie ma polegać na wyłapaniu najbardziej podobnych tekstów min 5 znaków. STORNO
Sam rozwiązałem mój problem. W Microsoft Visual Basic klikamy Tools i wybieramy References... szukamy Microsoft Word i zaznaczamy ptaszkiem. Teraz można używać składni używanej w poleceniach w makrach z Worda w Excelu. Pozdrawiam
Czy chodzi Ci aby powielić (skopiować) istniejący format na inne komórki? Jeśli tak, to szukaj "pędzelka" (malarz formatów) na wstążce poleceń. Polecam również: Zarejestruj makro -> wykonaj format -> zakończ rejestrację. Po wykonaniu tego możesz formatować wywołując makro, lub nawet wypłynąć na szersze wody i edytować kod z poziomu VBA (Ctrl+F11)
Dziękuje wam za dotychczasowe podpowiedzi. Wymyśliłem jeszcze jeden sposób: wszechmocne MARKA. Będę jednak potrzebował waszej pomocy w stworzeniu odpowiedniego kodu. Przykład: (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)...
nie bardzo rozumiem ta formuła ładnie kopiuje szukany tekst do kolumny obok a potrzebuję żeby go wycięła z tej kolumny w której go znalazła
Chce jakiś przykład Analizowałeś przykład z linka? Otwiera plik, szuka tekst i kopiuje. nie znam hasła Ja chyba też nie znam hasła do Twojego pliku.
Czyli problemu należy szukać wcześniej. Jak wygląda funkcja lcd_init() oraz makro LCD_CLEAR ? Jaki jest schemat połączeń?
Witam, Chciałem napisać sobie makro, ale niestety natknąłem się na pewien problem. Początek zrobiłem sam a w zasadzie to skopiowałem, nagrywając makro. 1. Krok to formatowanie text to columns to się udało . https://obrazki.elektroda.pl/3660601100_... 2. Miałem w kolumnie zmienić nazwę np z " forum" na "test". Rozwiązałem to w ten sposób,...
Piękna formuła przeliczania kwoty na tekst.xls. Szukam właśnie czegoś takiego a sam nie mam pojęcia na tworzeniu makr. Jest tylko jedna prośba, aby zmienić zapis końcówki kwoty słownie aby wyglądał tak: 1200,20 zł - jeden tysiąc dwieście 20/100 złotych, lub 1200,20 zł - jeden tysiąc dwieście 20/100 zł Ja sam nie mam pojęcia na tworzeniu makr powodzenia...
Tak plik importuje makrem. Tak ten ciąg który szukam http://jakasstronka.pl/stronkatest jest w jednym wierszu poprzedzony innym tekstem.
Wklej do modułu pliku z linka i uruchom. Makro w tej postaci "wydłubało" 1341 wierszy. Po wszystkim wyeksportuj, lub skopiuj arkusz "Wynik" do swojego pliku. Reszta w komentarzach.[syntax=vb]Sub Yoasia() ileArk = 2 'są dwa z danymi w pliku z linku. Zmień jeśli jest inaczej. 'tu sprawdzimy czy jest arkusz wynikowy, wstawimy jeśli nie 'nie zmieniaj kolejności...
Hej, Mam podobny problem ale niestety powyższe kody nie działają. Mam plik pdf , w którym mam około 1000 stron , przez wyszukiwanie zaawansowane wyszukałam strony ,których potrzebuję ale nie można ich zaznaczyć i wydrukować. W związku z tym czy to makro , o którym pisaliście mogłoby mi wyszukać numery stron w pliku pdf ,które zawierają szukany tekst...
Faktycznie masz racje. winny jest folder systemowy. pomyliłam nad "rozwojem" makra. Czy da się aby podobne makro szukało nie nazw plików czy folderów ale tekstu wewnątrz pliku. Powiedzmy, że chce znaleźć w wielu plikach konkretny NIP klienta ale wewnatrz np plików csv, txt, xls, i inne (te które są możliwe do przeszukania) i żeby te pliki kopiował do...
chodzi o wyciągnięcie zawsze tych pierwszych dat Ogólnie to konieczne by było makro z wyrażeniami regularnymi :idea: , w tym konkretnym przypadku można jednak wykorzystać prostą przeciąganą formułę :D [syntax=vbscript]=FRAGMENT.TEKSTU(E3;SZU...
Dzięki za zainteresowanie problemem. Niestety tutaj makro by było bardzo pomocne, plik będzie używało kilka osób (zwykłych szarych użytkowników) Makro można podpiąć pod przycisk i po problemie, każdy sobie kliknie i mu się wszystko ładnie zrobi. Problem polega na tym że z tego jednego pliku musi powstać csv który będzie zawierał w pierwszej kolumnie...
Jak już znajdzie to masz adres komórki i możesz z nim kombinować Sub szukaj() gdzie = ActiveCell.Address On Error Resume Next Columns("B").Select 'przypisanie adresu komórki zawierającej szukany tekst do zmiennej znalezione = Selection.Find(What:="AM.1.... Logging/004a IIS Failure Access Audit", LookAt:=xlPart).Address...
Wstaw w kod arkusza "Wydatki" i kliknij w "Zapisz" [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ostWrs As Long 'warunkiem działania makra jest adres scalonej komórki (tej z tekstem "Zapisz") 'zwrócony przez zmienną Target If Target.Address(0, 0) = "E18:E19" Then 'sprawdzamy, czy wymagane pola są wypełnione /przy okazji...
Jeszcze lepsze się u mnie jaja dzieją. Losowo z nieznanych przyczyn działające wcześniej makro wiesza się w losowych miejscach. Straciłem sporo czasu zanim się zorientowałem, że w takim przypadku pomaga jedynie RESTART KOMPUTERA. Inny numer: WORD potrafi poprawnie mi wykonywać makro, a po którejś pętli (wykonywaniu tego samego makra od nowa) np. przestaje...
W komórce B mam nazwy skrócone ale nie są ułożone w takiej kolejności jak w komórce B. W komórce A są ułożone alfabetycznie i w komórce B też alfabetycznie ale jeżeli mam pełną nazwę S.C. Bitpol a skróconą Bitpol to są one w innych wierszach i przy tak dużej ilości wierszy ciężko mi szukać.
Witam Wszystkich. Zaczynam przygodę z VBA, więc moja wiedza jest nieznaczna. Jeśli chodzi o makra, to potrafię niestety tylko nagrać makro. Czasem jednak to za mało. Potrzebuję makra, które by sprawdzało w Arkusz2, zawartość komórki E7 i jeżeli komórka zawiera tekst np. "DOSTARCZONO", to jako wymóg zapisu danych, jest uzupełnienie komórek F7, G7, H7,...
Potrzebuję stworzyć makro przesyłające dalej wiadomość, ale po uprzedniej edycji jej treści, tj. usuwanie określonych fragmentów tekstu wiadomości, pobieranie adresu odbiorcy z określonego miejsca z treści, zmiana tematu wiadomości na tekst z treści. Szukam rozwiązań już od dłuższego czau, ale w sieci pomysłów brak :(. Treść e-maila w załączeniu, na...
Nie krzycz tylko napisz powoli o co ci chodzi. Chodzi o wpisanie albo funkcji, albo makro... WŁĄSNIE POTRZEBUJE MAKRO Zdecyduj się. WYSZUKAC TO I JA UMIEM ALE TO NIE JEST TAKIE PROSTE Jeżeli umiesz to powinno być dla ciebie proste W ZAŁĄCZNIKU JEST NAPISANA FUNKCJA ALE COS NIE DZIAŁA Są cztery procedury w module makra. Procedura "Wyszukaj" przeciez...
Jak masz tajne pliki :D to bieda - nikt Ci nie pomoże :!: Musisz szukać sam odpowiednich rozwiązań :crazyeyes: Proponuję wypróbować makra z zastosowaniem wyrażeń regularnych :spoko: np https://www.elektroda.pl/rtvforum/viewto...
Witaj. Nie piszesz, w jaki sposób chcesz tego inputboxa użyć, więc nie wiadomo, dlaczego nie działa. Najlepiej zamieść przykładowy arkusz, będzie też wtedy wiadomo, w jaki sposób są wpisywane dane do tej tablicy. sytuacja wygląda tak, że kopiuję tekst, gdzie są adresy i inne informację (adresów może być maksymalnie 6). włączam makro, które szuka tylko...
Jeżeli możesz umieścić wynik w innej kolumnie niż B to wystarczy formuła: =JEŻELI(DŁ(B2)<=6;B2;(ZASTĄP(B2;SZUKA... Pod warunkiem, że 1.250,00 to 1250. Jeżeli trzeba podstawiać w tej samej kolumnie, to można tę formułę przekształcić w makro, zapętlić, postawić warunki itd Dodano po 4 Eeeh, coś mnie naszło i zrobiłem coś takiego...
Witam Na stronie www.vba.matrix.pl , w przykładach znajdziesz to czego szukasz. Kiedyś w sieci znalazłem konwersje „liczb -> do postaci kwot słownie. :cry: Po delikatnych przeróbkach tego makra załączam makro do umieszczenia w Excelu. Konwersja liczby na słowa. Pozdrawiam S95 PS Wszystko jest proste do czasu, jak nie zaczniesz programować
Chcę zrobić makro które wyszuka dany fragment tekstu i zamieni go na podany w danej komórce. Nagraj sobie makro z przeprowadzania procedury systemowej "zamień (ctrl+H)" i w odpowiednie miejsca wprowadź swoje comboboxy :idea: Wszystko rozumiem, ale "zamień (ctrl+H)" w "znajdz" wpisuje szukana frazę i w "zamień na" w co mam wpisać ? chcę aby znajdował...
excel makro szukaj tekst szukaj tekst szukaj makro
flash 17mb95 zestawy samodzielnego montażu sklep token działa
stiga 2084h ustawić rozrząd nissan primera
Wykrywacz metali do 3 m głębokości - schemat PI Schemat połączeń ściemniacza Meratronik K32L
