Sorgu için arama sonuçları: RegExp

VBA'de "RegExp" kullanarak hazırlanan alternatif ekli dosyadadır... .

...veri ise ve rakamlar hep sonda ise bu durumda ikinci kod işinize yarayacaktır. Bunun haricinde metnin içindeki rakamları yakalayan forumda REGEXP çözümler var inceleyip kendiniz uyarlayabilirsiniz. Option Explicit Private Sub worksheet_Deactivate() Dim Alan As Range, Veri As Range...

...çalışması için bir yol arıyorum. Teşekkür ederim. Sub Test() ' Haluk - 06/10/2019 ' sa4truss@gmail.com ' Dim NoB As Long Dim regExp As Object Dim myStr As String, i As Long Dim Codes() As String NoB = Sheets("Günlük Banka Extresi").Range("G" &...

Anlıyorum, bir sıkıntı var ama ne olduğunu anlamadım..... Yoksa, hem "ScriptControl" hem de "RegExp" metoduyla yapılan her 2 VBA kodu da çalışıyor bende. Neyse, sağlık olsun..... .

...Dim objHTTP As Object, strURL As String, JSonResponse As String Dim arrPattern(1 To 3) As String Dim regExp As Object, xPattern As Variant Dim r As Long, c As Byte Dim RetVal As Variant Range("A1:C" & Rows.Count).ClearContents Range("A1:C1") = Array("File Name"...

...' https://excelhaluk.blogspot.com/ Dim filePath As String Dim from_text As String, to_text As String Dim objWord As Object, regExp As Object filePath = "C:\TestFolder\testx.docx" Set objWord = CreateObject("Word.Application") Set myDoc =...

Hocam emeğiniz için teşekkürler. Bu vesile ile bir kaynağa sahip olmuş olduk

...SetDateColor(rng As Range) Static reg As Object, mc As Object, m As Object If reg Is Nothing Then Set reg = CreateObject("VBScript.RegExp") reg.Global = True reg.MultiLine = True reg.Pattern =...

@Korhan Ayhan 'ın önerisiyle "RegExp" yerine klasik string manipulasyonlarıyla revize edilen fonksiyon aşağıdadır. @ÖmerFaruk Bey veya @necati Bey deneyip de sonucu bildirirse, sorunun RegExp'den kaynaklanıp kaynaklanmadığını anlarız.... Function GetPageSize(PDF_File As String) ' Haluk...

Korhan Bey, olabilir tabii ama dosyayı açıp da içinde "MediaBox" ifadesini gördükten sonra RegExp'nin çalışmaması mümkün değil bence.... .

@Haluk Bey, RegExp yerine alternatif olarak InStr komutu kullanılarak belki sonuca gidilebilir.

Merhaba, ancak bilgisayar başına geçebildim. Fonksiyonu değiştirdim. Sonuç aynı Aşağıdaki satırda hata veriyor temp = Trim(RegExp.Execute(strRetVal)(0).SubMatches(0))

...' sa4truss@gmail.com ' https://excelhaluk.blogspot.com/ Dim FSO As Object, objFile As Object Dim strRetVal As String Dim RegExp As Object, temp As String Const ForReading = 1 Set RegExp = CreateObject("VBscript.RegExp") RegExp.Global = False...

...' Haluk 18/09/2021 ' sa4truss@gmail.com ' https://excelhaluk.blogspot.com/ Dim FileNum As Long Dim strRetVal As String Dim RegExp As Object, temp As String Set RegExp = CreateObject("VBscript.RegExp") RegExp.Global = False RegExp.Pattern =...

...procedure call or argument hatası veriyor. Sebebini bulamadım. Denediğim pdf ler kendi iblgisayarımdaki pdf dosyaları. temp = Replace(Replace(RegExp.Execute(strRetVal)(0), "MediaBox[", ""), "]", "") Resimde de görüldüğü üzere pdf özelliklerine bakınca sayfa boyutlarını göremiyorum. Bendeki...

...' Haluk 17/09/2021 ' sa4truss@gmail.com ' https://excelhaluk.blogspot.com/ Dim FileNum As Long Dim strRetVal As String Dim RegExp As Object, temp As String Set RegExp = CreateObject("VBscript.RegExp") RegExp.Global = False ' RegExp.Pattern =...

...A sütunundaki son satır numarasını yazınız. Dim stringOne As String Dim regexOne As Object Set regexOne = New RegExp regexOne.Pattern = "http[s]?://[^/]+" regexOne.Global = TRUE stringOne = Cells(i, 1).Value Cells(i, 2)...

Üstad harikasınız, aklınıza sağlık, mükemmel olmuş. Sağlıcakla kalın

...durumdayken aşağıdaki kodu çalıştırın; Sub Test() ' Haluk - 05/09/2021 ' sa4truss@gmail.com ' https://excelhaluk.blogspot.com/ Dim RegExp As Object, xRng As Range If RegExp Is Nothing Then Set RegExp = CreateObject("VBScript.RegExp") With RegExp .MultiLine =...