Sorgu için arama sonuçları: RegExp

Sub test() Range("B:Z").ClearContents Dim huc As Range, m As Object, sut With CreateObject("VBScript.RegExp") .Pattern = "[\d]+|[^\d]+" .Global = True For Each huc In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row) If .test(huc.Value) Then...

...Function VirguldenAl(metin As String, sira As Integer) As String Dim parcalar() As String Set r = CreateObject("VBScript.RegExp") sPattern = "\d+" r.Pattern = sPattern parcalar = Split(metin, ",") If sira >= 1 And sira <= UBound(parcalar) + 2 Then...

...If Len(Me.TextBox1) = 2 And Right(Me.TextBox1, 1) = ":" Then Me.TextBox1 = "0" & Me.TextBox1: Exit Sub Set nesne = CreateObject("VBScript.Regexp") Select Case Len(TextBox1) Case 1: nesne.Pattern = "^[0-9]" Case 2: nesne.Pattern = "^(0[0-9]|1[0-9]|2[0-3])$" Case...

teşekkürler

...kodda döngüde kullanın. Function Temizle(alan As Range) Dim regEx As Object Dim str As String Set regEx = CreateObject("VBScript.RegExp") With regEx .Global = True .IgnoreCase = True .Pattern = "^\W{1,999}|\W{1,999}$" End With Temizle = regEx.Replace(alan.Value, "")...

fonksiyon olarak nasıl kullanacağım bilemedim hocam

Fonksiyonu kullanabilirsiniz. Function RemoveWhiteSpace(target As String) As String With CreateObject("VBScript.RegExp") .Pattern = "\s" .MultiLine = True .Global = True RemoveWhiteSpace = .Replace(target, vbNullString) End With End Function

RegExp ile alternatif; Function AddSpace(myRange As Range) As String ' Haluk - 16/11/2023 Dim regExp As Object Set regExp = CreateObject("VBScript.RegExp") regExp.IgnoreCase = True regExp.Global = True regExp.Pattern = "(.)" AddSpace =...

Tekrar merhaba, şu da benim işimi çözebilir; parça numarasının başındaki boşluklar hariç numara içerisindeki boşlukları silen bir formül de olabilir. Mesela; ( ka 07x17x22 pr) burda ka'dan önceki boşluklara dokunmadan 07 ve pr'den önceki boşluğu silebilir miyiz?

...As Range) As Integer Dim reg As Object, uzunluk As Integer, fark As Integer uzunluk = Len(hcr.Value) Set reg = CreateObject("vbscript.regexp") reg.Global = True reg.Pattern = "^\s+" fark = uzunluk - Len(reg.Replace(hcr, "")) BOSLUKLAR = fark End Function Dilediğiniz hücreye...

Sub test() Dim huc As Range With CreateObject("VBScript.RegExp") .Pattern = "(\d+)\.(\d+\.\d+)" For Each huc In Selection If .test(huc) Then huc.Value = .Replace(huc, "$1$2") Next End With End Sub

Private Sub TextBox1_Change() plaka = TextBox1.Value plaka = UCase(plaka) plaka = Replace(plaka, " ", "") With CreateObject("VBScript.RegExp") .Pattern = "(.*\d)(?! )(\D.*)" plaka = .Replace(plaka, "$1 $2") .Pattern = "(.*\D)(?! )(\d.*)" plaka = .Replace(plaka, "$1 $2") TextBox1.Value =...

Aşağıdaki fonksiyonları deneyiniz. Function getAmount(str As String) With CreateObject("VBscript.RegExp") .Global = True .Pattern = "TL\s\d+(\,\d+)?" str = Replace(WorksheetFunction.Trim(str), ".", "") If .Test(str) Then getAmount =...

Hocam elinize sağlık. Hemen kendi çalışmama uyarlayıp deneme yapacağım. Simdilik çok stabil çalışıyor.

RegExp kullanarak VBA ile alternatif; Function getAmount(str As String) With CreateObject("VBscript.RegExp") .Global = True .Pattern = "TL\s\d+(\,\d+)?" str = Replace(WorksheetFunction.Trim(str), ".", "") If .Test(str) Then getAmount =...

Haluk hocam ekran görüntüsündeki satırda hata verdi

Tamam hocam teşekkürler

...yazdırabilirsiniz.... Sub GetAltin() ' Haluk - 14/05/2020 ' Dim objHTTP As Object, strURL As String, HTMLcode As String Dim regExp As Object, valDoviz As Variant Set objHTTP = CreateObject("MSXML2.XMLHTTP") strURL =...

RegExp uygulamasında desen olarak aşağıdaki gibi deneyiniz. .Pattern = "\."

Sub test() With CreateObject("VBScript.Regexp") .Global = True .Pattern = "a" With .Execute(Range("A1").Value) If .Count > 2 Then MsgBox .Item(2).firstindex + 1 Else MsgBox "3 adet a yoktur." End If...