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

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


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

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

السلام عليكم

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

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

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

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

تحياتي لكم

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

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

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

بالتوفيق :fff:

School.zip

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

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

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.

بالتوفيق:fff:

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

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

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

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

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

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

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

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

وشكراً

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

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

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

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

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

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

تحياتي لك ..

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

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

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

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

بالتوفيق:fff:

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

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

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

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information