نجوم المشاركات

وعليكم السلام ورحمة الله وبركاته اليك الملف واستبدله في مجلد جمع الفواتير الكود يتعامل مع اي عدد من الملفات امتدادها XLSM حسب ملفاتك المرفقه ويمكن تعديلها بالكود ان نغير الامنداد جرب الملف واعلمنى بالنتائج جمع.xlsm

شكرا جزيلا وربنا يبارك في حضرتك ويبارك في أخونا الكريم foksh

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

اسمحوا لي بوجهة نظر وتوجيه الأخ الكريم صاحب المشروع لديه خلفية برمجية لا بأس بها خاصة في التصميم والتنفيذ لذا بدأ اول مشاركة له بالاستشارة حول الجداول وتصميمها بطريقة صحيحة .. وهذا يحسب لجانبه .. فالاستشارة هي مشاركة الناس في عقولها ولكنه اغفل امرا مهما .. كان يجب الاشارة اليه في البداية وهو .. تحليل البيانات بدون تحليل البيانات سيكون المشروع كما اوضح الاستاذ @Foksh في البند الثاني .. سيكون هناك تغييرات مستمرة واستحداث جداول وحقول واحيانا في مثل هذه الحالة يتم اقحام ادوات في غير مكانها مما يسبب ضعف للبناء وتعثر في استخراج نتائج محددة في النهايات الا بطرق غير علمية وغير منهجية تحليل البيانات : هو دراسة طبيعة العمل على الأرض والورق واستيعاب جميع اطرافه .. لترجمته الكترونيا تحليل البيانات : يشمل 1- الاحاطة بجميع البيانات المدخلة والتي يجب ان ترصد في جداول 2- تصور او رسم صورة ذهنية لجميع المخرجات المطلوبة جميع ما ذكر اعلاه يتم تدوينه على الورق على هيئة نقاط او سيناريو بعدها يبدأ بناء الهيكل

السلام عليكم العملية تمت بنجاح 100 % تسلم جزيت خيرا

هههههه ذكرته فأتى

وعليكم السلام ورحمة الله وبركاته ارفق ملفك وابشر خيرا

هذا النموذج هو عرض فقط لعمل الدالة النموذج المقصود هو نموذج التحكم في الدرجات frm_materil في مرفقي الأخير وتحديدا في النموذج الفرعي frm_materil_Subform عند حدث ادخال الدرجة او حدث ادخال درجة الاعمال التي هي هنا هي النسبة المقررة من النظام قد كتبت تلميحا في النموذج حول هذا

وجزاكم مثله استاذ مجدى تم تحديث الملف يوم الخميس الموافق 10 - 04 - 2025

حال وصولي للكمبيوتر ان شاء الله في العمل سأقوم بالتطبيق على الملف وارفاقه

وعليكم السلام ورحمة الله وبركاته جرب الكود وان كان يحتاج الى تعديل اعلمنى بالامر __نسخة aaaa_.xlsb

انتهيت الى هذا بفضل الله .. ثم بمشاركتكم تولدت الأفكار والحلول Database29.rar

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

وعليكم السلام ورحمة الله وبركاته جرب التعديل التالي في الخلايا الصفراء تعديل كود تنقيط.xlsm

وعليكم السلام ورحمة الله وبركانه وكل العام والجميع بخير لكافة اعضاء المنتدى اعتقد طلبك معادلة جزئيًا نعم، ولكن حذف الصف الأصلي تلقائيًا من شيت data → هذا غير ممكن بالمعادلات (حسب علمي والله اعلم ) اما عن طريق الكود فممكن الملف المرفق به كود يعمل تلقائيا كلما وجد كلمة معاش في شيت data في العمود H يقوم بترحيلها تلقائيا الى شيت معاشات مع حذفها من الشيت الاصلى وكذلك الترتيب التلقائي والتسلسل التلقائي في العمود A جرب تغيير تاريخ ميلاد اي اسم ليحال على المعاش ولاحظ عمل الكود ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات.xlsb

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

أخي الفاضل محي الدين أبو البشر بارك الله فيك على مرورك العطر بالموضوع إليك التعديل البسيط ..تم وضع جملة IF لاختبار إذا ما كانت القيمة فراغ ام لا ..قبل تخزينها في القاموس Sub GetUniqueValues() Dim myData As Variant, Temp As Variant Dim Obj As Object, I As Long Set Obj = CreateObject("Scripting.Dictionary") myData = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value For I = 1 To UBound(myData) If Not IsEmpty(myData(I, 1)) Then Obj(myData(I, 1) & "") = "" End If Next I Temp = Obj.Keys Range("E1").Resize(Obj.Count, 1) = Application.Transpose(Temp) End Sub تقبل تحياتي