Do tego wystarczy formuła: [syntax=text]=FRAGMENT.TEKSTU(... 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...
Bardzo proszę o pomoc jakiej formuły powinienem użyć. Jeśli masz taką regularną strukturę tych kodów to moim zdaniem wystarczą formuły przedstawione przez kolegę JRV. W przypadkach nie jednolitych struktur - możesz zainteresować się "wyrażeniami regularnymi" :D -
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...
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. „...
W Openoffice Calc wystarczy napisać coś w postaci np: =LICZ.JEŻELI(C8:C26;"k.*") Niestety Excel Microsoftu nie obsługuje tak wyrażeń regularnych trzeba bardziej pokombinować.
Może ktoś z was ma pomysł jak to ugryźć. W przesłanym pliku widać wyraźną strukturę danych: numer rekordu, imię i nazwisko, zatrudnienie, edukacja itd. Jeśli ta modyfikacja jest potrzebna jednorazowo dla kilkunastu rekordów danych to najszybciej można ją zrobić metodą wytnij-wklej :D Dla...
chociażby za pomocą wyrażeń regularnych (przynajmniej za ich pomocą można zawęzić podobieństwo między dwoma np. stringami)
Można spróbować użyć mechanizmu wyrażeń regularnych (RegEx) z poziomu VBA.
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...
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...
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...
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ć?
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...
j = 1 For i = j To Sheets.Count If Sheets(i).Name Like "*2016*" Then Doc.Cells(w_doc - 1 + j, k_doc) = Sheets(i).Name j = j + 1 End If Next i tylko jeden ciąg cyfr „2016 - niestety nie gra, potrzebujesz majstra wyrażeń regularnych
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...
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...
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...
Co do excela, można użyć spacji jako separatora kolumn. Co do notepad++ zaznaczasz wyrażenia regularne i wpisujesz jak w obrazku 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\...