نجوم المشاركات

هذه الدالة تقوم بعمل الدالة VLookUp ولكن يمكن استعمالها لمن يريد اضافة دوال بإسمه في الملف الذي يعمل عليه الدالة VLookUp لها اربع متغيرات هي : 1. lookup_value (قيمة البحث) 2. table_array (جدول البيانات) 3. col_index_num (رقم العمود) 4. range_lookup (قيمة منطقية للتطابق في البحث صفر وواحد لاي نتيجة) الدالة المعرفة MyLook لها ثلاثة متغيرات هي 1. LookVal (قيمة البحث) 2. Rng (جدول البيانات) 3. iCol (رقم العمود) * الغرض من الدالة انه يمكن تعديل اسمها كما تريد وتحصل على نتيجة مماثلة لنتيجة الدالة VLookUp Function MyLook(LookVal As Variant, Rng As Range, iCol) For r = 1 To Rng.Rows.Count If Rng.Cells(r, 1) = LookVal Then MyLook = Rng.Cells(r, iCol): Exit For Next End Function