Function VLOOKUPMC
داله البحث VLOOKUPMC و هي مثل داله vlookup و لكن يمكن البحث باكثر من شرط في نفس الجدول
code
Public Function VLOOKUPMC(ByVal return_col_num As Long, _
ByRef table_array_1 As Range, ByVal lookup_value_1 As Variant, _
ByRef search_column_2 As Long, ByVal lookup_value_2 As Variant) As Variant
'Changed table_array_2 to search_column_2 because that's all that was used in the code below.
Dim rCell1 As Range
VLOOKUPMC = CVErr(xlErrNA)
'Left the For loop as-is, but maybe you want it to look only in the first column, like the normal VLOOKUP would?
For Each rCell1 In table_array_1
'Modified logic to all fit on one line/remove nesting.
'This organization may not be preferred, but it's one way to clean up the so-called 'mess'.
VLOOKUPMC = _
IIf(rCell1.Value = lookup_value_1 And _
rCell1.Offset(0, search_column_2 - rCell1.Column) = lookup_value_2, _
rCell1.Offset(0, return_col_num - rCell1.Column), _
VLOOKUPMC)
If VarType(VLOOKUPMC) <> vbError Then Exit Function
Next rCell1
End Function
ليست هناك تعليقات:
إرسال تعليق