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.

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, 11:42)berduş yazdı: önce çalışmanıza bir modül ekleyip aşağıdaki fonksiyonu tanımlayınhocam yaptım ama değiştirmeden veriyor.
sonra diyelim ki B1 hücresine şu eşitliği yazınFunction 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
temel mantık bu=RegExpVeya(A1)