أ / محمد صالح

لا يوجد حلقات مفقودة تم تعديل حل أستاذ سليم في نسب الخصم من أستاذ بن علية وهذا تعديل بداية ونهاية الخصم ويمكن استعمال دالة trunc أو round للحصول على عدد المنازل العشرية المطلوب في المبلغ إن شاء اللّه هو المطلوب بالتوفيق نسب شرائح الخصم.xlsx

أخي الكريم اعذرني طريقة تنظيم الملف لا تساعد في الوصول للمطلوب تحتاج أولا إلى استعمال تنسيق الوقت 24 لضبط مواعيد الفترة الثانية وكل المواعيد بعد 12 ظهرا لأنها مثلا تعتبر 12:45 أكبر من 1:00 وأقترح توفير عمودي موعد الحضور في الفترتين وكتابتهم في خليتين أعلى الجدول لأنهم ثابتان طوال الشهر بعد الحصول على مدة التأخير الصحيحة يمكن عمل الشروط الخاصة بالخصم عليها فيما يخصص دقائق التأخير وهذه معادلة مقترحة لحساب تأخير 1 وتأخير 2 بالتوفيق دوام ماهر الغيلي.xlsx

جرب حذف = التي قبل address أو إن شاء الله يفيدك هذا الموضوع المشابه بالتوفيق

أخي الكريم تركيبة الملف لا تسمح بعمل معادلة واحدة للجميع يتم سحبها أفقيا ورأسيا لذلك يتم تحديد عمود المنتج الخاص بالفرع واستعماله في المعادلة فمثلا المنتج الرابع في الفرع الثاني عموده j لذلك معادلة العدد =COUNTIFS(L:L,O15,J:J,"<>") ومعادلة المبلغ =SUMIFS(J:J,L:L,O15) بالتوفيق

الحلقة التكرارية تتوقف مع نهاية عدد كلمات المستند

جميعا بإذن الله هذا الشرط يعني أن الخلية غير فارغة

تفضل إن شاء اللّه يفيدك هذا المرفق EXAMPLE.xlsb

يمكنك استعمال هذه المعادلة لعدد العمليات في الخلية P15 =COUNTIFS(L:L,O15,B:B,"<>") واستعمال هذه في الخلية Q15 للحصول على قيمة العمليات =SUMIFS(B:B,L:L,O15) مع نسخ المعادلة لأسفل وبنفس الطريقة يمكنك تعديل المعادلتين للوصول للمنتج التالي بالتوفيق

عليكم السلام ورحمة الله وبركاته يفضل إرفاق مثال من الملف للعمل عليه وسيراعي الكود زيادة عدد الصفوف

جميعا بإذن الله تعالى

هذا الخطأ يظهر نتيجة إغلاق النموذج من زر الإغلاق والصواب حسب الكود كلك يمين على الزر الأيمن للساعة ولتعديل ذلك حتى ينتهي تنفيذ الكود مع الغلق من زر الغلق نقل آخر سطر من حدث UserForm_Initialize إلى حدث.UserForm_Activate مع إضافة هذا الحدث الخاص بزر الإغلاق Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) OK = False Me.Hide End Sub بالتوفيق

عليكم السلام و رحمة الله وبركاته كلك يمين على الحقل المراد تنسيقه ثم اختيار Toggle Field Codes تبديل رموز الحقول إضافة التنسيق قبل قوس الغلق ليصبح هكذا {MERGEFIELD FieldName \#0.0} حيث FieldName اسم الحقل المراد تنسيقه بالتوفيق

إذا تم تحويل الجدول إلى نطاق convert table to range من تبويب تصميم الجدول table design مع تغيير العمود E في هذا السطر Range("b2:h" & Cells(Rows.Count, "E").End(xlUp).Row).Copy إلى العمود B ستحصل على ما تريد بالتوفيق

مادام الأمر لا ينفذ على جميع ملفات الوورد والاكسل فربما يحتاج برنامج الأوفيس إلى عمل إصلاح repair من خلال ازالة البرامج uninstall programs في لوحة التحكم control panel ولكن تختار اصلاح وليس الغاء تثبيت بالتوفيق

يمكن استخدام For I = 1 to ActiveDocument.Words.count بالتوفيق

ربما يكون الحديث بصورة عامة خارج نطاق العمل

لتطبيق فكرة الحل على ملفك بعد هذا السطر If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) <> "" Then نضع سطر فك الحماية fo.UnProtect password:="mas" وقبل سطر else نضع سطر الحماية fo.Protect password:="mas" حيث mas هي كلمة المرور بالتوفيق

يمكنك الاستغناء عن باقي شيتات الشهور حيث أن المعادلة تجلب بيانات جمبع الشهور بعد كتابة تاريخ بداية الشهر المطلوب (أو أي تاريخ منه) في الخلية A1 بالتوفيق جلب بيانات الشهور.xlsx

بارك الله لك ونفع بك

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

جميعا بإذن الله

أحسن الله إليك

يبدو أن مسار الملف في قرص النظام C أعتقد إذا كان في غير قرص النظام لن تحتاج صلاحية التشغيل كمسئول

آمين ولك بالمثل ويزيد