جلال محمد

شكرا لك علي مرورك الكريم أستاذ مجدي

شكرا لك اخي الكريم ... جلال الجمال

اخي الكريم طلعت جزاك الله خيرا ... وشكرا جزيلا علي كلماتك الرقيقة

الاخوة الكرم السلام عليكم بمناسبة قرب قدوم عام ميلادي جديد ( اعادة الله علينا وعليكم وعلي امة سيدنا محمد بالخير واليمن والبركات ) اقدم لكم تقويم ميلادي شهري ( وهو من النمازج الجاهزة في برنامج الاكسل 2010 ) وهذا التقويم شهري وبه عمل فني من انتاج طلابي في المدرسة وهم في المرحله الثانوية ... يمكنك بكل سهولة تغير الصورة ووضع الصور الشخصية الخاصه بك وهذا التقويم يصلح لعمل تقويم مكتبي ... وان شاء الله سوف أقوم برفع صورة العمل بعد الانتهاء منه .... لكبر حجم الملف تم رفعة علي موقع خارجي ارجو ان ينال اعجابكم تقويم 2017 ... عام سعيد ان شاء الله

اخي الكريم ياسر جزاك الله خيرا علي هذا العمل الرائع الجميع يشهد لك بالاخلاص والعمل لوجه الله .... وهذة الآداه ما توفرة من وقت لا يساوي ابدا القيمة المدية المطلوبة وهذا حقق فانت فدمت الكثير والكثير .... ولي سؤال .. هل هذة الآداه تنطبق ايضا علي جلب بيانات المعلمين من موقع الوزارة وشكرا لك

الاخوة الكرام السلام عليكم اليكم احصاء الصف الثاني الأدبي احصاء الصف الثاني الأدبي.rar

اخي زياد ارفق ملف لكي يتمكن الجميع من المساعدة

اخي الكريم : ياسر خليل ابو البراء السلام عليكم اسف جدا علي التأخير ..... ولتعطيل الموقع انا لوقمت كل يوم بعمل مشاركة لافادة اعضاء الموقع ...... سوف اظل مدان ولم افيهم حقهم .... من كثرة استفادتي من هذا الموقع واهلة الكرام واليك الملف ورابط الموضوع وهو للأستاذ عبد الرحمن الحمصي أسرع طريقة لتحويل أي معادلة إلى كود VBA محول المعادلات السريع.rar

اخي الكريم : ياسر ابو البراء السلام عليكم جزاك الله خيرا قراتها جيدا ونفذتها جيدا وذلك في بداية الموضوع ولكن بعد تطور الموضوع واستخدام دالة الأستاذ ( الشهابي ) قمت باستخدام ملف يقوم بتحويل الدوال لكي تعمل في الأكواد باسم ( محول الدوال السريع ) فغابت عني هذة النقطة ولم اراجع الدالة بعد تحويلها شكرا لك علي هذه الملاحظه الجميلة ...... التكرار يعلم ..... الشطار وشكرا لك علي اهتمامك بالموضوع واليكم الملف احصاء الصف الثاني العلمي.rar

اخي الكريم : الشهابي السلام عليكم لقد قمت بعمل ملف الصف الثاني العلمي ... عل ضوء الملف السابق ولكن ..... عند وضع الدوال في الكود ... يوجد خطأ فأرجو ا من حضرتك مراجعة الملف .... وما هو الخطأ في الكود شكرا لك احصاء الصف الثاني العلمي.rar

اخي الكريم : الشهابي حفظك الله .... وحفظ اهل اليمن الابداع كلة في الفكرة .... انار الله بصيرتك شكرا لك .... فمهما شكرتك لن اوفيك حقق .... وان شاء الله اجرك عند الله عظيم

اخي الكريم الشهابي بسم الله ما شاء الله ..... اللهم بارك لك في جميع اعمالك .... اللهم اجعلها في موازين حسناتك ارجو المعزره في تأخري عن الرد وذلك لظروف طارئه لم تكن في الحسبان ( ونحمد الله عليها ) قمة السعادة والنجاح عندما يتحول الحلم الي حقيقة .... فكانت فكرة الإحصاء عن طريق الكود عبارة عن حلم .... ولآن تحقق هذا الحلم جزاك الله خيرا لك ولجميع اعضاء هذا المنتدي الرائع جاري فهم الكود وكيفية تطبيقة علي الصف الثاني بقسمية ( العلمي والأدبي ) ولنا لفاء اخر ان شاء الله

