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ć.
Czy ktoś pomoże W LibreOffice można to zrobić w dwóch krokach przy użyciu wyrażeń regularnych :spoko: 1159078 1159079 W Wordzie zapewne też to można zrobić, ale Microsoft ma odmienne zasady tworzenia wyrażeń regularnych :cry:
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 - http://www.elektroda.pl/rtvforum/viewtop...
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...
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:
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ć.
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...
Można spróbować użyć mechanizmu wyrażeń regularnych (RegEx) z poziomu VBA.
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 kilkuset rekordów czy przy stałej potrzebie modyfikacji takich...
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...
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
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 http://vbamania.blogspot.com/2009/10/reg... http://excelperfect.pl/wp-content/upload...
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")...
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ć?
chociażby za pomocą wyrażeń regularnych (przynajmniej za ich pomocą można zawęzić podobieństwo między dwoma np. stringami)
te dane to straszny bałagan Dokładnie tak :cry: gdyby to było bardziej uporządkowane (np po wycięciu danych zagranicznych i wierszy niekompletnych, bądź ewidentnie błędnych :D ) można by te dane konwertować przy użyciu makra z wyrażeniami regularnymi np tak jak https://www.elektroda.pl/rtvforum/viewto... Dla zaprezentowanych...
A w jakiej formie (graficznej), formacie, w jakim pliku ? to wszyscy mają zgadywać ? - :cunning: Generalnie tego typu zadania spokojnie można rozwiązać przy pomocy wyrażeń regularnych - ale jak ? to bez przykładowego pliku :cry: nawet trudno proponować :not:
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 =...
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 jest to realne, żeby Excel obrobił takie dane w ten sposób. W mojej ocenie nie powinno być żadnego problemu w przygotowaniu odpowiedniego makra importu np z wykorzystaniem wyrażeń regularnych :-) W załączeniu plik z przykładowym makrem RegEx do usuwania znaków "nieliczbowych" W zależności od wersji Twojego Excela można zapewne wykorzystać tu zapytania...
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...
Nie dokładnie przejrzałeś historyczne wątki naszego forum :cunning: Proponuję przejrzeć wątki na temat wyrażeń regularnych RegEx np. https://www.elektroda.pl/rtvforum/viewto... lub https://www.elektroda.pl/rtvforum/viewto... Załóż swój wątek, załącz przykładowy plik to znajdziesz bardziej precyzyjną pomoc...
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...
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...
Chodzi mi o takie makro które sprawdzi które wiersze mają w kolumnie A liczbę Do realizacji takich zadań możesz wykorzystać albo metodę filtrowania (jeśli da się wyciąć nagłówki i stopki :cry: ), albo metodę wyrażeń regularnych :idea: vide: https://www.elektroda.pl/rtvforum/viewto... Wszystko zależy od struktury tych danych...
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)"...
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
Mam w tych plikach faktury w postaci tekstowej. Trochę to dziwne :D Faktury w postaci tekstowej :?: Z jakiego to programu wyeksportowane ? załącz przykładowy plik. Potrzebuję, aby makro Excela otwierało te pliki tekstowe jeden po drugim i wstawiało w określone miejsca pliku nowy tekst, by powstała korekta faktury Konieczny byłby szablon takiej faktury...
Skoro masz takie wariacje wpisów jak podałeś w formule (w sumie nie ma się co dziwić przy ręcznym wpisywaniu inwencja twórcza wpisujących nie zna granic), to spróbuj wyrażeń regularnych: [syntax=vb]Sub kody_RegEXP() Dim lLstRw& Dim i& Dim sCol$ 'kolumna z danymi sCol = "H" With ActiveSheet lLstRw = .Cells(Rows.Count, sCol).End(xlUp).Row For i = 2 To...
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 sygnały programy obliczania wyrażenia
silnik klatkowy wirnik piła krajzegi modyfikacja biosu
gs500 instalacja samsung wf70f5e0w2w
Falownik Sofar 3.3-12KTLX-G3 – migająca zielona dioda i sporadyczny alarm, interpretacja sygnałów LED Volvo 850 – skuteczne czyszczenie nagrzewnicy, płukanie, preparaty, objawy zapchania