Sorgu için arama sonuçları: RegExp

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+?\) .

Olası bir sonraki soru için; Eğer nokta veya virgül kimisinde var, kimisinde yoksa bütün parantez ve içlerindeki nümerik değerlerde bu işi yapmak için; regExp.Pattern = "\(\d*[.,]?\d+?\)" .

Necdet Bey, Nokta veya virgül varsa; regExp.Pattern = "\(\d+[.,]\d+\)" .

Haluk Bey çok teşekkür ederim. istediğim bu idi. Eline sağlık Kod'a biçimlendirmeyi koyu(Kalın) olacak şekilde bir satır ekleyebilirmiyiz.

Aşağıdaki kod, isteğinizi karşılar... 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...

...objHTTP.Open "GET", strURL, False objHTTP.send HTMLcode = objHTTP.responseText Set regExp = CreateObject("VBScript.RegExp") regExp.ignorecase = True regExp.Global = True regExp.Pattern = """BuyRate"":""(.+?)"",""SellRate"":""(.+?)"""...

...If WorksheetFunction.CountA(rng) = 0 Then Exit Sub Set rng = rng.SpecialCells(xlCellTypeConstants) With CreateObject("VBScript.RegExp") .Pattern = "\d" .Global = True .IgnoreCase = True For Each r In rng If .test(r.Value) Then r.Offset(...

Hocam teşekkürler. çalışıyor ama tablo çok uzun olduğu için çok uzun süre bekletiyor. daha kısa yolu yokmudur?

...As String) As String Dim result As String, objRegEx As Object, match As Object Set objRegEx = CreateObject("vbscript.regexp") objRegEx.Pattern = "[a-zA-Z]+" objRegEx.Global = True objRegEx.IgnoreCase = True If objRegEx.test(str) Then Set match =...

Sözkonusu ifade eğer A1 hücresindeyse, aşağıdaki "REGEXP" kodu işinizi görecektir; Sub Test() 'Haluk - 20/01/2024 Dim objRegEx As Object, RetVal As Object, temp As String, myStr As String Set objRegEx = CreateObject("VBscript.RegExp") objRegEx.Global = True...

Çok teşekkür ederim emeğinize sağlık kalpkalpkalp

Bir de bunu deneyiniz. Sub tcnoyual() Set nesne = CreateObject("VBScript.Regexp") nesne.Global = True nesne.Pattern = "\D(\d{11})\D" For a = 2 To [I65536].End(3).Row Set veri = nesne.Execute(Cells(a, "I")) If veri.Count > 0 Then Cells(a, "j") = Mid(nesne.Execute(Cells(a, "I")).Item(0), 2, 11)...

Sayın hocam t.c. kimlik numaralarının başında karakter olduğu zaman almıyor boşluk varsa alıyor da t.c.:111, -111...- şeklimde olanları almıyor bir çözümü var mıdır

Sub test() Range("B:Z").ClearContents Dim huc As Range, m As Object, sut With CreateObject("VBScript.RegExp") .Pattern = "[\d]+|[^\d]+" .Global = True For Each huc In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row) If .test(huc.Value) Then...

...Function VirguldenAl(metin As String, sira As Integer) As String Dim parcalar() As String Set r = CreateObject("VBScript.RegExp") sPattern = "\d+" r.Pattern = sPattern parcalar = Split(metin, ",") If sira >= 1 And sira <= UBound(parcalar) + 2 Then...