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...
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ć.
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...
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 =...
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")...
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ć?
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...
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...
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...
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...
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)"...
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...
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...
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
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...
wyrazić regularny prędkość wyrazić regularny forma
rozszerzanie pamięci bateria ilość komór sharan lampka
Podłączenie żarzenia lampy EM11 - porady Porsche Panamera 3.6 benzyna – moment dokręcania panewek wałka rozrządu, procedury TTY i M6