logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





22-09-2017 11:14 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس :
تاريخ الميلاد : 4-2-1999
الدعوات : 1
قوة السمعة : 196
الاعجاب : 0
اخواني في الله
ساقوم بمشيئة الله تعالى بشرح لكيفية عمل شيت كنترول
فانتظرونا .. بخير ان أراد المولى
منقول للاستاذ ناصر




look/images/icons/i1.gif موضوع للمدرسين
  22-09-2017 11:15 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس :
تاريخ الميلاد : 4-2-1999
الدعوات : 1
قوة السمعة : 196
الاعجاب : 0
إخواني في الله
السلام عليكم ورحمة الله وبركاته
لنبدأ على بركة الله
مقدمة مطلوبه
أول درس : هو كيفية اختزال اوراق البرنامج لأقل عدد ممكن مع الاحتفاظ بقوة البرنامج او بمعنى آخر عدم الاخلال بالنتائج المرجوة من البرنامج
===
في اي برنامج للكنترول نحتاج عدد 4 صفحات لادخال الدرجات
منهم عدد 2 صفحة للترم الاول
وهما صفحه التقويم لنصف العام وصفحة التحريري نصف العام
ومثلهم للترم التاني
والتعليم الابتدائي مثلا مكون من 5 صفوف دراسيه مطلوب عمل كنترول لها والصف السادس يتبع كنترول الاداره
==
المطلوب : اختزال الصفحات الاربعه في صفحه
واختزال البرامج ال 5 للصفوف المختلفه في برنامج واحد




look/images/icons/i1.gif موضوع للمدرسين
  22-09-2017 11:16 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس :
تاريخ الميلاد : 4-2-1999
الدعوات : 1
قوة السمعة : 196
الاعجاب : 0
CODE

 
Sub kh_ColumnHidden(ColumnAddres As String)
 
'هذه الأكواد الثلاثة التالية تعمل على تسريع تنفيذ الأوامر
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
      Columns("D:XFD").EntireColumn.Hidden = True
      Columns(ColumnAddres).EntireColumn.Hidden = False
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub




look/images/icons/i1.gif موضوع للمدرسين
  22-09-2017 11:17 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس :
تاريخ الميلاد : 4-2-1999
الدعوات : 1
قوة السمعة : 196
الاعجاب : 0
ماسبق هو الكود الرئيس الذي سيساعدنا في اخفاء كل اعمده الصفحه التي اعطيناه المدى الخاص بنا
والمدى الخاص باي صفحه يجب ان يبدا من العمود الذي تختاره الى اخر عمود بالصفحه
ثم سنأتي بكود اخر صغير نضع فيه مدى اعمده نحددها له ليظهرها فقط وبكده
احتوت الصفحه الواحده الى اي عدد من البيانات المطلوبه من عدة صفحات
وسنرفق الكود الاخر
الخلاصه : الكود السابق ضعه في موديول وفقط حدد بداية المدى الى أخر اسم عمود في الصفحه




look/images/icons/i1.gif موضوع للمدرسين
  22-09-2017 11:18 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس :
تاريخ الميلاد : 4-2-1999
الدعوات : 1
قوة السمعة : 196
الاعجاب : 0
CODE

Sub رصد_أعمال_ترم1()
 Sheets("رصد الدرجات  ").Select
kh_ColumnHidden "U:AD"
   Range("U14").Select
End Sub



فقط في هذا الكود
اكتب اسم الصفحه التي سيتعامل معها الكود
ثم اكتب المدى الذي تريد اظهار اعمدته
ثم تكتب اسم اول خليه ليقف المؤشر فيها
وبكده يكون وفقنا الله في اختزال الصفحات الى صفحه واحده




look/images/icons/i1.gif موضوع للمدرسين
  22-09-2017 11:20 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس :
تاريخ الميلاد : 4-2-1999
الدعوات : 1
قوة السمعة : 196
الاعجاب : 0
النقطه الثانيه : وهي كيفية اختزال البرامج المتعدده للصفوف المختلفه في برنامج واحد ..
لنفهم ماهو الاختلاف بين البرامج المتعدده للصفوف المختلفه .. هو مقدار الدرجات تختلف وتختلف ايضا في زياده بعض المواد للصفوف العليا عن الصفوف الدنيا
المطلوب : معادله تقول لو الخليه ... فيها الصف الاول او التاني او .....
اكتب الدرجات دي او اكتب الدرجات التانيه ( معادله OR )
CODE

