شيت كنترول الصف الثانى التجارى

[ابراهيم الحداد]

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

اخوتى واحبتى فى الله اعضاء منتدانا العظيم

بناسبة قرب حلول امتحانات نصف العام اليكم شيت كنترول للصف الثانى التجارى

حيث تلاحظ قلة الاعمال التى تهتم بكنترولات التعليم التجارى

يحتوى الشيت على اربع شعب فقط و هى التى على دراية بها

ارجو ان ينال اعجاب من يبحثون عن هذا العمل

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

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

 

ثانية - ت.rar

[ناصر سعيد]

ربنا يحفظك ويصونك

اخي الكريم استاذ زيزو العحوز

[ناصر سعيد]

========

حقا انه كنز

يحتوي على العديد من الاكواد غير العاديه ...

جعل الله

هذا العمل في كفه حسناتك

 

 

==========================

أخي الغالي

إن شاء الله سيعدك الله ..

وما علينا إلا أن نزرع

أما الحصاد فبالتأكيد له أوانه

.. افعل ما يجب عليك فعله

فلربما يأتي اليوم الذي يحتاج إليه - ( أناس اليوم واناس آخرون ) -

ما نقدمه

.. فيتركوا لنا دعوة بظهر الغيب ..
وما أجملها من دعوة

من شخص لا تعرفه في زمان لا تعرفه في وقت وأجل لا تعرفه ، ومن يدري لعلها تخفف عنا

تقبلوا وافر تقديري واحترامي

جمل نادره .. ربنا يحفظك

[ناصر سعيد]

جزاك الله كل خير استاذ زيزو

Sub RangLY()
  ' كود شهادات آخر العام لجميع الشعب
Dim ws As Worksheet, sh As Worksheet
Dim Arr As Variant
Dim x, y, z, r, s As Long
Set ws = Sheets("شهادة آخر العام")
Set sh = Sheets(ws.Range("X2").Value)
Application.ScreenUpdating = False
Call SubjectsNames3
Call RemovShp
Arr = Array(10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 59, 60, 64, 68)
y = 9 + (ws.Range("T1").Value - 1) * 3 + 1
z = 9 + ws.Range("T1").Value * 3
s = 11
For r = y To z
For x = LBound(Arr) To UBound(Arr)
ws.Cells(s, x + 6) = sh.Cells(r, Arr(x))
ws.Cells(s - 5, 19) = sh.Cells(r, 4)
ws.Cells(s - 4, 6) = sh.Cells(r, 3)
ws.Cells(s - 4, 19) = sh.Cells(r, 2)
ws.Cells(s - 5, 14) = ws.Cells(2, 24)
ws.Cells(s + 1, 6) = sh.Cells(r, 69) & " : " & sh.Cells(r, 70)
Next
s = s + 11
Next
Call Crl_Shp
Application.ScreenUpdating = True
End Sub

ارجو شرح هذا الكود ... جزاكم الله كل خير

[ناصر سعيد]

ان شاء الله

سافرد لكل شرح

موضوعا منفصلا يستفيد منه الجميع

[maha hassanin]

38 minutes ago, ناصر سعيد said:

ان شاء الله

سافرد لكل شرح

موضوعا منفصلا يستفيد منه الجميع

هل ممكن كنترول شيت عبد البارى البنا اعدادى مضاف اليه اللغة الفرنسية مع جزيل الشكر 

[ناصر سعيد]

اللغه الفرنسيه ..اصبحت نشاط اختيارى للجمهوريه كلها

[ابراهيم الحداد]

السلام عليكم ورحمة الله
اخى الكريم / ناصر 
اليك شرح الكود كما طلبت
 

Sub RangLY()
  ' كود شهادات آخر العام لجميع الشعب
Dim ws As Worksheet, sh As Worksheet
'الشيتات التى سيتم العمل عليها
Dim Arr As Variant
'مصفوفة لاعمدة الدرجات
Dim x, y, z, r, s As Long
 ' متغيرات للتحكم فى عدد الشهادات التى ينطبق عليها الشرط
Set ws = Sheets("شهادة آخر العام")
'تعريف الشيت الاول
Set sh = Sheets(ws.Range("X2").Value)
 حيث القائمة المنسدلة التى تحوى 4 شيتات ("X2") الشيت الثانى يتم تحديد كما فى الخلية المذكورة 
Application.ScreenUpdating = False
  ' استدعاء اسماء المواد حيث تختلف من شعبة الى اخرى
Call SubjectsNames3 
   ' مسح الدوائر حال وجودها للحاصلين على ملاحق
Call RemovShp
  مصفوفة اعمدة الدرجات
Arr = Array(10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 59, 60, 64, 68)
  '  بداية العد من الشهادات المطلوب عرضها
y = 9 + (ws.Range("T1").Value - 1) * 3 + 1
   ' ترتيب آخر شهادة مطلوب عرضها
z = 9 + ws.Range("T1").Value * 3
  ' اول سطر يحتوى بيانات  
s = 11
  النطاق الذى سيتم العمل عليه فى الشيتات المقصودة
