Sorgu için arama sonuçları: RegExp

...da aşağıdaki gibi örnek olsun. Sub test() Dim mySum1 As Double, mySum2 As Double, st As Variant With CreateObject("VBScript.RegExp") .Global = True .pattern = "15\sluk\sduvar\s:\s(.*)\sm²|20\sluk\sduvar\s:\s(.*)\sm²" For Each st In Split("15 luk duvar : 1.17...

...: 30.94 m² " arrPattern(1) = "(15\sluk\sduvar\s:\s)([\d.]+)\sm²" arrPattern(2) = "(20\sluk\sduvar\s:\s)([\d.]+)\sm²" Set regExp = CreateObject("VBScript.RegExp") regExp.Global = True For Each xData In arrPattern regExp.Pattern = xData Set...

Sub test() With CreateObject("Vbscript.Regexp") .Pattern = "([\d,]+ EUR)" .Global = True For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row If .test(Cells(i, 1).Value) Then sut = 2 For Each mtch In .Execute(Cells(i, 1).Value)...

Alternatif olarak, RegExp metodonunun kullanıldığı KullanıcıTanımlıFonksiyon içeren ekli dosyayı inceleyebilirsiniz.... https://s6.dosya.tc/server3/rnxx6y/Test.xlsm.html .

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