Sorgu için arama sonuçları: RegExp

...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:)")...

Korhan hocam elinize sağlık işimi gördü. Çok tesekkurederim

...My_Data(X, 1) <> "" Then Pattern_Array.Add My_Data(X, 1), False End If Next With VBA.CreateObject("VBScript.RegExp") For Each Rng In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row) For Each My_Pattern In Pattern_Array.Keys...

Korhan hocam bunu denedim fakat yine aynı. Örneğin b1 deki at kelimesi sadece a1 de renkleniyor. istediğim sonucu renklendirerek Ekliyorum hocam. Yardımcı olursanız çok sevinirim.

...= False Range("A:A").Font.Bold = False Range("A:A").Font.Color = False With VBA.CreateObject("VBscript.RegExp") For Each Rng In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row) If Rng.Offset(, 1).Value <> "" Then .Pattern = "( " &...

...Range("CM3:CM" & Son).Font.Bold = False Range("CM3:CM" & Son).Font.Color = False With VBA.CreateObject("VBscript.RegExp") For Each Rng In Range("CM3:CM" & Son) Aranan = Range("CD6").Value If Aranan <> "" Then .Pattern = "(" & Aranan &...

Teşekkürederim. Fakat sizin yazdığınız kod ile kelime = kelime araması yapıyor. Ben metin içerisinde kelime araması yapmak istiyorum.

...= False Range("A:A").Font.Bold = False Range("A:A").Font.Color = False With VBA.CreateObject("VBscript.RegExp") For Each Rng In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row) If Rng.Offset(, 1).Value <> "" Then .Pattern = "(" &...

Sub test1() With CreateObject("Vbscript.Regexp") .Pattern = "\d" .Global = True al = Range("B1").Value If .Test(al) Then sut = 4 For Each mtch In .Execute(al) Cells(1, sut).Value = Val(mtch) sut = sut + 1...

...modülüne ekleyip deneyebilirsiniz... Private Sub Worksheet_Change(ByVal Target As Range) ' Haluk - 21/09/2020 Dim myStr As String, regExp As Object, objMatches As Object, xMatch As Object If Not Intersect(Range("A2:A" & Rows.Count), Target) Is Nothing Then myStr =...

Aşağıdaki makro A sütunundaki hücrelerde istediğiniz işlemi yapar: Sub renkle() Dim RegExp As Object Set RegExp = CreateObject("VBScript.Regexp") RegExp.Pattern = "[^0-9]" RegExp.Global = True son = Cells(Rows.Count, "A").End(3).Row For i = 1 To son For j = 1 To Len(Cells(i, "A"))...