İç İçe Yerinekoy Formülü

1 2 3
09/09/2020, 10:07

enginbeyy

merhaba birden fazla kelimeyi hep aynı kelimeyle değiştirmek istiyorum.

mesela a1 hücresinde "fg" veya "as" veya "yd" veya "sy" bunlardan hangisi varsa hep "sd"ye dönüştürsün.

Tesekkürler.
09/09/2020, 10:42

berduş

RegEx fonksiyonunun replace komutunu arastırmanız işinize yaryabilir
09/09/2020, 10:48

enginbeyy

(09/09/2020, 10:42)berduş yazdı: RegEx fonksiyonunun replace komutunu arastırmanız işinize yaryabilir
Hocam Excel için soruyorum ama yine de bakayım mı buna.
09/09/2020, 10:49

berduş

excelde de çalışır diye biliyorum tabi kod sayfasında
09/09/2020, 11:42

berduş

önce çalışmanıza bir modül ekleyip aşağıdaki fonksiyonu tanımlayın
Function RegExpVeya(Mtn As String) As String

Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")

RegEx.IgnoreCase = False
RegEx.Global = True
RegEx.Pattern = "fg|as|yd|sy"
RegExpVeya = RegEx.Replace(Mtn, "sd")

End Function
sonra diyelim ki B1 hücresine şu eşitliği yazın
=RegExpVeya(A1)
temel mantık bu
09/09/2020, 12:05

enginbeyy

(09/09/2020, 11:42)berduş yazdı: önce çalışmanıza bir modül ekleyip aşağıdaki fonksiyonu tanımlayın
Function RegExpVeya(Mtn As String) As String
   
    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
   
RegEx.IgnoreCase = False
RegEx.Global = True
RegEx.Pattern = "fg|as|yd|sy"
RegExpVeya = RegEx.Replace(Mtn, "sd")

End Function
sonra diyelim ki B1 hücresine şu eşitliği yazın
=RegExpVeya(A1)
temel mantık bu
hocam yaptım ama değiştirmeden veriyor.
1 2 3