Shafik قام بنشر سبتمبر 23, 2020 مشاركة قام بنشر سبتمبر 23, 2020 السلام عليكم اخواني احاول عمل معادلة لمنع التكرار باستخدام countifs بناءا على عمودين وعدة سطور ولكن تفشل بسبب السطور . الملف هو جدول كل سطر يحتوي على بيانات الدرس واسماء الطلاب المطلوب لو تكرمتم عدم تكرارالبيانات او تعليم الطلاب المكررة بناءا على التالي عمود التاريخ date عمود الوقت time و٣ اعمدة للطلاب students جزاكم الله كل خير. عنوان مخالف ... تم تعديل عنوان المشاركة ليدل ويعبر عن طلبك Tech.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر سبتمبر 23, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 23, 2020 جرب هذا الملف صفحة "salim" Sub FIND_DUP() Dim I%, M%, REP As Range, COL As Collection Dim My_rg As Range Set COL = New Collection Set My_rg = Range("B3").CurrentRegion If My_rg.Rows.Count = 1 Then Exit Sub Set My_rg = My_rg.Offset(1).Resize(My_rg.Rows.Count - 1) My_rg.Interior.ColorIndex = xlNone For I = 4 To My_rg.Rows.Count + 3 On Error Resume Next COL.Add I, Cells(I, 2).Value & "*" & Cells(I, 4).Value & "*" _ & Cells(I, 8).Value & "*" & Cells(I, 9).Value & "*" _ & Cells(I, 10).Value & "*" If Err.Number <> 0 Then M = M + 1 If REP Is Nothing Then Set REP = Cells(I, 2).Resize(, 9) Else Set REP = Union(REP, Cells(I, 2).Resize(, 9)) End If End If Err.Number = 0 Next If Not REP Is Nothing Then REP.Interior.ColorIndex = 6 End If Set COL = Nothing: Set REP = Nothing End Sub الملف مرفق SHAFik.xlsm 2 رابط هذا التعليق شارك More sharing options...
Shafik قام بنشر سبتمبر 23, 2020 الكاتب مشاركة قام بنشر سبتمبر 23, 2020 اخي سليم الملف رائع ، ولكن انا خطأي لم اوضح انه يمكن زيادة اعدة الطلاب ، هل من الممكن ان توضح لي ماذا يحب ان اعدل بالمعادلة حتى تشمل عدد غير منتهي او على الاقل ٣٠ عمود جديد للطلاب ؟ وجزاك الله كل خير Tech.xlsx رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.