اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مشروع توزيع الطلبة على الفصول


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

السلام عليكم

شهر مبارك وكل عام وانتم بخير

سنبدا هنا موضوع توزيع الطلبة على الفصول

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

كل ملف له آلية عمل تختلف عن الاخرى

سنبدا الموضوع وهو مثل ملف الاستاذ نور

وهو اذا كان الملف عندك جاهز وعارف المعطيات

وستقوم بوضعها بداية الكود

هذه المرة الكشوفات ستكون في ملف جديد منفصل على الملف الاساسي

وجاهزة للطباعة

المطلوب منك اعداد الكشف الاول في الملف الاساسي

ومنه ستضع معطياتك بداية الكود

الكود حيكون في حدث الورقة اللي فيها نسخة الكشف الاول

علشان يتم نقلها مباشرة الى ملفك بمعية اكواده

هذه المعطيات المطلوبة بداية الكود

'============================================================

'============================================================

'      نطاق البيانات اما ان يكون اسم لنطاق

'        او عنوان النطاق  مع اسم الورقة

Private Const My_Date As String = "MyRng"

'============================================================

'  اول صف في الجدول لوضع البيانات

Private Const FirstRow As Integer = 9

'  عدد صفوف البيانات المنقولة في الكشف

Private Const MyCount As Integer = 30

'  عدد صفوف التذييل

Private Const MyCountEndRow As Integer = 5

'  عدد اعمدة الكشف بداية من العمود 1

Private Const MyPagColumn As Integer = 6

'  عدد الفصول

Private Const MyCountClass As Integer = 32

'============================================================

'============================================================

وهذا المرفق

ملف اكسل 2003

توزيع على الفصول م1.rar

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

الأستاذ / عبدالله

كل عام وانت باتم صحة وخير

رمضان كر يم

الملف في غاية الجمال ويدل على مهارة وخبرة منفذه

بارك الله فيك

جزاك الله خيراً على مجهودك الكبير في هذا المنتدى

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

الاستاذ الفاضل خبور خير

عمل جبار وكالعادة متقن ومرتب

سلمت يداك يا ابا علي

لم تخيب لاظن في هداياك

تقبل مروري

ابواحمد

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

بعض الإستفسارات

1 - حين اذهب لصندوق الماكرو Alt + F8 لا اجد به اي ماكرو (اعلم ان الكود يتم تنفيذه من الزر الخاص بإضافة فصول في الشيت 2)

سبب السؤال عندما اردت تنفيذ الماكرو FormulaToValue لم أجده بمربع الحوار Macros

2 - في الفصل 32 بالشيت الأساسي يوجد لدينا 66 طالب تنتهب بالإسم يوسف 22

لكن في الشيت الذي تم اعداده بالكود نجد ان كششف الفصل 32 يشتمل على 60 طالب وينتهي بالطالب يوسف 16

لتمنى ان يتسع صدركم للإستفسارات التي قد تبدو امور بسيطة لديكم

شكراً مرة اخرى على الملف

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

الاستاذ الكبير " خبـــــــــــــــــــور خيــــــــــــــــــــــر " :

ماشاء الله ... موهبة وخبرة ....حماك الله

ننتظر البقية

بالتوفيق

ياسر الحافظ

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

بعض الإستفسارات

1 - حين اذهب لصندوق الماكرو Alt + F8 لا اجد به اي ماكرو

لتمنى ان يتسع صدركم للإستفسارات التي قد تبدو امور بسيطة لديكم

شكراً مرة اخرى على الملف

اذهب لصندوق الماكرو Alt + F11

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

p22.gif

الاخ الحبيب/ معتصم محمد __________حفظه الله

الاخ الحبيب/ عبد الله المجرب__________حفظه الله

الاخ الحبيب/ نادر__________حفظه الله

الاخ الحبيب/ ياسر الحافظ__________حفظه الله

الاخ الحبيب/ محمدي __________حفظه الله

الاخ الحبيب/ كيماس__________حفظه الله

الاخ الحبيب/ قصي __________حفظه الله