اخي الكريم الشهابي بسم الله ماشاء الله كده تمام .... جزاك الله خيرا .... النتائج 10/10 والاحصاء تمام .... الله ينور عليك وانا كملت الجزء الأخير من الاحصاء باقي تحويل هذة الدوال الي كود ..... وشكرا لك علي مجهودك العظيم .... جعلة الله في موازين حسناتك احصاء بالكود اخر تعديل.rar

اخي الكريم الشهابي فعلا اخي الكريم المواد ( الأحياء والكيمياء والفيزياء - وكذلك - الفيزياء والفلسفة والجغرافيا ) مرجع الدرجة الصغري عمودين فقط هما ( التحريري والدرجة الكلية ) ولا يوجد قيود اخي حول النجاح والرسوب شكرا لك علي مجهودك العظيم ..... جعلة الله في موازين حسناتك

اخي ابو عبد الباري شكرا جزيلا لك .... الشرح اوضح الكثير والكثير ... شكرا لك اخي الكريم الشهابي السلام عليكم أولا : شكرا جزيلا علي متابعتك للموضوع ... ولا يوجد بين الاخوان اعتزار ثانيا : الملف المرفق جمبل جدا واعتقد اننا كدنا نصل الي المطلوب لوحظ اثناء تجربة الملف عند وضع حرف ( غ ) تعمل الدالة بشكل جيد ... اما عند رسوب الطالب في اختبار الفصل الدراسي الثاني لا تعمل الدالة كما هو موضح بالملف المرفق في مادة اللغة العربية وبالتالي سوف نجعل مرجع للغياب عمود واحد وهو ( الفصل الدراسي الثاني ) اما مرجع الدرجة الصغري يكون عمودين وهما ( عمود اختبار الفصل الدراسي الثاني --- وعمود الدرجة الكلية ) كما موضح بالصورة المرفقة احصا بالكود (2).rar

اخي الكريم ابو عبدالبارى السلام عليكم أولا : جزاك الله خيرا علي مجهودك العظيم ... اللهم اجل اعمالك في موازين حسناتك ثانيا : الملف رائع ويعطي نتائج رائعة ومجهود تشكر علية لي طلب : هل من الممكن تحويل هذة الدوال الي كود وذلك لتخفيف حجم الملف كما بدأنا في مشاركة الأستاذ ياسر خليل كذلك الأستاذ الشهابي قدم مشاركة جميلة بها دالة مركبة ولكن لم افهمها جيدا وخصوصا الأرقام المجودة بالدالة فاذا كنت رئيتها فارجو من حضرتك شرحها =IF($B9="الحاسب الآلي";SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=L$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)))));IF(OR($B9="التاريخ";$B9="الفلسفة";$B9="الجغرافيا");SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=L$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1)))));SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=L$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1))))))) هذا جزء من الدالة ما دلالة الأرقام التي بالون الأحمر

اخي الكريم الشهابي اجمالي الدور الثاني فعلا مكرر هو هو ( دور ثاني ) احصا بالكود (1).rar

اخي الكريم الشهابي السلام عليكم اولا : اسف جدا لتأخر الرد وذلك لظروف خاصة منعتني عن متابعة الموضوع ثانيا : شكرا جزيلا علي الاهتمام بالموضوع والمشاركة الجميلة التي هونت الكثير للوصول الي المطلوب ان شاء الله ثالثا : الدالة المستخدمة رائعة جائت بالنتاج المرجوة .... يصعب عليا فهمها =IF($B9="الحاسب الآلي";SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=M$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)))));IF(OR($B9="التاريخ";$B9="الفلسفة";$B9="الجغرافيا");SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=M$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1)))));SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=M$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1))))))) ولي طلب من حضرتك .. عند وضع ( غ ) عند بعض الطلاب النتائج غير مضبوطه خصوصا ان الطالب الغائب وخصوصا ( في امتحان الفصل الدراسي الثاني ) يعتبر راسب في المادة شاهد الصورة

اخي الكريم ياسر ابو البراء شكرا جزيلا علي متابعتك للموضوع انا مشكلتي عدم ثبات عمود الغياب فمن الممكن ان يكون في عمود امتحان الفصل الأول .... او عمود امتحان الفصل الثاني فارجو من حضرتك اعطائي مثال لحصر الغياب لمادة واحدة

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

