Sorgu için arama sonuçları: RegExp

...karşısına x koymuyor. Nasıl bir ekleme yapmam gerekiyor? Sub Saat() Dim i, ii, a, bl, s1, s2, bas, son With CreateObject("VbScript.Regexp") .Pattern = "([\d:\s]+)-([\d:\s]+)" For i = 17 To Cells(Rows.Count, "G").End(3).Row If .test(Cells(i, "G").Value)...

Sayın @beab05 'in önerdiği web servisten geri dönen JSon verilerini RegExp ile ayıklayarak kullanmak istersek; Sub GetData_RegExp() ' Haluk - 15/03/2022 ' Dim strJSON As String, arrHeaders() Dim arrPattern(1 To 2) As String Dim regExp As Object, xPattern As Variant Dim...

G sütununda bir format daha varmış, onu da ayarlayabilir misiniz? Örn: 11 - 16./x/W + 16 - 20./x/W-asd

Sub test() Dim i, ii, a, bl, s1, s2, bas, son With CreateObject("VbScript.Regexp") .Pattern = "([\d:\s]+)-([\d:\s]+)" For i = 17 To Cells(Rows.Count, "G").End(3).Row If .test(Cells(i, "G").Value) Then Set a = .Execute(Cells(i, "G").Value)...

...veya çalışmada userform olmalı Dim dObj As New DataObject dObj.GetFromClipboard al = dObj.GetText With CreateObject("VBScript.RegExp") .Pattern = "\[img\](.+)\[\/img\]" .IgnoreCase = True If .test(al) Then Set m = .Execute(al)(0).submatches...

...& Rows.Count).ClearContents Set rng = Range("B4:D" & Cells(Rows.Count, 2).End(3).Row) With CreateObject("VBScript.RegExp") .Pattern = "([\d\.\,]+)x(\d+)" For i = 1 To rng.Rows.Count If .test(rng(i, 1).Value) Then Set m =...

Sayın veyselemre merhaba, Aşağıdaki hatayı alıyorum, ekstra yapmam gereken bir ayar mı var ? hala office 2010 kullanıyorum. --------------------------- Microsoft Visual Basic for Applications --------------------------- Run-time error '5': Invalid procedure call or argument...

Sub test() Dim rng As Range, i, m As Object Set rng = Range("B4:D" & Cells(Rows.Count, 2).End(3).Row) With CreateObject("VBScript.RegExp") .Pattern = "([\d\.\,]+)x(\d+)" For i = 1 To rng.Rows.Count Set m = .Execute(rng(i, 1).Value)(0).submatches...

Verdiğiniz örneğe göre aşağıdaki KTF daha uygun görünüyor.

Sub Test3() ' Haluk - 01/01/2023 Dim regExp As Object, objMatches As Object Dim arrPattern(1 To 4) As String Dim myStr As String, i As Long, j As Integer Dim adoCN As Object, strSQL As String, RS As Object Dim MyFile As Variant, myArr As Variant Dim FileNo As...

...ayarlarsınız.... Veya, K-L sütunlarındaki özet tabloyu başka bir sayfaya yazdırırsınız. Sub Test2() ' Haluk - 01/01/2023 Dim regExp As Object, objMatches As Object Dim arrPattern(1 To 4) As String Dim myStr As String, i As Long, j As Integer Dim adoCN As Object, strSQL...

Private Sub CommandButton1_Click() 'Haluk -1 / 1 / 2023 Dim regExp As Object, objMatches As Object Dim arrPattern(1 To 3) As String Dim myStr As String, i As Long, j As Integer Dim MyFile As Variant, myArr As Variant, myArr2 As Variant Dim FileNo As Long, strfile As...

...As Range) Dim My_Numbers As Object, My_Number As Object Application.Volatile True With VBA.CreateObject("VBScript.RegExp") .Pattern = "(\([0-9,]+\)*)" .Global = True Set My_Numbers = .Execute(Rng.Value) For Each My_Number In...

...Excel sayfasına alın, daha sonra gerekli diğer işleri yaparsınız.... Not: Sayda adı Sheet1 Sub Test() ' Haluk - 01/01/2023 Dim regExp As Object, objMatches As Object Dim arrPattern(1 To 4) As String Dim myStr As String, i As Long, j As Integer Dim MyFile As Variant...

Eskisinin yerine, aşağıdakini kullanın; regExp.Pattern = "([A-Z]{2}\-\d+)" Ayrıca, aşağıdaki linkten de test edebilirsiniz; https://rubular.com/r/Cbd1y9YVvXlFOo .

Sub Test2() ' Haluk - 02/12/2022 Dim NoA As Long, regExp As Object, i As Long, RetVal As Object, r As Integer, c As Integer NoA = Range("A" & Rows.Count).End(xlUp).Row Set regExp = CreateObject("VBScript.RegExp") regExp.IgnoreCase = True regExp.Global = True...

Sub Test() ' Haluk - 02/12/2022 Dim NoA As Long, regExp As Object, myStr As String, i As Long NoA = Range("A" & Rows.Count).End(xlUp).Row Range("B1:B" & NoA) = "" Set regExp = CreateObject("VBScript.RegExp") regExp.IgnoreCase = True regExp.Global = True...

...End Sub ' Function getData(data As String) Dim objRegEx As Object, objMatches As Object Set objRegEx = CreateObject("VBscript.RegExp") objRegEx.Global = False objRegEx.Pattern = "([A-Z]\d{2})" Set objMatches = objRegEx.Execute(data) getData = IIf(InStr(1...

İşte bu ya çok teşekkür ederim basit bir şey ama yapması işkence oldu benim için maşallahnz var hocam bu seviyeye gelmek için ne yapmak lazım:)

...Range("C2:C" & Rows.Count).Font.Bold = False Range("C2:C" & Rows.Count).Font.Underline = False With VBA.CreateObject("VBScript.RegExp") For Each Rng In Range("C2:C" & Cells(Rows.Count, "C").End(3).Row) For Each My_Pattern In Array("(Adı Soyadı:)", "(Şehir:)")...