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 penerapannya di sheet/ workbook, dapat diunduh di :
CMIIW
-iHaps-
2011/12/12 rahmat hidayatullah <abank_amat@yahoo.com>
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
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário