AbuuAhmed

لكنها في المثال مثبتة فكيف ستصبح Null؟! يمكن عملها كنوابت في الكود. هل تريد تخزين النتائج؟ أو وضع المعايير في جدول منفصل واستدعاؤها عند المعالجة؟.

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

مبارك أخي @Moosak انضمامك إلى فريق العمل وعساك ع القوة.

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

فات علي أن أفحص النتائج وأنا في طور سجل جديد. أعتقد الآن كل الأمور تحت السيطرة. مع ملاحظة أني بدلت أسماء الصناديق. Calculate_astalt_02.accdb

ما عليك زود عزيزي 🙂

أرجو ملاحظة أن أصلحت خطأ كتابي في كلمة أنثى.

أنا قمت بتنظيم الأحداث حتى تسهل علي مراجعة المطوب .. أرجو أن لا تبدل في الأكواد حاليا. وتم التعديل في الجدول كذلك بتبديل أنواع الحقول. الآن أعد صياغة مطالبك الحسابية من جديد وبشكل مفصل. بانتظارك Calculate_astalt_01.accdb

جرب هذه المعادلة: =IF(C24="أنثى",IF(C23="ناجح","قد نجحت","لها برنامج علاجي"),IF(C23="ناجح","قد نجح","له برنامج علاجي")) & " في امتحان الصف"

نبارك لكم الترقية ونتمنى لكم التقدم والنجاح المستمرين .. وعساكم ع القوة.

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

حسب فهمي: قراءة اليومية_01.xlsx

تم التعديل على أكوادي والتصرف بأكوادكم المضافة أخيرا.

لكن هذا المرفق ليس الأخير!! ودائما احرص على تقديم مثال متكامل منذ البداية ، الأكواد تكتب بعد دراسة المثال وحيثياته ، هكذا المثال تبدلت ملامحه السابقة. حتى مناداة كود البحث تبديله يحتاج إلى جهد إضافي فالمناداة من الزر يختلف عنه في حدث عند التحديث فالأمر ليس تبديل مسميات فقط. طبعا أنا يعز علي أن أعمل عملا ويذهب فيه جهدي في مهب الريح ، فإذا أردت التعديل فارفع النسخة الأخيرة رقم 4 وليست 3.

سأحاول الليلة إن شاء الله فإن وفقت في الحل رفعته لك. مع المعذرة .. حققت لك جزء من طلبك واسمح لي بالتوقف عند هذه النقطة موفقين. التكرار في اللجان_04.xlsm

مقارنة بين Int و Fix مع التاريخ والوقت: Sub FixDateTest() Dim DateTest As String DateTest = "1899/12/29 10:25:30" Debug.Print CDate(DateTest), Fix(CDate(DateTest)), Int(CDate(DateTest)) DateTest = "1899/12/31 10:25:30" Debug.Print CDate(DateTest), Fix(CDate(DateTest)), Int(CDate(DateTest)) End Sub والنتائج كالتالي: 29/12/1899 10:25:30 29/12/1899 28/12/1899 31/12/1899 10:25:30 31/12/1899 31/12/1899

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

ما تصلح يا عزيزي ، وتستطيع تجربتهما مع تاريخ ووقت قيمتها الرقمية بالسالب وكذلك التي قيمتها بالموجب وسترى الفرق.

ويمكن استحصال التاريخ فقط باستخدام دالة Fix أيضا.

أنصح بتعديل بيانات الجدول أولا ثم اختبار الحل من جديد وأخمن أن تاريخ النهاية هو الخاطئ ويحتاج إلى زيادة شهر ، طبعا يبقى احتمال خطأ تاريخ البداية قائم. الخلاصة يجب تصحيح أحد التاريخين إما البداية بإنقاصها أو النهاية بزيادتها شهرا واحدا.

بعد التعديل حسب طلبك. التكرار في اللجان_03.xlsm

سؤال هامشي شاهدت هناك عدم تواصل في المدد وبفاصل شهر كالتالي: من 8/2020 الى 3/2022 من 4/2022 الى 1/2023 من 2/2023 الى 8/2023 يفترض أن يكون بداية الفترة التالية هي نفسها نهاية الفترة السابقة وإلا يعتبر هناك شهر مفقود ، (إلا إذا كانت مقصودة). المهم في الأمر أنا رفيق الكل.

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

الأمور غير واضحة ، ويبدو لي أن بيانات الجدول فيها تكرار ، على كل حتى البيانات في الجدول غير مفهومة. كما أن الدالة تستقبل متغيرين غير مستعملين Q و actv ولا دور لهما في الدالة. وقد قمت بفلترة الجدول بعدة أشكال ولكن مع كل النتائج أرى أن هناك سجلات متشابهة!! الصورة غير واضحة. - إما أن توضح أكثر وبتفاصيل واضحة جدا أو ترفع نسخة أخرى تحتوي على نموذج لمناداة الدالة وتوضيح أين تود إضافة نتائجها.

الحل كما فهمت 🙂 النسبة المئوية_01.xlsx