Sorgu için arama sonuçları: RegExp

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

Evet, ilk verilen regexPattern kodunda sadece değiştirme işlemi yapılıyor: regExp.Pattern = "[^0-9]" Cells(3, 2) = CStr(regExp.Replace(deger, "")) Bu kod sayı olmayan karakterleri boş string ile değiştiriyor, yani sayma işlemi yok. Sayma işlemi için; Set matches = regExp.Execute(strInput)...

...As Object Dim matches As Object Dim bulundu As Boolean strInput = "@122100011122111" Set regEx = CreateObject("VBScript.RegExp") regEx.Global = True regEx.IgnoreCase = True Dim sifirVar As Boolean, birVar As Boolean, ikiVar As Boolean sifirVar = False...

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

Merhaba, şu şekilde dener misiniz; Sub regexPattern() Dim deger Dim regExp As Object Set regExp = CreateObject("VBscript.RegExp") regExp.Global = True regExp.Pattern = "[^0-9\+]" deger = Cells(3, 1).Value Cells(3, 2) = CStr(regExp.Replace(deger, ""))...

...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...