Re: ]] XL-mania [[ Substitute multi karacters yang letaknya tidak beraturan.

Coding-nya diperingkas dengan meniadakan variable perantara;

Argument baru (NewChar) ditambahkan: agar "karakter pengganti" dapat dikontrol juga, 

tidak harus selalu "" (NullString)

(nama Fungsi pun di "kerènkan" menjadi "MultiSubstitusi" sesuai saran pak Anas..

Function MultiSubstitusi(Text$, OldChars$, NewChar$) As String

   Dim i%

   For i = 1 To Len(OldChars)

      Text = Replace(Text, Mid(OldChars, i, 1), NewChar)

   Next i

   MultiSubstitusi = Text

End Function

mudah-mudahan ada manfaatnya, tiada mudharatnya...

-haps-

2011/11/14 Haps <hapsari.stlizbeth@gmail.com>

coding UDF nya?

Function Substitusi(S As String, KriteList As String) As String

   Dim i As Integer, Temp As String, k As String

   Temp = S

   For i = 1 To Len(KriteList)

      k = Mid(KriteList, i, 1)

      Temp = Replace(Temp, k, "")

   Next i

   Substitusi = Temp

End Function

2011/11/9 Anas Baso <anasbaso@gmail.com>

Hello
Saya punya masalah untuk mengganti caracter caracter aneh dalam satu
GABUNGAN KATA YANG PANJANG, dan inigin menghilangkan semua kharater "
Spasi, koma, titik, /, hurup tertentu, angka tertentu, <, >, ?, =" dan
banyak lagi yang letaknya tidak beraturan.
Saya tidak kasih contoh, karena saya yakin, statement diatas susah jelas,
Saya pakai Substitute tapi panjangnya minta ammmmpuuunnnn.
So, can you help with a short formula or using VBA should be OK!!
Anas