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

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

قام بنشر
15 ساعات مضت, محمود_الشريف said:

إخوانى فى الله

وقد طرحت هذا الموضوع بمنتدى أجنبى للتوصل إلى كيفية تقريب الآراء والأفكار 

وسبحان الله 

وجدت تفاعل قوى و بالفعل وصلنا إلى فكرة هامة

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

جزاك الله خيرا ..  من فضلك ضع ملفا به هذه الفكره ليراها الجميع والتعليق عليها

الاخ مجدي شكرا لشرحك لموضوع خاص بالعلامه عبد الله باقشير ... امد الله في عمره

 

قام بنشر

الاخ ناصر سعيد

شكرا لك

وبالمناسبة بحثت كتيرا الى ان توصلت لملف السرى هذا وهو افضل ملف للسرى

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

وقد نوهت بإسمه فى الصفحة الثانية

رزنامة نتيجة بداخل الفورم الدرس الثالث والعشرون

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

https://www.officena.net/ib/topic/42121-فورم-للتقويم-الميلادي-والهجري-لادراج-التاريخ-في-الخلية-النشطة/

كما نوهت فى الصفحة الاولى

احب ان اشكر كل الزملاء بالمنتدى على مجهودهم الذى استفدت منه

وان شاء الله ساستعين فى الشرح القادم  بمجهودهم مع بعض التعديلات

وذلك لشرح الطرق المتعددة للفورم للاستفادة منها

وبباقى الزملاء وبالمنتدى وذكرت بعض الاسماء قبل الفيديو الخاص بالفورم

 

 

 

قام بنشر
في ١٢‏/٢‏/٢٠١٧ at 17:07, محمود_الشريف said:

بالرغم أنى ذكرت فى بداية موضوعى 

 

أن هناك منتديات أخرى (( أجنبية )) بها تعاون يفوق الوصف والكل يؤمن بالهدف ويسعون لتحقيقه دون الدخول فى أحاديث جانبيه لا تنفع ولا يأتى منها نتيجة فعاله تخدم الهدف

وقد طرحت هذا الموضوع بمنتدى أجنبى للتوصل إلى كيفية تقريب الآراء والأفكار  

وسبحان الله 

وجدت تفاعل قوى و بالفعل وصلنا إلى فكرة هامة سأنقلها لكم وهى :-

((  تجميع الأفكار داخل ملف ))

 1 - تسجل فيه شرح لكل المعادلات المستخدمة فى هذا المجال

2 - جميع الأكواد التى ستسجل داخل محفظة  بها شرح واف لكيفية إستخدامها

أما فيما يختص بشكل الجداول نظرا لأنهم لا يستخدمون تلك الملفات الضخمة لأنهم يعرفون جيدا

أن الأكسل لا يصلح لقواعد البيانات ، يؤمنون أن كل يوم يحدث تطورا فى العلم مع معرفتهم أن هناك إصدارات للأوفيس لا تعمل عليها جميع المعادلات

بخلاف أنهم يعرفون تعدد إمكانيات الأجهزة المستخدمة (( الكمبيوتر ))

فتوصلوا إلى أنه لابد من تقسيم هذا الملف ، لتقليل حجم الملف حتى يكون أداؤه أكثر دقة وسرعة

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

وأعتذر عن الإطالة عليكم 

شاكرا لكم حسن تعاونكم وتجاوبكم 

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

هذه هي الفكره المهم ان نبدا

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

مشاركه ايجابيه وليست كلاميه

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

 

 

قام بنشر

مرفق عدد 3 ملف بهم عده أفكار سبق وأن تعلمتها من أساتذتى بهذا المنتدى 

