اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .




10-10-2018 08:53 مساء
مشاهدة مشاركة منفردة [10]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1149
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 53
قوة السمعة : 6869
الاعجاب : 1937
 offline 
look/images/icons/i1.gif استخراج القيم المكررة فقط
المشاركة الأصلية كتبت بواسطة: salim »
بارك الله بك اخي حسام
و زيادة في اثؤاء الموضوع  هذا الكود

Option Explicit
Sub Extarct_dup()
Dim r%, m%: m = 4
Dim x%, Y%, k%
Range("d1").CurrentRegion.Offset(1, 0).Columns(1).ClearContents
r = Range("a1").CurrentRegion.Columns(1).Rows.Count
k = 2
Do Until k > r
    x = Application.CountIf(Cells(2, 1).Resize(r, 1), Cells(k, 1))
    Y = Application.CountIf(Cells(2, 4).Resize(k - 1, 1), Cells(k, 1))
       If x > 1 And Y = 0 Then
         Cells(m - 2, 4) = Cells(k, 1)
         m = m + 1
       End If
       k = k + 1
Loop
End Sub


انا اسلام استاذ سليم ركز biggrin2
ومشكور مرورك العطر ومشكور اثرائك للموضوع
ونصيحه حاول تبعد عن المنطق دا أغالى فى الكود
لانه مع البيانات الضخمه هيسبب بطئ شديد biggrin2
كما ان النتائج غير دقيقه
بمعنى أخر هيحصل أخطاء فى النتائج فى بعض الظروف جرب وشوف wink_3
تقبل وافر احترامى وتقديرى 81



اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 11:04 صباحا

أعلن هنا
أعلن هنا
أعلن هنا