Re: ]] XL-mania [[ input data berdasarkan databank

lampiran yg terkirim kemarin ternyata file yg belum di updated
ini disusulkan file yg sudah diupdated (udf nya)

coding udfnya sendiri seharusnya seperti ini


Function CTVLOOKUP(LookUp_Value, _
                   Table_Array As Range, _
                   Col_Index_Num As Integer)
   ' siti villager / 25 feb 2010
   Dim Arr, i As Integer, n As Integer, Ri As Integer
   Dim MaxAda As Integer, Ada As Integer
   Arr = Split(LookUp_Value)
   For i = 1 To Table_Array.Rows.Count
      Ada = 0
      For n = LBound(Arr) To UBound(Arr)
         If InStr(1, Table_Array(i, 1), Arr(n)) > 0 Then Ada = Ada + 1
      Next n
      If Ada > MaxAda Then
         MaxAda = Ada: Ri = i
      End If
   Next i
   CTVLOOKUP = Table_Array(Ri, Col_Index_Num)
End Function

2010/2/28 siti Vi <setiyowati.devi@gmail.com>

hanya 'contoh kasus' berarti bukan kasus yg nyata sedang dihadapi 'kan ya.. 

 

Kalau pakai VLOOKUP memang ndak bisa,

karena VLOOKUP bukan bekerja seperti TUGAS yg dijelaskan Pak Ghost.

Harusnya pakai fungsi CTVLOOKUP

 

Fungsi ini mirip dengan VLOOKUP, tetapi hanya punya 3 (tiga) argument

seperti ini (gambar dialogbox 'function arguments')