MENCARI TINGKAT KECOCOKAN DATA

  1. 2 tahun lalu

    dear master,
    mohon pencerahaannya... untuk mengetahui tingkat kecocokan dari 2 sumber data yang berbeda gimana ya caranya....??

  2. TERLAMPIR

  3. Gimana klo seperti ini

    saya gunakan vba dg coding :

    Sub MyPercent()
    'Sesuaikan kolom A,B,C nya sesuai yg diinginkan
    Application.ScreenUpdating = False
    lstrow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("Sheet3").Range("A1:A" & lstrow).Value = Sheets("Sheet1").Range("A1:A" & lstrow).Value
    Sheets("Sheet3").Range("B1:B" & lstrow).Value = Sheets("Sheet2").Range("A1:A" & lstrow).Value
    For r = 2 To lstrow
    If Trim(Cells(r, "A").Value) = Trim(Cells(r, "B").Value) Then
    Cells(r, "C").Value = 1
    GoTo OK
    End If
    Mystring1 = Trim(Cells(r, "A").Value)
    Mystring2 = Trim(Cells(r, "B").Value)
    Len1 = Len(Mystring1)
    Len2 = Len(Mystring2)
    MaxLen = WorksheetFunction.Max(Len1, Len2)
    MinLen = Len1
    If MaxLen = Len1 Then MinLen = Len2
    Same = 0
    For c = 1 To MinLen
    If Mid(Mystring1, c, 1) = Mid(Mystring2, c, 1) Then Same = Same + 1
    Next c
    Cells(r, "C").Value = Same / MaxLen
    OK:
    Next r
    Application.ScreenUpdating = True
    End Sub

    semoga membantu

 

atau Mendaftar untuk ikut berdiskusi!