Sorgu için arama sonuçları: RegExp

Function boslukEkle(txt As String) As String With CreateObject("Vbscript.Regexp") .Global = True .Pattern = "(.)" boslukEkle = Trim(.Replace(txt, "$1 ")) End With End Function Sub boslukEkleme() With CreateObject("Vbscript.Regexp") .Global = True...

https://www.excel.web.tr/forums/regular-expressions-regexp-duezenli-ifadeler.165/ Bu kısımda zeki beyin çalışması vardı.

Merhaba Sayın @veyselemre RegExp için yararlanabileceğimiz kaynak tavsiye edebilir misiniz?

Sub TEST() With CreateObject("VBScript.RegExp") .Pattern = "(.+\()(.+)(\).+)" If .TEST([k5].Value) Then [k6].Value = .Replace([k5].Value, "$2") End With End Sub

...As String) As String 'Zeki' ' Dim doc As New DOMDocument60, rdr As New SAXXMLReader60, wrt As New MXXMLWriter60, reg As New RegExp, strXML As String If IsObject(objDocOrXml) Then doc.Load objDocOrXml Else doc.LoadXML objDocOrXml End If...

...As String = "K") Dim Veri As Range Application.Volatile True For Each Veri In Alan With CreateObject("VbScript.RegExp") .Pattern = "[" & Kriter & "]" .Global = True .IgnoreCase = True If...

..."BİR", "İKİ", "ÜÇ", "DÖRT", "BEŞ", "ALTI", "YEDİ", "SEKİZ", "DOKUZ") ReDim Liste(1 To 1) With CreateObject("VbScript.RegExp") .Pattern = "." .Global = True If .Test(Veri.Value) Then Set Karakterler = .Execute(Veri.Value) For...

Yusuf Bey, pardon ama ..... bu fonksiyonda "RegExp" ne işe yarıyor ? .

...KTF kodlarını bir modüle ekleyin. A2 hücresinde aşağıdaki formül istediğiniz sonucu verecektir: =yaz(A1) Kodlar: Function yaz(veri) Set regexp = CreateObject("VBscript.RegExp") regexp.Global = True regexp.Pattern = "[^0-9A-Za-zĞÜŞİÖÇığüşöç]" If veri <> "" Then veri =...

Herşey için teşekkür ederim bir gerçekten büyük bir sorundan kurtardınız beni konuyuda düzgün bir şekilde yeniden olusturdum orayada ekliyorum cevabınız için ve yardımınız için teşekkür ederim

Muhtemelen konuyu açtıktan sonra belli bir süre geçtiği için mesaj başlığında veya içeriğinde düzenleme yapamazsınız. Moderatör arkadaşlar ilgilenecektir.... Sorunuzla ilgili olarak ise; "RegExp" ile bir çözüm ekli dosyadadır.... .

Fazla merakta bırakmayalım, o zaman :) Not: Dosya revize edildi (Gereksiz olan bir For-Next döngüsü iptal edildi). .

Sayın Üstadım çok teşekkürler Lakin ben başaramadım Tablo üzerine uygularsanız anlayabilir. Şimdiden teşekkürler

...= A + Txt(1) G = G + Txt(2) End If Next Hcr A = A + Int(G / 30) G = G Mod 30 Y = Y + Int(A / 12) A = A Mod 12 HizmetToplam = Y & " Yıl " & A & " Ay " & G & " Gün" End Function Not : RegExp ile çözümü merak...

Bunun rica etsem içine hem rakamları toplayan hem de harfleri toplayan şeklinde olur mu. Çünkü Bu sefer başka yerde F2 veya N2 olarak rakamları toplamada sıkıntı yok ama başka hücrede eğersay ile ne yazık ki harfi almıyor.

...As Range, Optional Ayıraç As String = "+") Dim Karakter As Variant Application.Volatile True With CreateObject("VbScript.RegExp") .Global = True .Pattern = "[^0-9," & Ayıraç & "]" Karakter = Replace(.Replace(Replace(Veri.Value, ".", ","), ""), ",", ".")...

...As Range, Optional Ayıraç As String = "+") Dim Karakter As Variant Application.Volatile True With CreateObject("VbScript.RegExp") .Global = True .Pattern = "[^0-9," & Ayıraç & "]" Karakter = Replace(.Replace(Replace(Veri.Value, ".", ","), ""), ",", ".")...

Sub regexp() Dim i%, al$, sut% With CreateObject("VBScript.RegExp") .Pattern = "[^!#%]+" .Global = True .IgnoreCase = True For i = 1 To Cells(Rows.Count, 1).End(3).Row sut = 2 al = Cells(i, 1).Value If .test(al) Then...

...As Range, KM As Integer) Dim reg As Object Application.Volatile If reg Is Nothing Then Set reg = CreateObject("VBScript.RegExp") reg.Pattern = "[Km]?:?\s?(\d{1,3}\+\d{1,3}[\d+,]*)-(\d{1,3}\+\d{1,3}[\d+,]*)" reg.Global = False reg.IgnoreCase = True...

...sadece arapça karakterler kalır... Sub Test() ' Haluk - 02/04/2021 ' sa4truss@gmail.com ' https://excelhaluk.blogspot.com/ Dim regExp As Object Set regExp = CreateObject("VBscript.RegExp") regExp.Pattern = "[A-Za-zĞÜŞİÖÇğüşiöçı]" regExp.Global = True...