Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Wyszukanie fragmentu tekstu w komórce - prośba o pomoc

problem · świeżak Posty: 2

Witajcie,

w jednej komórce mam ciąg znaków: teskty, liczby, daty
FUP ABC / Import SIMS: ODDZIAŁ : WARSZAWA, Dor: Piotr Nowak, Faktura: UN/29730/11, DataFakt: XII 27 2011 12:00PM, Wart.: ???, Zlecenie: WAR/W08322/11, Marka: , Model: Skoda Octavia 1,6 102KM 5 drzwiowy Tour, NrRej: KR12345, VIN.:

Potrzebuję wyciągnąć Zlecenie: WAR/W08322/11

Proszę o pomoc w stworzeniu formuły. Niestety dane przed Zlecenie się zmieniają.
Stałe jest Zlecenie a potem są różne wartości ale zawsze mają 13 znaków.

Dziękuję za pomoc

Konrad

wuzeq · Excel Expert **Pomógł:** 142 razy Posty: 451

Funkcją użytkownika

Kod:

=ZlecenieRegExp("[a-z]{3}\/[a-z0-9]{6}\/\d{2}";D3)

lub

Kod:

=PRAWY(ZlecenieRegExp("Zlecenie\: .{13}";D3);13)

Kod:

Function ZlecenieRegExp(myPattern As String, myString As String)
Dim znajdz As String
Dim objRegExp As Object
Dim myMatch As Object

Set objRegExp = CreateObject("VBScript.RegExp")

objRegExp.Pattern = myPattern
objRegExp.IgnoreCase = True
objRegExp.Global = False

If objRegExp.test(myString) = True Then
Set myMatch = objRegExp.Execute(myString)
znajdz = myMatch(0).Value
Else
znajdz = "Nie ma"
End If

ZlecenieRegExp = znajdz
Set objRegExp = Nothing

End Function

Gdzie wkleić kod?
Alt+F11 -> w okienku po lewej prawym przyciskiem myszki i Insert Module -> w module wkleić kod

Choć pewnie prościej byłoby zwykłą formułą

Kod:

=FRAGMENT.TEKSTU(D3;ZNAJDŹ("Zlecenie: ";D3)+10;13)

mackol100 · Fan Excela **Pomógł:** 9 razy Posty: 83

A może dużo prościej.

nr zlecenia.rar

Pobierz Plik ściągnięto 18 raz(y) 6.51 KB

Zmora · Excel Expert **Pomógł:** 763 razy Posty: 1598

Pod warunkiem że długość (WAR/W08322/11) zawsze będzie taka sama. :-P

mackol100 · Fan Excela **Pomógł:** 9 razy Posty: 83

"...a potem są różne wartości ale zawsze mają 13 znaków."

Zmora · Excel Expert **Pomógł:** 763 razy Posty: 1598

Nie zarejestrowałem tego :mrgreen:

wuzeq · Excel Expert **Pomógł:** 142 razy Posty: 451

mackol100,
przecież umieściłem takie rozwiązanie w poście
i po co wrzucać cały załącznik, dla jednej krótkiej formuły?

mackol100 · Fan Excela **Pomógł:** 9 razy Posty: 83

Tego zaś ja nie zarejestrowałem :mrgreen:

Masz rację

problem · świeżak Posty: 2