اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

جرب هذا الكود يقوم باضافة حقل جديد بعد كل 30 صف ثم يضع المجاميع الخاصة بكل  30 صف للعمودين E & F   و يلون صطر المجموع الى الاصفر

Sub test()
For R = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 30
If R <> 1 Then
 Range("A" & R + 1 & ":E" & R + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 Range("E" & R + 1).Formula = "=SUM(E" & R - 29 & ":E" & R & ")"
 Range("F" & R + 1).Formula = "=SUM(F" & R - 29 & ":F" & R & ")"
 Range("A" & R + 1 & ":E" & R + 1).Interior.Color = 65535
End If
Next
End Sub
  • Like 1
قام بنشر

أخي العزيز شوقي ربيع ... اشكرك جدا على الاجابة ... اريد ان يقوم باضافة حقل المجموع بعد  حساب ثلاثين صف ما عدا الصفوف التي يكون فيها العمود E ,F  يساوي صفر مع التقدير

قام بنشر

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

قام بنشر

أخي العزيز / مهند الزيدي

وبعد إذن أستاذنا القدير ربيع المنتدى / شوقي ربيع حفظه الله 

هذا حل بالمعادلات بس في ورقة جديدة باستخدام أعمدة مساعدة تم تلوينها باللون الأحمر 

والفضل في تعلمي هذه الطريقة يعود لأستاذنا الكبير / أحمد يعقوب حفظه الله ورفع قدره 

إن شاء الله يلبي هذا طلبك

عمل مجموع إجمالي لكل 30 صف أوتماتيكيا.rar

قام بنشر

أخي العزيز / مهند الزيدي

ضع المعادلة التالية في الخلية (D3) واسحبه لليسار ثم للأسفل 

=IFERROR(SUMPRODUCT(--(أدوية!$AA$2:$AA$1000>=$B3)*(أدوية!$AA$2:$AA$1000<=$C3);(أدوية!E$2:E$1000));0)

بس لابد من وجود العمود المساعد في ورقة ( الأدوية ) 

عمل مجموع إجمالي لكل 30 صف أوتماتيكيا_2.rar

قام بنشر

أخي العزيز / مهند الزيدي

السبب هو سؤ فهم مني 

حيث اعتمدت الفراغ على العمود (C) و أنت تريده حسب العمودين (E) ,(F)

ولكنه ليس السبب الرئيسي في عدم جلب البيانات بشكل صحيح 

حيث وجدت خطأ في الصف (78) في العمودين  (E) ,(F

أولا : تم تعديل المعدلة حسب العمودين  (E) ,(F) وإضافة دالة (IFERROR) لتفادي الخطأ 

كم تم تصحيح الخطأ الموجود في الصف (78

استبدل المعادلة التالية بالمعادلة الموجودة في الخلية (AA2) واسحبها لأسفل 

=IFERROR(IF(OR(E2=0;F2=0);"";COUNT($AA$1:AA1)+1);"") 

وإن شاء الله تكون النتائج صحيحة 

قام بنشر

أخي العزيز / مهند الزيدي

حاولت بكل الطرق لتفادي الخطأ ولكن دون فائدة

فلابد إذا من تصحيح الخطأ في الصف (78) في العمودين  (E) ,(F

وإلا ستبقى النتائج غير صحيحة 

وهذا المرفق 

 

عمل مجموع إجمالي لكل 30 صف أوتماتيكيا_2_2.rar

قام بنشر

السلام عليكم ورحمة الله

 

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

 

جمعة مباركة لكل المسلمين...

 

أخوك بن علية

 

المرفق : نموذج3.rar

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information