Sorgu için arama sonuçları: RegExp

...Dim x As Integer Dim hcr As Range Set s1 = Sheets("Sayfa_1") Set s2 = Sheets("Sayfa_2") ReDim dz(1 To 1) Set R = CreateObject("VBScript.RegExp") R.Pattern = "(\d{1,2}(\.\d{1,2}){3})" R.Global = False For Each hcr In s1.Range("A1:Z500") If R.Test(hcr.Value) Then x = x + 1...

...Dim capDizi(), adetDizi(), lboyDizi() Const adDouble = 5 iCount = ListBox1.ListCount Set objRegEx = CreateObject("VBscript.RegExp") objRegEx.Pattern = "(\d+)" objRegEx.Global = True For i = 0 To iCount - 1 myStr = ListBox1.List(i) If...

Çok teşekkür ederim herkese ellerinize sağlık. Bunu çalıştırabildim sağolun

Başka bir kullanıcı tanımlı fonksiyon Function Sesli(str As String) As String Dim re As Object Set re = CreateObject("vbscript.regexp") re.IgnoreCase = True re.Global = True re.Pattern = "[bcçdfgğhjklmnpqrsştvwxyz]" Sesli = re.Replace(str, "") End Function Function Sessiz(str As String) As...

"Libre Office" de resimdeki gibi bir çalışma fikir verebilir; .

Bu kodları yalnız B sütunundaki "Tarih" fotmatındaki değerlerin önüne sıfır koymak için nasıl kullanabilirm. Örnek, 3.01.2022 olan tarihi 03.01.2022 gibi

"RegEx" ile alternatif, Sub Test() ' Haluk - 04/02/2022 ' sa4truss@gmail.com Dim regExp As Object, NoA As Integer, i As Integer Set regExp = CreateObject("VBScript.RegExp") regExp.Global = True regExp.Pattern = "([a-zığüşöç])" NoA = Range("A" &...

Üstadım ellerinize kollarınıza sağlık çok teşekkür ederim.

...Public Function GetMoney(rng As Range) As Double Static reg As Object If reg Is Nothing Then Set reg = CreateObject("VBScript.RegExp") Dim retVal As String reg.Pattern = "[\d,.]+(?:\.|,)\d{2}(?=\$|€)" If reg.Test(rng) Then retVal = reg.Execute(rng)(0)...

ÖmerFaruk Bey, Deneme yaptım bir sıkıntı görünmüyor, pazartesi detaylı kontrol edeceğim, ilginiz ve desteğiniz için çok teşekkür ederim. hayırlı geceler dilerim.

RegExp ile olur mu bilemedim. Beceremediğim bir konu. Ancak aşağıdaki kodları bir Modüle içine yerleştirip sayfanızda çalıştırırsanız N-O-Q sütunlarında işlem yapmaktadır. Çalıştırmadan önce dosyanın yedeğini almanızı tavsiye ederim. Sub TekHaneleriDuzelt() Dim Veri, ListeN, ListeO, ListeQ Dim...

Ya da, dosyaya bir modül ekleyip aşağıdaki kodu yapıştırın. Function RemoveNonAsciiChars(ByVal xStr As String) As String Dim RegExp As Object Set RegExp = CreateObject("VBScript.RegExp") With RegExp .Global = True .MultiLine = False .IgnoreCase = True...

...As Range, Optional Kriter As Boolean = True) As Double Dim Veri As Range Application.Volatile True With CreateObject("VBScript.RegExp") .IgnoreCase = True .Global = True .Pattern = "[^\d-,]+" For Each Veri In Alan If...

...tane öğrencinin yanıtlarını excele atıyor. JSON verisi JScript ile parse edilmiştir. Exceliniz 64 bit ise çalışmayacaktır. O şekildeyse yarın regexp ile parse edilmiş halinide yazarım. Const url1 = "https://docs.google.com/spreadsheets/d/1nk6EU73sBa738NsKevdcPdvZgij16lfw_MHKaKJNlIA/gviz/tq"...

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

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