Yang dihitung itu APANYA ya ??
Kalau yg dimaksudkan : *menilai prosentasi kemiripan* antara 2 String
maka ini sepertinya sudah masuk ke ranah *Fuzzy Logic*
Prosentasi kemiripan 2 buah string, dapat didekati, misalnya dengan UDF
seperti ini
Function Bandingkan(st1 As String, st2 As String) As Double
'-------------------------------------------------
' mengembalikan Bilangan yg menunjukkan
' % (Prosentasi) kemiripan 2 string
' dikutip dari Folder tersembunyi milik Yu siti
' bertanggal 22 Feb 1009
' dan disesuaikan dengan keperluan
'-------------------------------------------------
Dim MtchTbl(100, 100)
Dim MyMax As Double, ThisMax As Double
Dim i As Integer, j As Integer, ii As Integer, jj As Integer
With WorksheetFunction
st1$ = Trim$(.Proper(st1$))
st2$ = Trim$(.Proper(st2$))
End With
MyMax# = 0
For i% = Len(st1$) To 1 Step -1
For j% = Len(st2$) To 1 Step -1
If Mid$(st1$, i%, 1) = Mid$(st2$, j%, 1) Then
ThisMax# = 0
For ii% = (i% + 1) To Len(st1$)
For jj% = (j% + 1) To Len(st2$)
If MtchTbl(ii%, jj%) > ThisMax# Then
ThisMax# = MtchTbl(ii%, jj%)
End If
Next jj%
Next ii%
MtchTbl(i%, j%) = ThisMax# + 1
If (ThisMax# + 1) > ThisMax# Then
MyMax# = ThisMax# + 1
End If
End If
Next j%
Next i%
Bandaingkan = MyMax# / ((Len(st1$) + Len(st2$)) / 2)
End Function
file contoh <http://www.box.com/s/lvrdzxp8km7fdz8qnafm> penerapannya di
sheet/ workbook, dapat diunduh di :
http://www.box.com/s/lvrdzxp8km7fdz8qnafm
CMIIW
-iHaps-
*2011/12/12 rahmat hidayatullah <[email protected]>
*
>
> * *
>
> *Saya anggota baru di grup ini. Saya sangat tertarik untuk mempelajari
> teknik2 macro excel untuk pekerjaan saya. nah, untuk kali ini saya punya
> masalah untuk melakukan perhitungan kemiripan dua kata. Misalkan ada kata
> "rahmat" dan kata "amat". Bagaimana ya caranya untuk menghitung kemiripan
> dua kata tersebut sesuai dengan urutan hurufnya. Idenya mungkin sama dengan
> ide korelasi pada statistika. Mohon bantuannya.
>
> Rahmat Hidayatullah
>
> bisa dilihat yang "mirip" di sini konsepnya:
> *
>
> groups.yahoo.com/group/XL-mania/files/Challenge/0038.palindrome_(closed).zip
> groups.yahoo.com/group/XL-mania/files/Challenge/0039.anagram_(closed).zip
>
>
