yahya eissa قام بنشر فبراير 7, 2012 مشاركة قام بنشر فبراير 7, 2012 (معدل) السلام عليكم .. كيف الحال ان شاء الله بخير .. الله يجزاكم خير يا اخوان عندي ملف رافع ضغطي هل من حل له ؟ السالفه كالتالي: عندي ملف بالأرقام الجامعية والأسماء لأكثر من 7000 طالب ، وفيه طالب يتكرر مرتين وطالب يتكرر 3 مرات وطالب يتكرر 4 مرات ، وايضاً طالب مايتكرر نهائياً احتاج طريقة لترتيب هذا الكم الهائل حسب عدد مرات التكرار . يعني اللي تكرروا 4 مرات تحت بعض ، واللي تكرروا 3 مرات تحت بعض واللي تكرروا مرتين تحت بعض ، واللي ماتكرروا تحت بعض هل من طريقة للترتيب بهذه الطريقة ؟ مثال بسيط http://www.cksu.com/udc/download.php?filename=cksu13286186031.rar يعطيكم العافية تم تعديل فبراير 7, 2012 بواسطه yahya eissa رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 7, 2012 مشاركة قام بنشر فبراير 7, 2012 السلام عليكم ضع هذه المعادلة =COUNTIF($B$1:$B$7000;B1) في الخلية D1 ثم اسحبها الى الاسفل ثم قم بعملية فرز من الاصغر الى الكبر على حسب هذا العمود رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر فبراير 7, 2012 مشاركة قام بنشر فبراير 7, 2012 السلام عليكم ورحمة الله أخي الكريم، قمت بمحاولة للترتيب حسب أسماء الطلبة ولكن ظهر مشكل وهو أن بعض الأسماء غير محجوزة بالطريقة نفسها رغم أنها مكررة، ثم عدلت على هذا الترتيب وجعلته حسب الأرقام الجامعية للطلبة (وأتمنى أن لا يكون فيها المشكل نفسه)... وحضرت لك الكود التالي (باعتبار أن البيانات يبدأ حجزها من السطر الأول) : Sub hben() Dim I As Integer, DernLigne As Long DernLigne = Range("A" & Rows.Count).End(xlUp).Row Set MyRange = Range("$A$1:$A$" & DernLigne) For I = 1 To DernLigne Cel = Range("A" & I) Range("D" & I) = Application.WorksheetFunction.CountIf(MyRange, Cel) Next Range("A1:D" & DernLigne).Sort Key1:=Range("D1"), Order1:=xlAscending, Key2:=Range("a1") _ , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _ xlSortNormal Range("D1:D" & DernLigne).Clear End Sub وإذا أردت ترك عدد مرات تكرار هذه الأسماء في العمود D يمكن حذف السطر Range("D1:D" & DernLigne).Clear من الكود... في الملف المرفق تحد تطبيق هذا الكود على مثالك... أخوك بن علية example.rar رابط هذا التعليق شارك More sharing options...
yahya eissa قام بنشر فبراير 8, 2012 الكاتب مشاركة قام بنشر فبراير 8, 2012 الله يعطيكم الف عافية ياشباب عبدالله طريقتك كويسه ولكن كان فيه اخطاء .. مشكور ع الرد والتفاعل ، hben الله يفرج عليك مثل مافرجت علي هم ذا الملف ، فعلاً الطريقة مضبوطة جداً مع الارقام الجامعية وأدت المطلوب وزيادة بعد ، وملاحظة اظهار التكرار افادتني جداً في التقرير الطريقة ممتازة جداً ودقيقة جداً أيضاً ، الله يجزاك ألف خير وينفع بك الاسلام والمسلمين شكراً لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها