Sorgu için arama sonuçları: RegExp

volki 12 sorunsuz çalışıyor çok teşekkür ederim,süper bir kod ayrıca hücreyi kendim belirlemem ayrıca güzel olmuş,elinize sağlık.iyi çalışmalar.

...' Yazma işlemi bu hücreye göre ofsetlenecek ' Düzenli ifade (Regular Expression) nesnesini oluştur Set RegEx = CreateObject("VBScript.RegExp") With RegEx .Global = True ' Metindeki tüm eşleşmeleri bul .IgnoreCase = True ' Büyük/küçük harf duyarsız arama...

Elinize sağlık tamda istediğim gibi çalıştı. Bu tek komutla tüm kitapta çalışmak için ne eklemeliyim. Daha önce kendi yaptığım basit makroları da tek tek çalışma sayfalarında kullanmak zorunda kalıyorum onlara da uygularım. Ama mükemmel çalışıyor.

...MsgBox "Maalesef (Fazla Mesai Görevleri) yazısını bulamadık!" Exit Sub End If SonNumara = sonGorev.Row - 1 ' RegExp tanımla Set regex = CreateObject("VBScript.RegExp") With regex .Pattern = "^\d+\.?\s*" .IgnoreCase = True .Global =...

Çok teşekkür ederim Hocam iyi akşamlar

...pattern = "@122100011122111" inputMetin = "@122100011b2211a" eslesenKarakterSayisi = 0 Set regEx = CreateObject("VBScript.RegExp") If Len(pattern) = Len(inputMetin) Then For i = 1 To Len(pattern) regEx.Pattern = "^" & Mid(pattern, i, 1) & "$"...

Hocam çok teşekkürler, tam istediğim gibi oldu; buradaki ? = . * işaretleri ne anlama gelmektedir? bu konuda eğitim vermeniz mümkün müdür? iyi Çalışmalar

...Sub SayiGrp() Dim regEx As Object Dim strInput As String strInput = "@122100011122111" Set regEx = CreateObject("VBScript.RegExp") With regEx .Global = True .MultiLine = True ' (?=.*0{3,5}) › içinde en az bir yerde 0{3,5} aranacak...

Teşekkürler Hocam

Hocam tekrar merhaba, bu konuda şöyle bir sorum daha olacak Aşağıdaki patern' de önce metin içinde başta 0' a, sonra 1'e sonra 2' ye ye göre bakıyor, strInput = "@122100011122111" benim burada istediğim, bu sıralamaya bakmaksızın, sadece yan-yana olan adetler tutacak şekilde nasıl...

Çok teşekkür ederim Hocam iyi akşamlar

...kod ile bir metin içindeki sadece sayısal degerleri alabiliyoruz, sayısal degerlere ilaveten "+" işaretini de alması nasıl sağlanabilir? Sub regexPattern() Dim deger Dim regExp As Object Set regExp = CreateObject("VBscript.RegExp") regExp.Global = True regExp.Pattern =...

...mı? If Not Intersect(Target, rng) Is Nothing Then Application.EnableEvents = False Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "^2025/\d+$" ' 2025/ ile başlamalı ve sonrası sadece rakam olmalı regex.IgnoreCase = False regex.Global =...

...False .Send jsonText = .responseText End With Set regex = CreateObject("VBScript.RegExp") With regex .Global = True .IgnoreCase = True .Pattern = "https://storage.googleapis.com/chrome-for-testing-public/124\.\d+\.\d+\.\d+/[^""]+" '...

...içine ekleme yaptım. Function Test_Format4(hcr As Range) As String Dim reg As Object, m As Object Set reg = CreateObject("VBScript.RegExp") reg.Pattern = "(\d{2}[a-zA-Z-+*._\/ ]*\d{,6})" Set m = reg.Execute(hcr.Value) If m.Count > 0 Then Test_Format4 = m(0) End Function

...nasıl olmalı?? Function ExtractPlaka(hcr As Range) As String Dim reg As Object, m As Object Set reg = CreateObject("VBScript.RegExp") reg.Pattern = "\b\d{2}\s?[A-Za-z]{1,3}\s?\d{2,4}\b" Set m = reg.Execute(hcr.Value) If m.Count > 0 Then ExtractPlaka = m(0) End Function

..."\b\d{2}\S?\d{2}\S?\d{2}\S?\d{2,5}\b", _ "\b\d{2} \s?[A-Za-z]{1}\s?\d{2,5}\b" _ ) Set reg = CreateObject("VBScript.RegExp") For i = LBound(patterns) To UBound(patterns) reg.Pattern = patterns(i) Set m = reg.Execute(hcr.Value) If m.Count >...

şu şekilde yaptığımda problem çözülüyor, bende sonradan farkettim. Alt tire eksikti. "\b\d{2} \s?[A-Za-z]{1}\s?\d{2,5}\b")

..."\b\d{2}\S?\d{2}\S?\d{2}\S?\d{2,5}\b", _ "\b\d{2} \s?[A-Za-z]{1}\s?\d{2,5}\b" ) Set reg = CreateObject("VBScript.RegExp") For i = LBound(patterns) To UBound(patterns) reg.Pattern = patterns(i) Set m = reg.Execute(hcr.Value) If m.Count...

..._ ' Plaka_2 formatı "\b\d{2} \s?[A-Za-z]{1,1}\s?\d{2,5}\b" ' Plaka_3 formatı ) Set reg = CreateObject("VBScript.RegExp") For i = LBound(patterns) To UBound(patterns) reg.Pattern = patterns(i) Set m = reg.Execute(hcr.Value) If...