=IF(OR('بيانات المدرسة'!$B$12=1;'بيانات المدرسة'!$B$12=2;'بيانات المدرسة'!$B$12=3);70;60)




look/images/icons/i1.gif موضوع للمدرسين
  22-09-2017 11:23 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس :
تاريخ الميلاد : 4-2-1999
الدعوات : 1
قوة السمعة : 196
الاعجاب : 0
21235mhnu1uq262




look/images/icons/i1.gif موضوع للمدرسين
  22-09-2017 11:27 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس :
تاريخ الميلاد : 4-2-1999
الدعوات : 1
قوة السمعة : 196
الاعجاب : 0
CODE

Sub xx()
 
Columns.Hidden = True
 
Range("a1,c1,e1,j1,o1,z1").EntireColumn.Hidden = False
 
End Sub
 



الكود السابق للاستاذ سليم حاصبيا جزاه الله خيرا
والشرح للاسناذ ياسر خليل


السطر الأول يبدأ بكلمة Sub يليها اسم الإجراء واسم الإجراء أنت حر فيه سمه بما تريدوأفضل أن تكون التسمية معبرة عن الهدف من الكود مثلاً UnhideSpecificColumns ..وفي آخر سطر قفلة الكود بالجملة End Subما بين السطرين البداية والنهاية هذا هو لب الكود ( بضم اللام )السطر الأول في الكود يقوم بإخفاء الأعمدة كلها ...أي نعم حيث أن الخاصية المستخدمة هي الخاصية Hidden وتعني مخفي .. إذاً ترجمة السطر الأعمدة. مخفي =صح يعني إخفاء كل الأعمدةلو غيرنا القيمة True إلى False تفتكر ايه اللي ممكن يحصل ؟؟ معروف إن True عكسها False ..إذاً سيقوم السطر في هذه الحالة بإظهار كل الأعمدةالسطر الأول إذاً يقوم بإخفاء كل الأعمدة مرة واحدة (دفعة واحدة وفي نفس واحد)ثم السطر الثاني يأتي ليحدد اعمدة يعينها للتعامل معها وإظهارها .. وهنا أخونا الغالي سليم استخدم أول خلية في كل عمود من الأعمدة المراد إظهارها ، فالخلية a1 تمثل العمود الأول ..المهم جمع الخلايا في نطاق واحد كما هو مشار في الكود بهذا الشكل=========

ثم استخدم الخاصية EntireColumn والتي تتعامل مع العمود بالكامل

[p]
ثم الخاصية Hidden والتي تحدثنا عنها ،
وهنا إشارة لكل الأعمدة المطلوبة
وفي النهاية تم وضع القيمة False لها لإظهارها دون سواها
</pre>
أرجو أن أكون وفقت في توصيل المعلومة




look/images/icons/i1.gif موضوع للمدرسين
  22-09-2017 11:29 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
لما لا يتم عمل ورقة واحدة لكل الصفوف لكلا العامين الدراسيين .. لما 4 ورقات عمل؟
الأفضل دائماً في قواعد البيانات أن تكون ورقة واحدة مصدر البيانات ومن خلالها يمكن عمل تقارير واستخراج النتائج المطلوبة بكل سهولة




look/images/icons/i1.gif موضوع للمدرسين
  22-09-2017 11:30 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس :
تاريخ الميلاد : 4-2-1999
الدعوات : 1
قوة السمعة : 196
الاعجاب : 0
الاستاذ المحترم محمود الشريف .. جزاك الله كل الخير ..
وبعد
برنامج الكنترول للمدارس : هو عباره عن برنامج به صفحات لادخال بيانات وصفحات لمخرجات هذه البيانات المدخله
ثانيا : ماهي صفحات الادخال ؟
صفحه لبيانات المدرسه .... فيها اسم المدرسه ..الاداره التابعه لها .. اسم مدير المدرسه .. اسم رئيس شئون الطلبه .. اسم رئيس الكنترول مجرد اسماء
الصفحه التانيه : من صفحات الادخال هي بيانات الطلبه من اسم الطالب .. تاريخ ميلاده .. نوع الطالب ( ذكر او أنثى ) .. حاله قيده (ناجح ام معيد ) .. الديانه
ثالثا : الصفحتين السابقتين من بيانات المدرسه وبيانات الطلبه والحمد لله تمت
نبدأ في رصد الدرجات وعشان نفهم اليه رصد الدرجات ودرجات ايه ؟
للطالب امتحانين الامتحان الاول في نصف العام وامتحان اخر العام
وكل امتحان منهم له درجات اعمال سنه او انجاز او تقويم مسميات مختلف لحاجه واحده
اذن مطلوب 4 صفحات لادخال درجات الطلاب منهم عدد2 صفحه لاعمال السنه ..
واحده في نصف العام وايضا مثلها في اخر العام
وعدد 2 صفحه لدرجات الامتحانين ( امتحان نصف العام و امتحان اخر العام )
كده المدخلات تمت بنجاح
=====
خلاصه ماسبق ": مطلوب 6 صفحات
منهم 2 واحدة لبيانات المدرسه والتانيه بيانات الطلبه
وعدد 2 صفحةواحده لاعمال السنه في نصف العام والتانيه اعمال السنه لاخر العام
وعدد 2 صفحه واحده لاختبار نصف العام والتانيه لاختبار اخر العام .....
ادعو الله ان اكون وفقت في هذا الجزء من شرح آليه العمل الكنترول