الاخ الحبيب/ khhanna__________حفظه الله

جزاكم الله خيراً

تقبلوا تحياتي وشكري

خبور خير

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

السلام عليكم

الاخ الحبيب / معتصم محمد

شهر مبارك وكل عام وانتم بخير

1 - حين اذهب لصندوق الماكرو Alt + F8 لا اجد به اي ماكرو (اعلم ان الكود يتم تنفيذه من الزر الخاص بإضافة فصول في الشيت 2)

سبب السؤال عندما اردت تنفيذ الماكرو FormulaToValue لم أجده بمربع الحوار Macros

اي كود له تابع لن تجده بالطريقة هذه

لانه يجب تعريف التابع في كود منفصل

في حالة ان الكود موجود في حدث الورقة مثل كودنا هذا

ممكن الوصول اليه باضافة كود في موديل جديد او موديل الورقة

Sub vv()

ورقة2.FormulaToValue ActiveSheet

End Sub
اذا كان الكود موجود بموديل مثلا Module1
Sub vv()

Module1.FormulaToValue ActiveSheet

End Sub
او

Sub vv()

FormulaToValue ActiveSheet

End Sub
2 - في الفصل 32 بالشيت الأساسي يوجد لدينا 66 طالب تنتهب بالإسم يوسف 22 لكن في الشيت الذي تم اعداده بالكود نجد ان كششف الفصل 32 يشتمل على 60 طالب وينتهي بالطالب يوسف 16
انت اخي الكريم شديد الملاحظة وسؤالك يدل على ذكاء وتركيز ملحوظ لقد اوردت سابقا:
سنبدا الموضوع وهو مثل ملف الاستاذ نور وهو اذا كان الملف عندك جاهز وعارف المعطيات وستقوم بوضعها بداية الكود
Private Const MyCount As Integer = 30
معناه ان الكشف مجهز ليسع 30 صف *2 60 طالب وهذه الزيادة التي تراها للفصل 32 انا عملتها قاصدا ذلك وجربت الكود وتحصلت على رسالة خطأ وصححت الكود باضافة
If N > (MyCount * 2) Then Exit For

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

ولا يعطيك رسالة خطأ ويوقف التنفيذ

------------------------

حاول ان تجهز كشف آخر يستوعب مثلا 40

وغير ذلك في المعطيات

وشاهد ماذا سيعمل الكود

ارجو ان يكون شرحي مفهوما

تقبل تحياتي وشكري

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

الأستاذ عبدالله

جزاك الله خيراً على التوضيح

لكن اسمح لي سؤال اخر

اي كود له تابع لن تجده بالطريقة هذه

هل تقصد بالتابع وهو ما تم تحديده باللون الأحمر

Sub FormulaToValue(she As Worksheet)

لانه يجب تعريف التابع في كود منفصل

وهل عملية تعريف التابع هي عمبلية تعريف متغير بواسطة الكلمة DIM

اعتذر للإطالة

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

الأستاذ عبدالله

جزاك الله خيراً على التوضيح

لكن اسمح لي سؤال اخر

اي كود له تابع لن تجده بالطريقة هذه

هل تقصد بالتابع وهو ما تم تحديده باللون الأحمر

Sub FormulaToValue(she As Worksheet)

نعم

لانه يجب تعريف التابع في كود منفصل

وهل عملية تعريف التابع هي عمبلية تعريف متغير بواسطة الكلمة DIM

اعتذر للإطالة

بجانب اسم الاجرائية

FormulaToValue التابع 

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

لسلام عليكم

الاخ الفاضل نور انور _______حفظه الله

الاخ الفاضل ابو الحسن والحسين _______حفظه الله

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

وشهر مبارك وكل عام وانتم بخير

تقبلوا تحياتي وشكري

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

السلام عليكم

الاخ الحبيب هشام شلبي_______حفظه الله

الاخ الحبيب عادل يحي _______حفظه الله

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

وشهر مبارك وكل عام وانتم بخير

تقبلوا تحياتي وشكري

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

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

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



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

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

Important Information