جلال محمد

اخي الكريم : الشهابي السلام عليكم لقد قمت بعمل ملف الصف الثاني العلمي ... عل ضوء الملف السابق ولكن ..... عند وضع الدوال في الكود ... يوجد خطأ فأرجو ا من حضرتك مراجعة الملف .... وما هو الخطأ في الكود شكرا لك احصاء الصف الثاني العلمي.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

اخي ياسر جزاك الله خيرا علي هذا الشرح الجميل لي سؤال بعد اذنك لوكان بالملف بيانات بجوار العمود ( a , b ) واردنا تحريك كل البيانات عند الترتيب ... فكيف نقوم بتوسيع مجال ترتيب البيانات ؟

الاخوة الكرام اسف جدا اكتشفت الخطأ ..... في هذا الجزء والتصحيح بحث يالأحرف الأولي.rar

الاخوة الكرام السلام عليكم كود بحث بالأحرف الأولى والتصفية حسب البحث ( للأستاذ ياسر خليل ) من الأكواد الرائعة في عملية البحث وم مميزاته البحث يتم بالنصوص أو الأرقام ... ولكن به مشكلة عند اتمام عملية البحث يقوم الكود بحزف الدول التي تقع في نطاق البحث .... فما المشكلة ؟؟؟؟ المشكلة في الملف المرفق بحث يالأحرف الأولي.rar

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

اخي الكريم بن علية رمضان كريم جزاك الله خيرا ..... شكرا لك علي سرعة الاستجابة وسرعة الحل جفظك الله ..... وحفظ الله اهل اليمن

الإخوة الكرام السلام عليكم الكود المرفق في الملف لترحيل الطلبة المستجدين من ورقة الأول الي ورقة كشف 41 مستجدين ولكن يبدو اني لم ادخل المعطيات في الكود بشكل صحيح .... ويوجد خطأ .... وبالتالي لم يتم النرحيل فما الخطأ ؟؟؟؟ 41 مستحدين.rar

جزاك الله خيرا اخي جلال الجمال كود رائع ..... رحم الله أ : الحسامي

اخي الكريم ملفك به شيئ غريب لا يحتفظ بالتعديلات عموما اليك الملف مرة اخري العصف11.rar

اخي الكريم السلام عليكم اليك ما طلبت ..... هل هذا هو المطلوب ؟؟؟؟ رمضان كريم المصنف1.rar