look/images/icons/i1.gif موضوع للمدرسين
  22-09-2017 11:31 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس :
تاريخ الميلاد : 4-2-1999
الدعوات : 1
قوة السمعة : 196
الاعجاب : 0
mf_bookread شرح عمل شيت كنترول .. راائع


تكمله ماسبق
مدخلات البرنامج تمام التمام
ناتي الى المخرجات

مطلوب :ارقام الجلوس .. كشوف المناداه .. شهادات الناجحين .. شهادات من لهم حق دخول الدور التاني ..
مطلوب اوائل الطلبه في المواد كلها ..
واوائل الطلبه في كل ماده ...
مطلوب كشوف بالناجحين ...
وكشوف اخرى بطلاب الدور التاني
.. وصفحه للاحصائيات .. فيها عدد الناجحين .. عدد المقيدين
وبعض الاحصائيات الاخرى

ادعو الله ان اكون قد وفقت في الشرح




look/images/icons/i1.gif موضوع للمدرسين
  22-09-2017 11:35 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
الموضوع بهذا الشكل في وجهة نظري مجرد حشو .. ولا استفادة منه على الإطلاق
أختى الكريمة أقترح عليكي أن تبدأي في تصميم شيت كنترول بطريقة بسيطة بحيث تكون البيانات الأساسية كلها في ورقة عمل واحدة وبعدها يمكنك فعل ما تشائين من أفكار وتقارير وخلافه




look/images/icons/i1.gif موضوع للمدرسين
  22-09-2017 11:41 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس :
تاريخ الميلاد : 4-2-1999
الدعوات : 1
قوة السمعة : 196
الاعجاب : 0
attachاختزال الصفحات.rar
مرفق في هذه المشاركه ملف به ال4 صفحات في صفحه واحده
وعليك وضع الكود المناسب ليأتي بكل اعمده على حده
والمرفق سيكون به التوضيح
==

ثانيا : توجد معادله لجعل البرنامج يسع الصفوف ال5 ..
في
صفحه بيانات المدرسه
ثالثا : يوجد معادله بناء على الصف ستحدد الدرجه
وستجعل الدرجه صفر في حاله عدم وجود تدريس الماده لصف من الصفوف
====
وكده يبقى اختزلنا الصفحات
واختزلنا ال5 برامج في برنامج واحد
يوجد بعض التنسيقات صعب عليا ان ازيلها لجمالها ان اردت ازالة التنسيقات .. عادي

رابعا : تركت بجوار الاعمده المطلوبه
عده اعمده فاضيه لاضافة اي زيادات في اي نوع من انواع التعليم
attachاختزال الصفحات.rar
 
 
  اختزال الصفحات.rar   تحميل rar مرات التحميل :(61)
الحجم :(199.426) KB





اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 3 < 1 2 3 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
العضو و الموضوع المتميز حسين الحمادي
9 603 حسين الحمادي
لا استطيع كتابة موضوع أبو عبد الرحمن
4 11 Yasser Elaraby
طور فكرك البرمجي (موضوع ممتد وتفاعلي) YasserKhalil
3 283 YasserKhalil
المساعدة في موضوع دمج المراسلات مع جدول بيانات اكسل oilman852
3 223 YasserKhalil
كورس كامل مجاني لتعلم الـ VBA بالأمثلة العملية والتطبيقية (موضوع حصري) YasserKhalil
176 28282 YasserKhalil

الكلمات الدلالية
موضوع ، للمدرسين ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 04:25 PM