Shafik قام بنشر سبتمبر 23, 2020 قام بنشر سبتمبر 23, 2020 السلام عليكم اخواني احاول عمل معادلة لمنع التكرار باستخدام countifs بناءا على عمودين وعدة سطور ولكن تفشل بسبب السطور . الملف هو جدول كل سطر يحتوي على بيانات الدرس واسماء الطلاب المطلوب لو تكرمتم عدم تكرارالبيانات او تعليم الطلاب المكررة بناءا على التالي عمود التاريخ date عمود الوقت time و٣ اعمدة للطلاب students جزاكم الله كل خير. عنوان مخالف ... تم تعديل عنوان المشاركة ليدل ويعبر عن طلبك Tech.xlsx
أفضل إجابة سليم حاصبيا قام بنشر سبتمبر 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
Shafik قام بنشر سبتمبر 23, 2020 الكاتب قام بنشر سبتمبر 23, 2020 اخي سليم الملف رائع ، ولكن انا خطأي لم اوضح انه يمكن زيادة اعدة الطلاب ، هل من الممكن ان توضح لي ماذا يحب ان اعدل بالمعادلة حتى تشمل عدد غير منتهي او على الاقل ٣٠ عمود جديد للطلاب ؟ وجزاك الله كل خير Tech.xlsx
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.