Czy ktoś z Was jest mi w stanie pomoc w wyodrębnieniu Nie zamieściłeś kolego spider_net żadnego przykładu :cry: więc na podstawie przykładowego pliku kolegi dt1 mogę Ci zaproponować rozwiązanie VBA oparte o wyrażenia regularne :D Wszystkie stringi umieszczane muszą być w kolumnie A, a po przyciśnięciu klawiszy ctrl+W makro wyłuska Ci wszystkie e-maile...
ciągi znaków mają różną długość Można do tego typu zadania wykorzystać również wyrażenia regularne :idea: np tak jak w https://www.elektroda.pl/rtvforum/viewto... :D
Następny problem. Chcę zamienić spacje na nowe linie. Daje Ctrl+F zamien ' ' na \n. i wyrażenia regularne zahaczam w opcjach. Mimo wszystko nie robi mi nowej linii tylko dodaje \n jako text. Co to może być?
1. potrzebuje pomysłu jak zabrać sie za makro... formatowanie danych wejsciowych ... i sprawdanie poprawności danych. Obawiam się kolego, że takie dane nie nadają się do automatyzacji obróbki przy użyciu VBA. W mojej ocenie pochodzą one z niezbyt precyzyjnego oprogramowania OCR i dlatego nawet po ewidentnie ręcznej obróbce w arkuszu AFTER mają dziesiątki...
makro akapit przed właściwym nagłówkiem również formatuje Faktycznie tak się dzieje - trudno precyzyjnie operować jest ułomnymi "symbolami wieloznacznymi :cry: Dla tego zmieniłem zapis tych "wyrażeń regularnych" Worda, zmieniłem też zastosowane style (na dotyczące znaków i akapitu :idea: ) i całość w nowej formie zamieściłem w załączniku. Czy jest...
Przetestuj: [syntax=VB]Sub Data_Bold() Dim lLstRw& Dim i& Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania Dim sCol$ 'kolumna z danymi sCol = "A" With ActiveSheet sRegExpPatt = "Data" lLstRw = .Cells(Rows.Count, sCol).End(xlUp).Row Set objRegExp = CreateObject("VBScript.RegExp") objRegExp.Global...
Przetestuj następujące makro [syntax=vb]Sub GetVIN() Dim lLstRw& Dim i& Dim l% Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania Dim sCol$ 'kolumna z danymi sCol = "D" With ActiveSheet sRegExpPatt = "[A-Z0-9]{17}" lLstRw = .Cells(Rows.Count, sCol).End(xlUp).Row Set objRegExp = CreateObject("VBScript.RegExp")...
Czy to ma być "wyciągane" na podstawie listy czyli marki i rodzaju? czy tylko chodzi o wyciągnięcie z tekstu samego np. "AH05" Tak jak kolega (at)maciejgonet napisał za mało danych przykładów (a czy może być np. "DH05" czy inny? czy wszystko zaczyna się od A?) i nie chodzi tu nawet o wyrażenia regularne bo takie, rzeczy można nawet 'like-em' załatwić.
Funkcja arkuszowa, to trochę karkołomne zadanie. A jeśli okaże się, że liczba jest na innym miejscu niż 3? Ostatnią liczbę w ciągu najprościej "wyciągnąć" stosując wyrażenie regularne w VBA. Np [syntax=vb]Sub AlfaRomek() Dim l As Integer, oRegex As Object Dim objFnd As Object, strText As String Set oRegex = CreateObject("VBScript.RegExp") strText =...
Jak to "ugryźć" aby komórka tabeli Worda stała się JEDNĄ komórką Excela? Podobną zabawę ćwiczyłem przed laty z comiesięcznym importem tabel z PDF do Excela :-o Po różnych próbach - stosuję najwygodniejszą dla mnie metodę: konwersja pdf do txt, a potem dzięki zaprojektowanemu kodowi VBA (akurat opartego o wyrażenia regularne ;-) ) błyskawicznie odtwarza...
Można makrem, np. z użyciem wyrażeń regularnych [syntax=vb]Sub kody_poczt() Dim lLstRw& Dim i& Dim l% Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania Dim sCol$ 'kolumna z danymi sCol = "A" With ActiveSheet sRegExpPatt = "\d{2}-\d{3}" lLstRw = .Cells(Rows.Count, sCol).End(xlUp).Row Set objRegExp...
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...
które w nazwie mają co najmniej 6 cyfr i wśród nich jest ciąg cyfr „2016” Jeżeli Kolega nie potrzebuje sprawdzać czy to data czy nie, to można uprościć ten warunek jako: [syntax=vbscript]For i = 1 To Sheets.Count nazwa = Sheets(i).Name If InStr(nazwa, "2016") > 0 And Len(nazwa) >= 6 Then Doc.Cells(w_doc - 1 + licznik, k_doc) = nazwa licznik...
PODSTAWOWE PYTANIE jest następujące: jak wyszukiwać w zdefiniowanym zakresie „wszystkie” ciągi znaków, które maja co najmniej 3 (albo 5 ,7, 10 itp.) takich samych następujących po sobie znaków (bez rozróżnienia na „duże” i „małe” litery i z pominięciem np. „ . Powinieneś zainteresować się i wykorzystać tzw...
Przetestuj poniższe makro: [syntax=vb]Sub Towar_Producent() Dim lLstRw& Dim i& Dim l% Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania Dim sCol$ 'kolumna z danymi Dim iNextSp% 'pozycja pierwszej spacji po odnalezionej gramaturze sCol = "A" With ActiveSheet sRegExpPatt = "\d+(\,|\.)\d+|\d+(\g|\k)"...
Jeśli konwersja danych z pdf do Excela nie będzie satysfakcjonująca (mam w tym zakresie przykre doświadczenia :cry: ) ? To można wrócić do pierwotnej kwestii: czy można stworzyć pętlę na znakach będących treścią 1 komórki w Excelu? W mojej ocenie - tak - wykorzystując kod VBA oparty na wyrażeniach regularnych :idea: W moich rozwiązaniach tego typu wykorzystuję...
A może macie jakiś inny pomysł? Możesz tutaj wykorzystać również wyrażenia regularne :idea: Zastosowanie ich prezentowałem np https://www.elektroda.pl/rtvforum/viewto... :spoko: Inny pomysł - to miałem na myśli inne rozwiązanie odczytu i przetwarzania danych. U mnie jest jeden plik excelowy z makrami i to on otwiera pozostałe...
Co do excela, można użyć spacji jako separatora kolumn. Co do notepad++ zaznaczasz wyrażenia regularne i wpisujesz jak w obrazku https://obrazki.elektroda.pl/4156514500_... Potem replace all (w obrazku ma być 16, a nie 15) //edit dla wielu linijek z opisem zamieniasz .{16}(\d{9}).+(\r\n{1}.*(\r\n)*) na \1\n
W załączniku prosty plik, który używam jako szablon przy tego typu zadaniach. Wykonuje zapytanie typu POST do strony - ta, którą podałeś, akurat z niego korzysta - i odczytuje odpowiedź. Parametry POST i ich wartości można zmodyfikować podając je w tabelce. [syntax=vbscript]Private Sub CommandButton1_Click() If Range("C2").Value = "" Then MsgBox "Podaj...
1) Import from file ma opcję start at row, możesz też ten plik podzielić na mniejsze 2) Możesz tego pliku nie ładować wcale - przekonwertuj go na csv, zrób do niego link do excela jako tabelę przestawną 3) Przed importem usuń nieinteresujące cię wiersze wyrażeniem regularnym Co do ilości arkuszy - tak prawi ms na swojej stronie (jak jest na prawdę nie...
wyrażenia regularne regularne trzaski regularne piski
gaźnik odśnieżarka wirus robak zestaw przeróbka
bateria milwaukee włącznik termostatyczny
PR Master nie wykrywa portu COM - rozwiązania i diagnostyka Napięcia 12V i 5V w zasilaczu Xbox 360 Slim