أ / محمد صالح

بعد إذن جميع المشاركينفي هذا الموضوع الرائع لتحديد الأيام المفقودة يلزم تحديد تاريخ البداية Start Date وتاريخ النهاية End Date ليتم حصر الأيام الموجودة بين التاريخين وكذلك الأيام المفقودة وذلك كله بدلالة رقم الموظف Emp ID تكتب مرة واحدة وتحصل على تقرير لكل موظف ربما يكون هذا هو المطلوب بإذن الله تم جلب أصغر تاريخ للموظف ليكون تاريخ البداية وأكبر تاريخ ليكون تاريخ النهاية ويمكن استعمال أصغر تاريخ في العمود كله Min وأكبر تاريخ في العمود كله Max ويمكن كتابة التاريخين يدويا للحصول على بيانات هذه الفترة واستنتاج الأيام المفقودة بين التاريخين بمعادلة مصفوفات Array formula مطبقة على الخلايا j10:j40 بالتوفيق الأيام المفقودة بين تاريخين لكل موظف.xlsx

يمكنك استعمال هذا الكود على افتراض أن مربع النص اسمه textbox1 Private Sub TextBox1_Enter() TextBox1.Value = "" End Sub بالتوفيق

تمت معالجة هذا الأمر كثيرا في المنتدى ربما يفيدك هذا الرابط

حسب فهمي للمطلوب * لعرض أسماء الشيتات في القائمة يمكنك حذف هذا الكود من حدث إلغاء تفعيل Worksheet_Deactivate لشيت database Dim w As Worksheet UserForm1.Co1.Clear For Each w In ThisWorkbook.Worksheets UserForm1.Co1.AddItem w.Name Next w ووضعه في حدث تفعيل النموذج UserForm_Activate * ولفتح الشيت الذي يتم اختياره من القائمة نستعمل هذا الكود في حدث تغيير القائمة بالضغط دبل كلك عليها في النموذج ولصق السطر الأوسط من هذا الكود فقط Private Sub Co1_Change() Sheets(Co1.Value).Select End Sub بالتوفيق

حسب فهمي للمطلوب يمكنك استعمال هذه المعادلة في الخلية j17 في sheet1 =TRANSPOSE('2nd'!H19:O19)

بعد إذن جميع المشاركين إذا جربنا وضع الرقم 10 كدرجة رئيسية والرقم 90 و 300 كدرجات ثانوية سنتأكد من صحة المعادلتين في هذا الملف المرفق خالص الدعوات بالتوفيق الزاوية الأقرب.xlsx

نسخة أوفيس 2016 وكذلك 2019 وكذلك 365 جميعها رقم الإصدار الرسمي لها 16.0 ربما يفيدك هذا الرابط

تفضل أخي الكريم إن شاء الله يكون المطلوب mas_مدد الخدمة المسجلة بالتامينات.xls

ما شاء الله إبداع بارك الله لك صديقي العزيز رمضانكم مبارك

جميل جدا أخي الكريم @mohamed_omar ولكن الأستاذ صاحب السؤال رجاء توضيح القضية حيث أني أعمل بالترتبية والتعليم ولا علم لي بهذا الأمر

أخي الكريم صاحب الاستفسار تم حل مثل هذه المشاكل مرارا والحل بمنتهى البساطة ضع قبل الكود ActiveSheet.unprotect "your password" وذلك لإلغاء حماية الخلايا المحمية مع تغيير your password إلى كلمة مرور الحماية التي تستخدمها حاليا لقفل الخلايا وقبل نهاية الكود ضع ActiveSheet.protect "your password" وذلك لإعادة الحماية مرة أخرى مع ملاحظة كائن الشيت الذي يتم التعامل معه حاليا هو الشيت النشط activesheet

جزاكم الله كل خير وفقنا الله جميعا

بعد مراجعة الموضوع من أوله تبين أن هذه الدالة تفي بالغرض سواء في الأعمدة أو الصفوف لأن المستخدم يقدم لها نطاقا يمكن أن يكون صفا أو عمودا أو أكثر مثال لاستخدامها لجمع الأعمدة نكتب في الخلية i15 =CountShapes(I4:I14) مثال لاستخدامها لجمع الصفوف نكتب في الخلية v5 =CountShapes(A5:U5) بالتوفيق

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

للحصول على النتيجة الصحيحة يجب العد بنفس شروط الرسم مثلا رسمت الدوائر على الخلايا التي مجموعها أقل من 50 من 100 نستعمل معادلة countif وإذا كان العد بأكثر من شرط نستعمل countifs بالتوفيق

أقترح استخدام معادلة العد بنفس الشرط أو الشروط التي رسمت بها الدوائر وليس عد الدوائر نفسها بالتوفيق

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

معنى الرسالة يوجد برنامج يستخدم الحافظة وربما يكون هذا البرنامج وظيفة إضافية في المتصفح Browser Plugins أو وظيفة إضافية في اكسل add-in أو برنامج تم تثبيته في الويندوز لذا ينبغي حذف الأخير من كل نوع حتى تتوصل للسبب بالتوفيق

تم بفضل الله شكرا لاقتراحكم

أعتقد أن الحل المشار إليه لحجم الاسطوانة الرأسية وليست الأفقية بالنسبة للأفقية نصف القطر في الخلية A2 ارتفاع السائل في الخلية B2 طول الاسطوانة في الخلية C2 وهذه معادلة الحجم =C2*(ACOS((A2-B2)/A2)*A2^2-(A2-B2)*SQRT(2*A2*B2-B2^2)) بالتوفيق

أعتقد حتى الآن لم يتم كسر حماية الإصدار 25 لذا يمكنك استعمال إصدار أقدم

الحمد لله الذي بنعمته تتم الصالحات

يمكنك استعمال هذه المعادلة في التنسيق الشرطي على العمود B =a1<>b1 بالتوفيق

لا يوجد أي مشكلة تم التحويل بدون اي أخطاء D.zip

يفضل إرفاق ملفك وأمثلة من الملفات المراد تحويلها في مجلد xls لمعرفة مكان الخطأ