الأول : الشهادات بعده طرق و أرقام الجلوس  ( تم التطبيق على ملف الأستاذ // محمد الدسوقى )

الثاني : الأوائل الفصلين الدراسين ، وحسب كل مادة ( تم التطبيق على ملف الأستاذة // سماح )

الثالث : عرض عدد ( 4 ) شيت فى شيت واحد ( رصد تفصيلي ، رصد بالدرجات ، رصد بالتقديرات ، رصد بالدرجات والتقديرات )

All Certificates print_ GLOSE _By _MZMELSHRIEF.rar

THE FIRST ST.rar

عرض 4 شيت فى شيت واحد.rar

  • Like 1
قام بنشر (معدل)
في ٦‏/٢‏/٢٠١٧ at 09:24, ناصر سعيد said:

في صفحة بيانات المدرسه نختار الصف المراد التعامل معه مثلا الصف الاول

او الصف الثاني او الصف الثالث وهكذا

المطلوب : عندما اختار صف تتلون الصفحه الرئيسيه + صفحة الفصل الاول +صفحة الفصل الثاني بلون

هذا اللون يختلف باختلاف الصف المختار

طبعا مع ملحوظة ترك الجزء الخاص باليوم  والتاريخ حتى لاتطمس

بالتنسيق الشرطي او بالكود .. عايزين حل

فمن لها جزاه الله خيرا ؟

 

 

بدايه مشروع 6.rar

تم تعديل بواسطه ناصر سعيد
التنسيق
  • Like 1
قام بنشر

لو تمت بالتنسيق الشرطي لم تنفغ مع اكسيل 2003 لان به 3 شروط للتنسيق فقط 

وهنا محتاجين 5 شروط  . ايه الحل يا اهل الحل ؟

قام بنشر

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

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
'======================
Sub رصد_أعمال_ترم1()
'هذه الأكواد الثلاثة التالية تعمل على تسريع تنفيذ الأوامر
 Sheets("رصد الدرجات  ").Select
kh_ColumnHidden "U:AD"
End Sub

تم اختزال 4 صفحات في صفحه  واحده بفضل الله

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

 

كود لاظهار اعمده محددة 1.rar

الاستاذه الكرام ارجو تمكين الزر رصد على سري1 ورصد على الجلوس

==========

سري 1 معناها

معناها ظهور نفس الاعمده المختاره بالكود + المسلسل وسري1

اما رصد على الجلوس

معناها ظهور نفس الاعمده المختاره بالكود + المسلسل والاسم ورقم الجلوس

قام بنشر

الاستاذ المحترم محمود الشريف  .. جزاك الله كل الخير  ..
وبعد
برنامج الكنترول للمدارس  : هو عباره عن برنامج به صفحات لادخال بيانات وصفحات لمخرجات هذه البيانات المدخله
ثانيا : ماهي صفحات الادخال ؟
صفحه لبيانات المدرسه .... فيها اسم المدرسه ..الاداره التابعه لها .. اسم مدير المدرسه .. اسم رئيس شئون الطلبه .. اسم رئيس الكنترول مجرد اسماء
الصفحه التانيه : من صفحات الادخال هي بيانات الطلبه من اسم الطالب .. تاريخ ميلاده .. نوع الطالب ( ذكر او أنثى ) .. حاله قيده (ناجح ام معيد )  .. الديانه
ثالثا :  الصفحتين السابقتين من بيانات المدرسه وبيانات الطلبه والحمد لله تمت
نبدأ في رصد الدرجات وعشان نفهم اليه رصد الدرجات ودرجات ايه ؟
للطالب امتحانين الامتحان الاول في نصف العام وامتحان اخر العام 
وكل امتحان منهم له درجات اعمال سنه او انجاز او تقويم مسميات مختلف لحاجه واحده
اذن مطلوب 4 صفحات لادخال درجات الطلاب منهم عدد2 صفحه لاعمال السنه ..
واحده في نصف العام وايضا مثلها في اخر العام
وعدد 2 صفحه لدرجات الامتحانين ( امتحان نصف العام و امتحان اخر العام )
كده المدخلات تمت بنجاح
=====
خلاصه ماسبق ": مطلوب 6 صفحات
منهم 2 واحدة لبيانات المدرسه والتانيه بيانات الطلبه
وعدد 2 صفحةواحده لاعمال السنه في نصف العام والتانيه اعمال السنه لاخر العام
وعدد 2 صفحه واحده لاختبار نصف العام والتانيه لاختبار اخر العام   ....
.
ادعو الله ان اكون وفقت في هذا الجزء من شرح آليه العمل الكنترول

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

 

سؤال : هل يمكن اختزال الصفحات ال6 الى اقل من ذلك ؟
نعم : لماذا ؟
لان عدد اعمدة الصفحات ال المطلوبه 6
 اقل من عدد اعمده الصفحه الواحده

الخلاصه : يمكن في صفحه واحده ان تجمع الصفحات ال6 بكود يظهر اعمده معينه مطلوبه ويخفي الاخرين

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

 

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

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


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

 

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

ناتي الى مرحله الطلاب الذين لهم حق دخول الدور التاني
 هايدخلو امتحان الدور التاني ( بتوع الملاحق )

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

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

 

هذه الصفحات محتاجه غلاف فورمه بها ازرار توصلنا للصفحات المختلفه
تم بحمد الله وتوفيقه الشرح
ومستعد ان شاء الله لاجابه اي سؤال
والحمد لله

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

 

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

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

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

مطلوب فورم .. يا أهل القمم

قام بنشر
في ١‏/٢‏/٢٠١٧ at 19:22, ناصر سعيد said:

جزاك الله خيرا اخي الكريم الاستاذ محمود الشريف

بالنسبه لتخفيف حجم الملف

لو نجحنا وان شاء الله سننجح في وضع معادله في خليه الدرجه نقول فيها لو الخليه ... مكتوب بها الصف الاول او الثاني او الثالت ضع درجه 60 اما غير ذلك فاكتبها 70

تبقى روعه في الحاله دي جعلت برنامج  واحد ينفع لجميع الصفوف  ... ما رأيكم دام فضلكم ؟

=IF(OR('بيانات المدرسة'!$B$12=الصف الاول;'بيانات المدرسة'!$B$12=الصف التاني;'بيانات المدرسة'!$B$12=الصف الثالث);70;60)

 

قام بنشر

الاخوة الزملاء

فورم للكنترول تحت الاعداد

الصفجة الرئيسية

uu_110.jpg

الفورم

uu_210.jpg

فكرة الفورم الاختيار من المرحلة الصف المطلوب بالتعليم داخل OptionButton

سيذهب الى الصفحة المطلوبة

يوجد زر لاظهار فورم ثان يختار منه المادة

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

 

 

 

 

  • Like 1
قام بنشر

اضافه كشوف اللجان .. ادعو الله ان تحوز اعجابكم بمعادلتين مختلفتين
وكود للطباعه راائع

'------------------------------
Sub PrintFrom_To_()
MsgBox "للحصول على طباعة كاملة يجب عدم ملامسة الماوس أو لوحة المفاتيح أثناء الطباعة"
Dim I As Integer
For I = Range("O8") To Range("P8") Step 2
If I <= Range("P8") Then
Range("D4") = I
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End If
Next I
Range("e5").Select
End Sub

معادلات استجلاب البيانات

=IF(COUNTIF('بيانات الطلبة'!$R$6:$R$2030;$D$4)<ROWS(B$9:B9);"";INDEX('بيانات الطلبة'!$E$6:$E$2030;100000-SUMPRODUCT(LARGE(('بيانات الطلبة'!$R$6:$R$2030=$D$4)*(100000-ROW('بيانات الطلبة'!$R$6:$R$2030));ROWS(B$9:B9)))-5))


=======
والمعادله الثانيه معادله صفيف  للمحترم بن عليه هي

=IF($B9="";"";INDEX(MyRng;SMALL(IF('بيانات الطلبة'!$R$7:$R$1000=$D$4;ROW($7:$1000)-6);$B9);4))

 

قام بنشر

الاخ ناصر سعيد

والاخوة الزملاء

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

حيث ان اغلب المدارس ليست شاملة لجميع المراحل

وهذه الصفجة الرئيسية بعد التعديل

oaa10.jpg

فورم دخول بالاسم ورقم سرى

y10.jpg

فورم للانتقال للورقة المطلوبة والبحث عن اسم الطالب

ou10.jpg

وجارى باقى العمل فى انتظار ردوكم نكمل والا

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information