فرض کنید می خواهیم پیدا کنیم پروژه ای که امیر در آن مشغول به کار است. واضح است که هیچ یک از توابع Lookup اکسل به ما کمک نمی کنند زیرا امیر در چند پروژه کار می کند و به همین دلیل معیاری غیر تکراری برای عمل جستجو محسوب نمی شود.
برای حل این مشکل یک تابع نوشته ایم که نام تمام پروژه هایی که امیر در آنها مشغول به کار است را (جدا شده از هم با کاما) برمی گرداند !
این هم کد تابع :
Function Full_Lookup(Lookup_Value, _
Lookup_Column As Range, Resault_Column As Range)
Dim i As Long, result As String
For i = 1 To Lookup_Column.Count
If Lookup_Column.Cells(i, 1) = Lookup_Value Then
result = result & Resault_Column.Cells(i, 1).Value & ";"
End If
Next i
Full_Lookup = Left(result, Len(result) - 1)
End Function


0 نظر
تازه ترین ها