Sorgu için arama sonuçları: RegExp

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

...Bu standart plaka formatı Function Plaka_1(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 Plaka_1 = m(0) End Function...

üstadım aynı şekilde türkçe karakter içermeyen kelimelerde sorun yok, ancak türkçe harf içeren kelimeleri bulmuyor ama kod çalışıyor

...yapılır. Türkçe karakterleri barındıran kelimelerde daha başarılı olabilir. Unicode Sorunları: Eğer bu değişiklik hala çözüm sunmazsa, RegExp veya diğer karakter kütüphanelerini kullanmak gerekebilir, ancak bu durum kodu daha karmaşık hale getirebilir ve Word 2016'da her zaman etkili olmayabilir.

Aslında forumda konuyla ilgili bolca işlenmiş konu var. Sanırım daha önce dikkatinizi çekmedi.. https://www.excel.web.tr/search/566930/?q=RegExp&o=date

...İBAN için; Function ExtractIBAN(hcr As Range) As String Dim reg As Object, m As Object Set reg = CreateObject("VBScript.RegExp") reg.Pattern = "TR\d{24}" Set m = reg.Execute(hcr.Value) If m.Count > 0 Then ExtractIBAN = m(0) End Function Kullanım; =ExtractIBAN(A1)...

Merhaba, Deneyiniz... =TCyadaVergi(A1) Function TCyadaVergi(hcr As Range) As String Dim reg As Object, m As Object Set reg = CreateObject("VBScript.Regexp") reg.Pattern = "\b\d{10,11}\b" Set m = reg.Execute(hcr) If Not m Is Nothing Then TCyadaVergi = m(0) End Function

peki xxx.a111111 olan kısmı 2 ayrı sütüna xxx.111111 ve a111111 şeklinde nasıl ayırabilirim?

Aşağıdaki kodu kullanabilirsiniz. Sub Regex_Test() Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "^([^\.]*\.[^\.]*)\." regex.Global = False For Each cell In Range("A1:A4") If Not IsEmpty(cell.Value) Then Set matches =...

...ForReading).ReadAll strFindWhat = "beyaz" With CreateObject("VBscript.RegExp") .Ignorecase = True .Global = True .Pattern = strFindWhat myCount = .Execute(strText).Count End With MsgBox myCount End Sub .

Teşekkür ederim hocam iyi akşamlar selamlar iyi bayramlar

Merhaba, Makro ile çözüm aşağıdadır. Sub Test() Dim regEx As Object Dim myText As String Set regEx = CreateObject("VBScript.RegExp") regEx.Pattern = "[A-ZÇŞÜÖİ][a-zçşğüöı]*\b" regEx.Global = True If regEx.Test(Range("A1")) Then Set matches =...

..." ", 2)(1))) Next i End Sub Sub test2() Dim i, al, m Range("B5:E" & Rows.Count).ClearContents With CreateObject("VBScript.Regexp") .Pattern = "^(.+)\s([\d\.\,\-]+)\s([\d\.\,]+)\s([\d\.\,]+)(\s$)" For i = 5 To Cells(Rows.Count, 1).End(3).Row al =...

Aynı hata verdi. Type mismatch (Error 13)

Sub test() Dim sh As Worksheet, reg As Object, elem, a, pattern, say Dim dic As Object Set reg = CreateObject("VBScript.Regexp") Set dic = CreateObject("Scripting.Dictionary") reg.pattern = "(^\D{3})([\D]*)(\d+$)" With Sheets("Sayfa1") For Each elem In...

...alternatif olarak VBA'de "Regular Expressions" kullanarak bu iş yapılabilir; Sub Test() ' Haluk - 17/04/2024 Dim NoA As Long Dim regExp As Object Dim myStr As String, i As Long NoA = Range("A" & Rows.Count).End(xlUp).Row Range("B2:B" & NoA) = "" Set regExp =...

Merhaba, RegExp ile daha sağlıklı çözüm üretilebilir diye düşünüyorum. Ama pattern i oluşturamadım. Üstatlar el atarsa ben de öğrenirim. Daha iyisi yazılana kadar aşağıdaki kodu kullanabilirsiniz. Me.PageMuvekkilListesiRandevuTarihiSaati =...

...Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim koordinat As String Dim reg As Object Set reg = New RegExp koordinat = Me.TextBox1.Text ' 39.419433 ,29.994388 buradan referans al reg.Pattern =...

Sub Test() ' Haluk - 22/03/2024 ' sa4truss@gmail.com Dim regExp As Object, myRange As Range Set regExp = CreateObject("VBscript.RegExp") regExp.Pattern = "\(\d+\)" regExp.Global = True For Each Match In regExp.Execute(ActiveDocument.Range.Text) Set...

@Zeki Gürsoy , Bende o şekilde çalışmadı üstad, ama aşağıdaki desen oldu; regExp.Pattern = "\((\d*[.,]?)*\d+?\)" Çalışan link aşağıdadır: Rubular: \((\d*[.,]?)*\d+?\) .