احمد بدره

جرب هذا OFFICE.xls

طالما الخلية b26 تكون ناتج جمع b4 : b25 فيجب استخدام عملية الجمع في الخلايا المجاورة c4:c25 وهكذا لاحظ مجموع الخلايا من g4:g25 يكون مساويًا مجموع الخلايا b26:g26

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

بعد إذن الأستاذ / مهندس الإكسيل المعادلة هذه والسحب نزولاً تفي الغرض =IF(AND(A1="غ";B1="غ";C1="غ");"غ";IF(SUM(A1:C1)=0;"صفر";SUM(A1:C1))) أو تبع إعدادات جهازك =IF(AND(A1="غ",B1="غ",C1="غ"),"غ",IF(SUM(A1:C1)=0,"صفر",SUM(A1:C1))) ولا داعي لرفع الملف مضغوط طالما حجمه صغير جمع الغياب.xls

جرب هذا لعله يفي الغرض العلامات العشرية.xlsx

ولك بمثل ما دعوت - جرب هذا الملف المراد اصلاحة.xlsb

تم حذف Sheets("login").Select وتم إضافة Sheets("login").Visible = 1 Sheets("login").Activate في بداية الكود وتم لإضافة Sheets("login").Visible = 2 في نهاية الكود لأن Sheets("login") يجب أن يكون مرئي عند عمل الكود وتم إخفاء مرة أخرى بعد تشغيل الكود جرب هذا ربما يفي الغرض الملف المراد اصلاحة.xlsb

تسلم الأنامل أستانا الفاضل بارك الله فيك جعله الله في ميزان حسناتك

يجب نوع الخط Wingdings 2 لهاتين العلامتين فقط لإدراج علامة صح اضغط مفتاحي shift+p ولإدراج علامة × اضغط مفتاحي shift+o أو ممكن من قائمة إدراج اختر رمز ومن المربع الحواري اختر رموز ثم اختر نوع الخط Wingdings 2 واختر الشكل رقم 80 لإدراج علامة صح والشكل رقم 79 لإدراج علامة ×

بعد إذن أستاذنا الجليل سليم حاصبيا لإثراء الموضوع أرى أن المعادلة في العمود A4 والسحب يسارًا ونزولا حيث أنه لابد من تقريب الناتج لأقرب عدد صحيح فيحتاج الدالة ROUNDUP لأن الناتج يجب أن يكون يكون في خلية واحدة وليس أكثر أما الدالة التوزيع تأتي بالناتج أحيانا في خليتين متجاورتين حتى لو استخدم الدالة ROUNDUP =IF(ROUNDUP(SUM(C4:Z4)/6;0)=AA$3;AA$3;"") المصنف1.xlsb

يمكن أن يكون المطلوب المصنف1.xlsb

ألف مبروك وبالتوفيق دائمًا بإذن الله

الملف لا يفتح

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

جرب هذا تغير التاريخ.xls