عبدالله المجرب

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

كود الدالة

Function Cont_UnBlnk(MyRng As Range) For Each cl In MyRng If Not cl = Empty Then x = x + 1 Next Cont_UnBlnk = x End Function

الوصف

* تقوم الدالة COUNTA بعد الخلايا التي بها البيانات في مدى معين ولكنها ايضا تحسب الخلايا ذات القيمة صفر او المرتبطة بمعادلة بخلية اخرى

* وهذه الدالة (Cont_UnBlnk) تتجاو الخلايا الصفرية او المرتبطة بمعادلات

يرجى تجربة المرفق وإبداء الراي والملاحظات

الكود يقوم بحذف المكرر من القيم والابقاء على قيمة واحدة فقط
ويعمل على مدى مفتوح
ولا يقوم بحذف الصف بالكامل وانما يقوم بالحذف بطريقة الازاحة الى اعلى


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