قوائم فصول

[احمد بدره]

أقدم لكم برنامج عمل قوائم فصول

يصلح لكل المراحل يتم التعامل به بكل سهولة

قوائم.xls

[سعيد 1428]

بارك الله فيكم 

[Ali Mohamed Ali]

جزاك الله كل خير وجعله فى ميزان حسناتك

[سليم حاصبيا]

استاذ احمد

منذ متى و نحن نخفي الكودات ( عن بعضنا) بكلمة سر

هل رأيتني مرة واحدة قمت بوضع كلمة سر على اي كود

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

[ابن عبدالرازق]

 

 

[احمد بدره]

أشكرك أستاذي سليم على انتباهي أن محرر الأكواد بكلمة سر

فأنا لم أتعمد ولم أنتبه لهذا

والملف تم إلغاء كلمة السر من محرر الأكواد

قوائم.xls

[سليم حاصبيا]

استاذ احمد

لم ادرس الاكواد جيداً بعد

لكني لاحظت شيئاً 

ان المستخدم عندما ينفذ كود معين يجب ان يكون في الشيت التي يتبع لها هذا  الكود

ولا مجال هنا للخطأ  لان عملية Undo غير مجدية في الاكواد (ربما يقوم الكود بمسح سجلات غير مرغوب بمسحها) 

لذا اقترح ان تدرج العبارة التالية في بداية كل كود

If ActiveSheet.Name <> "ْXXXXXX" Then Exit Sub

مكان XXXXXX تضع اسم الشيت حبث سينفذ الماكرو

 التقليل قدر المستطاع من استعمال Select   التي ترهق البرنامج.

مثلا بدل استعمال

Sheets("Sheet1").Select
Range("a1:a500").Select
Range("a1:a500").Copy

يكفي

Sheets("Sheet1").Range("a1:a500").Copy

 

 

[احمد بدره]

أشكرك أستاذي سليم على مرورك وملاحقوائم.xlsظاتك وتم التعديل

قوائم.xls

[عمر إيهاب]

محتاجين نفس الشيت للازهر 

فتيات فقط 

مسلمين فقط 

ثانوى / اعدادى 

[mohamed abdelhalim]

ياريت رفع هذا الشيت بعد دمج البنين والبنات معا داخل القائمة الواحدة ويسع حتى ٦٥ طالب مع عمل الاحصاء اللازم لكل فصل

[mohamed abdelhalim]

اريد تعديل على هذا الملف بحيث تصبح القائمة واحدة 60 طالب بنون وبنات معا لان فى فصول بنات فقط وفى فصول ولاد فقط او مشتركين معا

بمعنى ان يبدا التسلسل من 1 الى 60 مرة واحدة مش عاوز دة فى صف ودة فى صف مع وضع مسافة فى الاسفل القائمة لكتابة شئون الطلبة والمدير

قوائم.xls

[mohamed abdelhalim]

اين مشرفي المنتدى للتعديل والرد ارجوكم