تعريف وشرح دالة VLOOKON

[إلين]

مساء الخير 

احتاج شرح لدالة VLOOKON 

وكيف اضيفها عندي من ضمن الدوال؟

 

 

[Ali Mohamed Ali]

اهلا بك فى المنتدى شرفتنا,شرح هذه الدالة كالتالى:

وهى دالة معرفة وهذا هو الكود المرافق للدالة لحسن عملها

Function VLOOKON(ParamArray My_Arg()) As Variant
Dim Max As Integer
Dim Index As Integer
Dim FindOK As Boolean
Dim MyFind As String
Dim CIndex As Integer
MyFind = My_Arg(0)
CIndex = My_Arg(1)
Max = UBound(My_Arg)
FindOK = False
For Index = 2 To Max
If FindOK Then Exit For
    VLOOKON = My_Arg(Index).Name
    R = Range(VLOOKON).Rows.Count
    C = Range(VLOOKON).Columns.Count
    If CIndex > C Then VLOOKON = "#REF!": Exit Function
        For MyR = 1 To R
        If LCase(Range(VLOOKON)(MyR, 1)) = LCase(MyFind) Then
            VLOOKON = Range(VLOOKON)(MyR, CIndex)
            Exit Function
        End If
        Next MyR
Next Index
VLOOKON = "#N/A"
End Function

وهذا ملف ايضا به مثال يبين تطبيق الدالة لحسن استخدامها

 

VLOOKON With No Limitation.xls

[إلين]

شكرا لك 😊