Sorgu için arama sonuçları: RegExp

..."If-None-Match", "\zoru-basaririz-imkansiz-biraz-zaman-alir\" objHTTP.Send HTMLcode = objHTTP.responseText Set regExp = CreateObject("VBScript.RegExp") i = 10 For j = 1 To UBound(Split(HTMLcode, "parakod"":""")) Cells(i, 14) = Split(Split(HTMLcode...

...alternatifte ben paylaşmak isterim. Option Explicit Sub Test_1() Dim X As Long, Data As Variant With VBA.CreateObject("VBscript.RegExp") .Global = True .Pattern = "(^\D+ )" For X = 3 To Cells(Rows.Count, 1).End(3).Row If .Test(Cells(X...

...sağlıyor, isim kalıp fiyat siliniyor Dim objRegEx As Object, NoB As Long, myStr As String Set objRegEx = CreateObject("VBscript.RegExp") objRegEx.Global = True objRegEx.Pattern = "\([^()]*\)|(\-.*$)" NoB = Range("A" & Rows.Count).End(xlUp).Row For i = 3 To NoB...

...belki farklı çözüm yolları bulunabilir. Haluk beyin daha önce farklı başlıklarda paylaştığı Google Sheets üzerinde çalışan rakam harf ayıran REGEXP formülleri ile daha kolay çözüme gidilebilir. Ama bunun için excel yerine Google E-Tabloları kullanmanız gerekir. Son olarak excel üzerinde...

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