Rekan2 Be-Exceler, Untuk mengisi hari libur tidak ada salahnya kita bermain UDF (User Defined Function) Berbekal pertanyaan seorang member milis dari negeri seberang, saya coba utak atik UDF warisan si Mbak yang sudah mendahului kita.
Pertanyaa dari member tsb adalah: Bagaimana membandingkan kata2 yang ada pada kolom A dengan yang ada pada kolom B ? UDF yang sudah saya modifikasi adalah seperti ini : Option Explicit Function IsSimilar(Dat1, Dat2) As Variant ' coded by: siti Vi / Jakarta, 07 Jun 2011 ' updated by hk 15 juni 2013 '----------------------------------------- Dim i As Integer, j As Integer Dim Notsame Dim ArD1, ArD2 ArD1 = Split(LCase(Dat1), " ") ArD2 = Split(LCase(Dat2), " ") For i = LBound(ArD1) To UBound(ArD1) For j = LBound(ArD2) To UBound(ArD2) If ArD1(i) = ArD2(j) Then GoTo 10 Else Notsame = Notsame & " " & ArD1(i) End If j = j + 1 Next j i = i + 1 10 Next i IsSimilar = Notsame End Function Hasilnya (belum sesuai dengan keinginan) ada dalam file terlampir. Pertanyaan saya adalah bagaimana memperbaiki UDF tsb ? Terima kasih. Salam, HK
