كيف اجعل البرنامج ينقل الاسماء التي تحمل رقم فصل

[ابن الظاهرة]

اساتذتي الكرام ...

السلام عليكم

عندي برنامج رصد درجات طلاب لاكثر من صف دراسي اريد البرنامج ينقل الاسماء التي تحمل رقم الفصل الدراسي فقط يعني اذا كان رقم الفصل 1 يقوم البرنامج بنقل الاسماء التي امامها رقم الفصل 1 من ورقة الاسماء الى ورقة الرصد .

وهكذا علما بان البرنامج يحدد رقم الفصل تلقائيا في ورقة الرصد ..

حتي يتضح المقال سوف ارفق الملف في منتدى المرفقات المؤقتة ..

وبعد الانتهاء من عمل هذه ساطلب المساعدة الثانية :d حتى اصل للبرنامج الذي اريده ..

تحياتي لكم

[محمد حجازي]

السلام عليكم ...

تم تعديل الملف وذلك من خلال الأعمدة من F إلى Q في ورقة الاسماء ، ولكن انتبه إلى التنسيق الشرطي الموجود مسبقاً في الملف لأنه يلغي أسماء موجودة.

بالتوفيق

School.zip

تم تعديل فبراير 2, 2005 بواسطه محمد حجازي

[ابن الظاهرة]

شكرا جزيلا استاذي العزيز ولكن لي ملاحظات :

1/ عند طباعة الاسماء واعطائها ارقام الفصول نجد ان اخر اسم لا يظهر في كشف الرصد ولا اعرف السبب فمثلا لو كتبنا :

ابن الظاهرة ــ محمد ــ خميس ــ محمود ــ سعيد واعطيناها الرقم 3 نجد ان جميع الاسماء تظهر في كشف الرصد عدا اسم سعيد فما السبب وهل ممكن تعديل ذلك ..

2/ يوجد في كشف الرصد خانات لخمسين طالب ويتم اخفاء الصفوف الزايدة بواسطة تنسيق شرطي الا انني اريد الاتي :

ـ عند الطباعة يطبع الصفوف الظاهرة فقط بحيث انه لو كانت في ورقة واحدة يطبع هذه الورقة ويتجاهل الاوراق التي بها الصفوف المخفية ..

ـ اريد الصف الذي به الاعتمادات لمعلم المادة والمشرف ومدير المدرسة ترتفع لتكون تحت اخر صف تم اظهاره ..

واعذرني استاذي على طلباتي ..

وانتظر التعديل المطلوب منكم تكرما لا امرا ...

حتى يكتمل العمل كما اريد ...

تقبل تحياتي ..

[ابومؤنس]

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

الف تحية الي الاخ الحبيب محمد حجازي ,

اخي العزيز ابن الظاهرة اليك ملفك وبة طريقة اخري لنقل اسماء الطلاب من صفحة الاسماء الي صفحة الصفوف وبطريقة اخري . استخدمت فيها الدالتين IF و الدالة LOOKUP

ووضعت كذلك نتسيق شريطي يقوم باظهار رسالة في حالة عدم تطابق عدد الاسماء بين الصفحتين ..

جرب ونحن في انتظار الرد ,,,

School1.zip

[ابن الظاهرة]

استاذي العزيز ابو مؤنس

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

اشكرك على ما قمت به من عمل مع اني ارى من وجهة نظري ان الطريقة الاولى اسهل لي خاصة كمبتدىء لكن بها العيوب التي ادليت بها وفي انتظار مساعدتي عليها وعلى النقاط الاخرى من اساتذتي الكرام ..

شاكرين لكم تعاونكم ومساعدتنا في هذا المنتدى الرائع .

تقبل تحياتي وفي انتظار تعديل الملف الذي وضعه الاستاذ محمد خاصة الملاحظات التي ذكرتها ..

والسلام عليكم ..

[محمد حجازي]

السلام عليكم ...

بالنسبة للمرفق تم التعديل و إعادة التحميل في المشاركة السابقة.

بالنسبة لناحية الطباعة ، يمكن إعادة تعينها عن طريق الكود التالي:

Sub MyPrintArea()
  Sheets(3).PageSetup.PrintArea = "$A$4:$AX$" & Sheets(3).Range("BI2").Value
End Sub

الكود السابق خاص بالصفحة الثالثة في المرفق (الصفحة 1) وحيث تمت إعادة ضبط الأسطر للطباعة اعتماداً على القيمة الموجودة في الخلية BI2.

بالتوفيق

[ابومؤنس]

السلام عليكم ورحمة الله .

طبعا اخي العزيز طريقتي قديمة جدا ومعقدة . وانا شخصيا اول مرة اشوف الربط بين الصفحات يتم بواسطة التنسيق الشريطي .

هذا ما هو غريب علي عبقري الاكسيل الاخ محمد حجازي ..

[محمد حجازي]

السلام عليكم ...

شكراً لك يا أخي أبو مؤنس.

فقط إثباتاً للوقائع أردت أن أنوه إلى أن التنسيق الشرطي من تصميم صاحب الملف ابن الظاهر.

وشكراً

[ابن الظاهرة]

شكرا لكما استاذ محمد واستاذ ابو مؤنس

انا اتعلم معكم الان اشياء كثيرة وعند الانتهاء من انجاز السجل ساضعه هنا يعني خلاصة الدروس ...

استاذي العزيز محمد

الكود السابق اين اضعه بالضبط وهل هو لكل الصفحات ام ان كل صفحة لابد من يوضع لها باستقلال ..

وفقك الله وانتظر ردك ..

تحياتي لك ..

[محمد حجازي]

السلام عليكم ...

يمكنك وضع الكود في الـ Module وربطه بزر أمر .

راجع قسم الخلاصات وستجد مشاركة للأخ حسام نور عن كيفية إدراج الكود وربطه بزر الأمر.

بالتوفيق

[محمد حجازي]

السلام عليكم ...

فقط نسيت أن أخبرك بأن الكود يصلح لكل الصفحات في حال كون أعمدة البيانات متوضعة في نفس الموقع وفي حالة الاعتماد على الخلية BI2 في الأوراق الثلاث.

[ابن الظاهرة]

استاذي العزيز محمد شكرا لك ووفقك الله تعالى ..