اخي ابو عبد الباري جزاك الله خيرا ..... فهذا فعلا مفتاح الحل ..... ولكن ...... هذا مرهق ويجعل الكود طويل جدا ..... فتخيل عدد المواد ( 16 مادة ) لحساب الغائب من الذكور .... ونفس الأمر يتكرر مع الاناث يعني محتاج نكرر الدالة ( 32 ) مرة في الكود لحساب الغائب فقط ... وطبعا لسه الناجح والدور الثان وباقي جدول الاحصاء . انا اردت في المشاركة السابقة ( ان نضع امر في الكود لعمل مقارنه للمواد في شيت ( total ) وما يماثلها في شيت ( احصاء بالكود ) وعند مطابقة المواد يوضع عدد الغائب في المادة التي يوجد بها ( غ ) فهذا لو تحقق اصبح الكود سهل وبسيط

اخي ابو عبد البارى : يارب تكون بخير همتك معانا الاخوة الكرام لقد اضفت جزء في الكود لعمل مقارنة بين الصفحة الرئيسية وصفحة الاحصاء في اسماء المواد في الجدولين ولكن ينقصة شيئ لم اتوصل اليه Sub dahmour() Dim Ws As Worksheet Dim Sh As Worksheet Dim LR As Long Dim L As String Set Ws = Sheets("Total") Set Sh = Sheets("احصاء بالكود") Application.ScreenUpdating = False 'متغير لمعرفة آخر صف فيه بيانات في ورقة العمل الأساسية LR = Ws.Range("C" & Rows.Count).End(xlUp).Row If L <> "" Then Ws.Range("Total").Cells(Rows.Count, 7).End(xlToRight).Column Sh.Range("احصاء بالكود").Cells(Rows.Count, 1).End(xlUp).Row For Each cell In Ws.Range("Total").Range("O7:BY" & Ws) For Each cell2 In Sh.Range("احصاء بالكود").Range("B9:B" & Sh) If cell.Value = cell2.Value Then With Sh.Range("C9:C24") .Formula = "=SUMPRODUCT(--(Total!$CJ$13:$CJ" & LR & "=""ذكر""))" .Value = .Value End With With Sh.Range("d9:d24") .Formula = "=SUMPRODUCT(--(Total!$CJ$13:$CJ" & LR & "=""انثى""))" .Value = .Value End With With Sh.Range("e9:e24") .Formula = "=SUM(C9,D9)" .Value = .Value End With With Sh.Range("f9:f24") .Formula = "=SUMPRODUCT(--(Total!N13:BX146=""غ"")*(Total!CJ13:CJ146=""ذكر""))" .Value = .Value End With With Sh.Range("g9:g24") .Formula = "=SUMPRODUCT(--(Total!N13:BX146=""غ"")*(Total!CJ13:CJ146=""انثى""))" .Value = .Value End With With Sh.Range("h9:h24") .Formula = "=SUM(f9,g9)" .Value = .Value End With With Sh.Range("i9:i24") .Formula = "=C9-F9" .Value = .Value End With With Sh.Range("j9:j24") .Formula = "=D9-G9" .Value = .Value End With With Sh.Range("k9:k24") .Formula = "=SUM(i9,j9)" .Value = .Value End With Application.ScreenUpdating = True MsgBox "Done...", 64 Exit For End If Next Next End If End Sub هذا هو الجزء المضاف If L <> "" Then Ws.Range("Total").Cells(Rows.Count, 7).End(xlToRight).Column Sh.Range("احصاء بالكود").Cells(Rows.Count, 1).End(xlUp).Row For Each cell In Ws.Range("Total").Range("O7:BY" & Ws) For Each cell2 In Sh.Range("احصاء بالكود").Range("B9:B" & Sh) If cell.Value = cell2.Value Then هذه الاضافة في الكود لم تأتي بجديد فهل ينقصها شيئ احصا بالكود3.rar

اخي الكريم : ياسر ابو البراء لقد قمت بالعمل علي الملف واليك ما قمت به ولقد وجت مشكله لم ادري هل هي من الدالة ام من الكود وهي عند حصر غياب البنات والبنين ( الغائب عندي ولد واحد وبنت واحدة في مادة الجغرافيا وقد ظهر الغائب في مادة اللغة العربية ) ... كذلك ظهر طالب غائب في مادة الانجليزي ولا يوجد غائب في الانجليزي فما الحل ؟ احصا بالكود2.rar

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

الإخوه الكرام السلام عليكم معظم الاحصائات غالبا ما تنفذ بالدوال ..... فهل ممكن عمل ذلك عن طريق الأكواد في الملف المرفق ؟ شاهد المرفق احصا بالكود.rar