أكاديمية الصقر للتدريب

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


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





استخراج القيم المكررة فقط

الاخوة الكرام .. اسعد الله اوقاتكم بكل خير ارفقت لكم طلبي بملف وارجو تكرمكم بالاجابة عليه لما عهدته منكم من سرعة الاجابة ..


موضوع مغلق


02-07-2022 09:38 صباحا
ٍٍ Mohammed Safaa
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 01-07-2022
رقم العضوية : 24456
المشاركات : 2
الجنس : ذكر
تاريخ الميلاد : 6-2-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 10
 offline 

الاخوة الكرام .. اسعد الله اوقاتكم بكل خير
ارفقت لكم طلبي بملف وارجو تكرمكم بالاجابة عليه لما عهدته منكم من سرعة الاجابة ومساعدة اخوانكم واخواتكم في اكاديمية الصقر ..
في المرفق قائمة باسماء عملاء وارقام حساباتهم .. المطلوب اختيار الاسماء ذات الحسابات المتشابهه فقط والمؤشرة باللون الاحمر وعرضها داخل الليست بوكس ..
مع الشكر الجزيل مقدما .
 
 
  ارقام الحساب المتشابهه.rar   تحميل rar مرات التحميل :(10)
الحجم :(12.77) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم بها نبدأ أخي الكريم
جرب الكود التالي عله يفي بالغرض
Private Sub UserForm_Initialize()
    Dim a, lr As Long, i As Long, n As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Range("F2:H" & lr).Formula = "=COUNTIF($C$2:$E$" & lr & ",C2)"
    a = Range("A1").CurrentRegion.Value
    ListBox1.ColumnCount = 3
    For i = 2 To UBound(a)
        If a(i, 6) > 1 Or a(i, 7) > 1 Or a(i, 8) > 1 Then
            With ListBox1
                .AddItem
                If a(i, 6) > 1 Then
                    .List(n, 0) = a(i, 3)
                ElseIf a(i, 7) > 1 Then
                    .List(n, 0) = a(i, 4)
                ElseIf a(i, 8) > 1 Then
                    .List(n, 0) = a(i, 5)
                End If
                .List(n, 1) = a(i, 2)
                .List(n, 2) = a(i, 1)
            End With
            n = n + 1
        End If
    Next i
    Columns("F:H").ClearContents
End Sub
عرض الإجابة




02-07-2022 12:10 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif استخراج القيم المكررة فقط
السلام عليكم بها نبدأ أخي الكريم
جرب الكود التالي عله يفي بالغرض
Private Sub UserForm_Initialize()
    Dim a, lr As Long, i As Long, n As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Range("F2:H" & lr).Formula = "=COUNTIF($C$2:$E$" & lr & ",C2)"
    a = Range("A1").CurrentRegion.Value
    ListBox1.ColumnCount = 3
    For i = 2 To UBound(a)
        If a(i, 6) > 1 Or a(i, 7) > 1 Or a(i, 8) > 1 Then
            With ListBox1
                .AddItem
                If a(i, 6) > 1 Then
                    .List(n, 0) = a(i, 3)
                ElseIf a(i, 7) > 1 Then
                    .List(n, 0) = a(i, 4)
                ElseIf a(i, 8) > 1 Then
                    .List(n, 0) = a(i, 5)
                End If
                .List(n, 1) = a(i, 2)
                .List(n, 2) = a(i, 1)
            End With
            n = n + 1
        End If
    Next i
    Columns("F:H").ClearContents
End Sub

02-07-2022 04:55 مساء
مشاهدة مشاركة منفردة [2]
ٍٍ Mohammed Safaa
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 01-07-2022
رقم العضوية : 24456
المشاركات : 2
الجنس : ذكر
تاريخ الميلاد : 6-2-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 10
 offline 
look/images/icons/i1.gif استخراج القيم المكررة فقط
استاذي ومعلمي Yasser Khalil
الف شكر لسرعة الاجابة .. ومليون شكر لهذا الكود الرائع ..
جعل الله هذه المساعدة في ميزان حسناتكم 
اعتزازي بكم 

02-07-2022 11:19 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif استخراج القيم المكررة فقط
بارك الله فيك أخي الكريم 
والحمد لله الذي بنعمته تتم الصالحات



الكلمات الدلالية
استخراج ، القيم ، المكررة ،


 










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

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