Hai Galuh,
Kalau mau pakai UDF, bisa diunduh disini pada sheet SubsMidChar <https://app.box.com/s/ye3zwrar9z660qbbbx01> yang bunyi function dalam sebuah general module VBA-nya berbunyi : [letakkan dalam sebuah general module di VBE] 're-write VB : 201305 Public Function SubsMidChar(sTeks As String, Optional sChar As String = "*") As String Dim vKata As Variant, sHasil As String For Each vKata In Split(sTeks, " ") If Len(vKata) > 2 Then sHasil = sHasil & Left(vKata, 1) & String(Len(vKata) - 2, sChar) & Right(vKata, 1) & " " Else sHasil = sHasil & vKata & " " End If Next vKata SubsMidChar = Trim(sHasil) End Function Cara pakai dalam worksheet : =SubsMidChar( teks , [karakter_pengganti] ) Contoh untuk data di A1 berbunyi : 'Contoh dari ku' Bunyi Formula Hasilnya =SubsMidChar( A1 ) C****h d**i ku =SubsMidChar( A1 , "#" ) C####h d##i ku =SubsMidChar( A1 , "@?$" ) C@@@@h d@@i ku Wassalam, Kid. 2014-07-23 13:15 GMT+10:00 Galuh Sukmana [email protected] [XL-mania] <[email protected]>: > > > Dear All Excelers, > > Saya ingin mengganti beberapa char dicell bersyarat menggunakan replace > atau substitute, tetapi saya kesulitan membuatnya karena masing2 cell tidak > sama jumlah characternya > > Cth: > Budi Indah Lalu = B**i I***h L**u > Windarini Suratmi = W*******i S*****i > Mejikuhibiniu = M***********u > Bantex Bagus Putih = B****x B***s P***h > > Mohon bantuannya utk bisa memberikan pencerahannya. Atas bantuannya > diucapkan terima kasih > > Regards, > Galuh > > >