For r = y To z
   ' نطاق الاعمدة المحددة بالمصفوفة
For x = LBound(Arr) To UBound(Arr)
   ' استدعاء درجات الشهادة 
ws.Cells(s, x + 6) = sh.Cells(r, Arr(x))
   '  الاوامر التالية لاستدعاء اسم الطالب ورقم جلوسه وفصله وشعبته و المواد الراسب فيها اذا كان راسبا
ws.Cells(s - 5, 19) = sh.Cells(r, 4)
ws.Cells(s - 4, 6) = sh.Cells(r, 3)
ws.Cells(s - 4, 19) = sh.Cells(r, 2)
ws.Cells(s - 5, 14) = ws.Cells(2, 24)
ws.Cells(s + 1, 6) = sh.Cells(r, 69) & " : " & sh.Cells(r, 70)
Next
   ' تكرار تنفيذ الامر بعد 11 صف حتى آخر شهادة بالورقة      
s = s + 11
Next
    ' استدعاء كود رسم الدوائر لطالب الملاحق
Call Crl_Shp
Application.ScreenUpdating = True
End Sub

 

[ناصر سعيد]

اولا وقبل اي شيء ادعو لك الله ان يغفر لي ولك وان يمدك بالصحه والعافيه ...

وبعد :

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

في الكود السابق

لم ار صفحه المصدر التي ستاخذ منها بيانات الدرجات والاسم وغير ذلك ... فاين هذه الصفحه ؟

هذا ملف به الكود السابق

ارجو تفعيله

 

1شهادات استاذ زيزو.rar

[ناصر سعيد]

وضعت في هذا المرفق كودكم الرائع بشرح الكود  وصفحه الشهادات

وارجو تفعيل الكود بهذا المرفق ..

كرما منكم

 

شهادات استاذ زيزو2.rar

[ناصر سعيد]

في 12/20/2017 at 01:35, ناصر سعيد said:

اولا وقبل اي شيء ادعو لك الله ان يغفر لي ولك وان يمدك بالصحه والعافيه ...

وبعد :

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

في الكود السابق

لم ار صفحه المصدر التي ستاخذ منها بيانات الدرجات والاسم وغير ذلك ... فاين هذه الصفحه ؟

هذا ملف به الكود السابق

ارجو تفعيله

 

1شهادات استاذ زيزو.rar

لم ار صفحه المصدر التي ستاخذ منها بيانات الدرجات والاسم وغير ذلك ... فاين هذه الصفحه ؟

[ناصر سعيد]

انت فين ياغالي بارك الله لك

[ناصر سعيد]

المحترم استاذ زيزو

اولا جزاك الله خيرا ... وبعد

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

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

حتى يتم الاستفاده من هذا العمل الاكثر من رائع

يجب ان تشرح كيفيه استعمال هذا البرنامج

[ناصر سعيد]

23 ساعات مضت, ناصر سعيد said:

المحترم استاذ زيزو

اولا جزاك الله خيرا ... وبعد

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

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

حتى يتم الاستفاده من هذا العمل الاكثر من رائع

يجب ان تشرح كيفيه استعمال هذا البرنامج

المحترم استاذ زيزو

لماذا لم تجبني على هذا السؤال ؟

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

[ابراهيم الحداد]

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

اخى الحبيب ناصر

لا اخفيك سرا ان العمل فى التعليم العام يختلف تماما عن التعليم الفنى

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

على سبيل المثال لا الحصر , الرصد يتم فى شيت الشعبة مباشرة و لا يتم التسجيل فى صفحة خاصة بالرصد  ثم يتم الترحيل كما هو الحال فى التعليم العام

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

و عذرا على تأخير الرد

   ودمتم فى رعاية الله

[ناصر سعيد]

1 ساعه مضت, زيزو العجوز said:

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

اخى الحبيب ناصر

لا اخفيك سرا ان العمل فى التعليم العام يختلف تماما عن التعليم الفنى

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

على سبيل المثال لا الحصر , الرصد يتم فى شيت الشعبة مباشرة و لا يتم التسجيل فى صفحة خاصة بالرصد  ثم يتم الترحيل كما هو الحال فى التعليم العام

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

و عذرا على تأخير الرد

   ودمتم فى رعاية الله

الرصد يتم فى شيت الشعبة مباشرة  ... واين هذا الشيت من فضلك ؟

[ابراهيم الحداد]

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

اخى الحبيب ناصر

اذهب الى الصفحة الرئيسية 

اذا ارت الرصد فى شعبة الادارة اضغط زر شعبة الادارة

اما اذا اردت  اى شعبة من الشعب اضغط الزر الذى يحمل اسم الشعبة ويمكنك اخفاؤهما مرة اخرى من زر اخفاء

توجد ايضا ورقة لوضع الارقام السرية بها جدول مخصص لكل شعبة ضع الارقام التى تريدها ثم اضغط لترحيلها الى ذات الشعبة

توجد مزايا اخرى للشيت يمنكنك التعرف عليها جميعا بشئ من الصبر و الاصرار الذى احييك عليه

[ناصر سعيد]

ربنا يبارك فيك يارب استاذ زيزو