أ/حكيم قام بنشر أكتوبر 31, 2012 مشاركة قام بنشر أكتوبر 31, 2012 (معدل) الاخوة الزملاء الاعزاء الموضوع موجود في المنتدى سابقا ... لو تكرمتم أرجو أضافة بعض التعديلات وهي فصل الغائبين في ورقة منفصلة ثم ترحيل الناجحين ثم الراسبين ثم الغائبين في ورقة أخرى و لكم جزيل الشكر فصل الراسب والناجح و الغائب.zip تم تعديل أكتوبر 31, 2012 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أكتوبر 31, 2012 مشاركة قام بنشر أكتوبر 31, 2012 تفضل أخى الكريم / أبو حكيم فصل الراسب والناجح و الغائب.rar رابط هذا التعليق شارك More sharing options...
أ/حكيم قام بنشر أكتوبر 31, 2012 الكاتب مشاركة قام بنشر أكتوبر 31, 2012 (معدل) شكراً استاذنا العزير أولا للكود وثانباً لسرعة الرد وكل عام وأنت و الاعضاء الكرام بخير ولو أمكن شرح بعض أجزاء من الكود ليمكن التعديل في الكود في حالة زيادة عدد المواد (زيادة أعمدة) تم تعديل أكتوبر 31, 2012 بواسطه أبو حكيم رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 31, 2012 مشاركة قام بنشر أكتوبر 31, 2012 (معدل) بعد إذن أخى جمال بك دغيدى ولإثراء الموضوع بقترح الكود التالى لنسخ النتيجة مع فرزها لشيت الكل مع الإستغناء عن ماكرو معادلة إف فى الشيت الرئيسى يراعى تسمية الشيت الرئيسى (الشيت) قبل تنفيذ الكود Sub فرزص() Sheets("الشيت").Select Range("A11:DO10000").Select Selection.Copy Sheets("الكل").Select Range("A11").Select ActiveSheet.Paste Range("DO11").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[-1]="""","""",IF(RC[-1]=""ناجح"",1,IF(RC[-1]=""راسب"",2,IF(RC[-1]=""غائب"",3))))" Range("DO11").Select Selection.AutoFill Destination:=Range("DO11:DO10000") Range("A11:DO10000").Select Selection.Sort Key1:=Range("DO11"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal MsgBox "تم نسخ النتيجة وترتيبها فى شيت الكل" End Sub تم تعديل أكتوبر 31, 2012 بواسطه يوسف عطا رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 31, 2012 مشاركة قام بنشر أكتوبر 31, 2012 أما بخصوص كود الترحيل أخى الغالى دغيدى فهو جميل جداً وسهل جداً ولو تتكرم بشرحه يجازيك الله عنا خيراً رابط هذا التعليق شارك More sharing options...
أ/حكيم قام بنشر نوفمبر 1, 2012 الكاتب مشاركة قام بنشر نوفمبر 1, 2012 شكراً للأخ يوسف عطا ولو تتكرم بشرح الكودلأتمكن من إضافة أعمدة أخرى (مواد) هل يمكن ترحيل أعمدة محددة فقط وتكون الاعمدة غير متجاورة مثلا العمود 1و3و7و8و9و12و30و50:36 ...... الخ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان