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

هذه الدالة تقوم بعمل الدالة 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

الكود يقوم بحذف المكرر من القيم والابقاء على قيمة واحدة فقط ويعمل على مدى مفتوح ولا يقوم بحذف الصف بالكامل وانما يقوم بالحذف بطريقة الازاحة الى اعلى Sub Abu_Ahmed_Del() LR = [A1000].End(xlUp).Row For i = LR To 1 Step -1 If Application.CountIf(Range("A1:A" & LR), Cells(i, 1)) > 1 Then Cells(i, 1).Delete Shift:=xlUp Next End Sub