اذهب الي المحتوي
أوفيسنا

فصل الناجح و الراسب والغائب


أ/حكيم

الردود الموصى بها

الاخوة الزملاء الاعزاء الموضوع موجود في المنتدى سابقا ...

لو تكرمتم أرجو أضافة بعض التعديلات وهي فصل الغائبين في ورقة منفصلة ثم ترحيل الناجحين ثم الراسبين ثم الغائبين في ورقة أخرى

و لكم جزيل الشكر

فصل الراسب والناجح و الغائب.zip

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

شكراً استاذنا العزير أولا للكود وثانباً لسرعة الرد وكل عام وأنت و الاعضاء الكرام بخير ولو أمكن شرح بعض أجزاء من الكود ليمكن التعديل في الكود في حالة زيادة عدد المواد (زيادة أعمدة)

تم تعديل بواسطه أبو حكيم
رابط هذا التعليق
شارك

بعد إذن أخى جمال بك دغيدى

ولإثراء الموضوع

بقترح الكود التالى لنسخ النتيجة مع فرزها لشيت الكل مع الإستغناء عن ماكرو معادلة إف فى الشيت الرئيسى

يراعى تسمية الشيت الرئيسى (الشيت) قبل تنفيذ الكود


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

تم تعديل بواسطه يوسف عطا
رابط هذا التعليق
شارك

شكراً للأخ يوسف عطا ولو تتكرم بشرح الكودلأتمكن من إضافة أعمدة أخرى (مواد)

هل يمكن ترحيل أعمدة محددة فقط وتكون الاعمدة غير متجاورة مثلا العمود 1و3و7و8و9و12و30و50:36 ...... الخ

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information