Haluk Bey kod tüm belge için bütün çalışıyor. Belirli bir kısmı seçili olsada yine tüm belgeyi temizliyor.
Bu kod'a seçili kısımda da çalışması için nasıl bir ilave yapılabilir.
MS Word için;
Sub Test()
' Haluk - 10/02/2021
' https://excelhaluk.blogspot.com/
Dim regExp As Object
Set regExp = CreateObject("VBscript.RegExp")
regExp.Pattern = "\((\d+)\)"
regExp.Global = True
ActiveDocument.Range.Text =...
...yapmak lazım
Kod:
Sub Test3()
Dim objRegEx As Object, myCell As Range, myStr As String
Set objRegEx = CreateObject("VBscript.RegExp")
objRegEx.Global = True
objRegEx.Pattern = "\((\d+)\)"
For Each myCell In Selection
myStr = myCell.Text
myStr...
...Dim reg As Object
myDate = UCase(Format(Date, "mmmm yyyy"))
If reg Is Nothing Then
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "(.)"
reg.Global = True
End If
yazTarih = UCase(reg.Replace(myDate, "$1 "))
End Function
Sayfada...
...' sa4truss@gmail.com
Dim objHTTP As Object, strURL As String, strJSon As String
Dim arrPattern As String
Dim regExp As Object
Dim r As Integer, c As Byte, temp As Variant
Dim strResponse As String, intStatus As Integer, strStatus As String
arrProperties =...
@Haluk hocam elinize sağlık cok güzel ve işlevsel olmuş.
makroyu kodu görüntüle kısmından yapıstırdım ve çalıştırabildim. mumkunse bazı sorularım var.
500 satırlık sonuç verdi. bu rakamı arttırabilir miyiz ? ( cok onemli değil?)
makroyu her çalıştırdıgımda eski datayı yiyiyor. örnek ilk...
...' sa4truss@gmail.com
Dim objHTTP As Object, strURL As String, strJSon As String
Dim arrPattern As String
Dim regExp As Object
Dim r As Integer, c As Byte, temp As Variant
Dim strResponse As String, intStatus As Integer, strStatus As String
Range("A1:L" &...
...uygulayınız.
Option Explicit
Function K_PARÇAAL(Veri As Range) As String
Application.Volatile True
With CreateObject("VBScript.RegExp")
.Pattern = "\w{3}-\w{4}"
.Global = True
If .Test(Veri.Value) Then
K_PARÇAAL = .Execute(Veri.Value)(0)...
...Dim objHTTP As Object, strURL As String, HTMLcode As String
Dim arrProperties()
Dim arrPattern(1 To 21) As String
Dim regExp As Object, xPattern As Variant
Dim r As Integer, c As Byte
Dim strResponse As String, intStatus As Integer, strStatus As String...
...If IsNumeric(Veri) Then
KODLA = Veri
Exit Function
End If
If Kriter = 0 Then
With CreateObject("VBScript.RegExp")
.Pattern = "[a-zçıiğöşü]"
.Global = True
KODLA = .Replace(Application.Proper(WorksheetFunction.Trim(Veri))...
...150 kelimeyi B1 hücresine yazar. Sonrasında ne istediğinizi anlamadım....
Sub Test()
' Haluk - 31/01/2021
' sa4truss@gmail.com
Dim regExp As Object, i As Integer
Dim objMatches As Object
Set regExp = CreateObject("VBScript.RegExp")
With regExp
.IgnoreCase...
Bu da RegExp ile alternatif olsun;
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Value <> "" Then
With CreateObject("VBscript.RegExp")...
..."Tabi değil" yazdırmak.
Gerek Zeki Gürsoy'un gerekse Haluk Bey'in çalışmaları çok güzel olmuş. Ellerine ve emeklerine sağlık...
Haluk Bey RegExp ile yukarıdaki yazdıklarım için yardımcı olursa veya ekteki tabloyu word'e atmadan RegExp ile PDF'den direkt excel'e atmam için yardımcı...
Sn. @veyselemre Bey Merhaba,
Ekte ihtiyacımız olan çalışmayı birebir çözemedik fakat işlem olarak bizi bir nebze işimizi kolaylaştıracak benzer çalışmaları ararken sizin 2019 yılında aşağıda gördüğünüz üzere bir çalışma yaptığınızı gördük müsaitliğiniz var ise birebir bizim istediğimiz olmasada...
Eğer "Regular Expressions" ile çözüm arıyorsanız, bir modül ilave edip aşağıdaki kod yapıştırın.
Function trimDigits(Addr As Range)
Dim regExp As Object
If regExp Is Nothing Then
Set regExp = CreateObject("VBScript.RegExp")
regExp.Pattern = "(\b\d[\d,.]{8})"...
Merhaba Arkadaşlar,
40.98229658742376, 28.707264510734888 şeklinde rakamları noktanın sağında 6 rakam kalacak şekilde makro ile nasıl kısaltabilirim?
örnek: Yukarıdaki sayıyı 40.982296, 28.707268 yapma
not:Regexp Pattern ile yapmaya çalıştım beceremedim.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.