جمع خلال مدة زمنية معينة

[zizo747]

أرجوا إيجاد الحل المناسب

يقول الامام الشافعي رحمه الله::

تعلم فليس المرء يولد عالـمــا ... وليس أخو علم كمن هو جاهـل
وإن كبير القوم لا علم عـنـده ... صغير إذا التفت عليه الجحافل
وإن صغير القوم إن كان عالما ... كبير إذا ردت إليه المحـافـل

test.zip

[احمد السيد سليمان]

شاهد المرفق قد يكون هذا هو المطلوب

test.rar

[zizo747]

ألف شكر لك أخي الكريم و زادك الله علما

حلك هو تماما ما أريد

[Eng_A_Shawky]

بارك الله فيك وجزيت كل خير

[salehamr]

أخي ماذا لو كان المدى نهايته مقترنة بآخر غير فارغة وليس على هذا النحو $A$19:$A$200 أي يعتمد على الخلايا التي تحتوي بيانات فقط حيث يمكن الإضافة أو الحذف من القائمة المطبق عليها الدالة ؟

SUMPRODUCT(($A$19:$A$200>=$B2)*($A$19:$A$200<=$C2)*(D$19:D$200))

[احمد السيد سليمان]

ارجو مزيد من الايضاح

[salehamr]

جزاك الله خيراً على سعة صدرك

أخي في الدالة أدناه التي وردت في مثالكم المرفق المدى محصور من A$19:$A$200 أي إلى الخلية A200 فقط لا تعمل إلى ما بعد ذلك

المطلوب أريد أن يكون المدى محدد بآ خر خلية بها بيانات في العمود A أي غير محددة

( يمكن قبل أو بعد الخلية A200 )

SUMPRODUCT(($A$19:$A$200>=$B2)*($A$19:$A$200<=$C2)*(D$19:D$200))

ولكم منا تحية ودعاء .

[احمد السيد سليمان]

يمكن اخى تغير نهاية المدى الى اكثر من 200 وليكن مثلا 20000 وذلك حسب حجم البيانات التى تستخدمها

" التجميع مرتبط بالمدى وليس بحجم البيانات اذا كانت اقل من او اكثر من 200 "

كما نرجو من الاخوة الاعضاء التعديل على الكود ليعمل على مدى غير محدد يزيد وينقص حسب حجم البيانات

تم تعديل مارس 23, 2008 بواسطه hofn

[salehamr]

إلى الزملاء الأكارم خبراء ومشرفين للآن لا إجابة بحيث تعمل الدالة :

على مدى غير محدد يزيد وينقص حسب حجم البيانات

وين النشامى ؟؟؟

مع شكري وتقديري وإحترامي للجميع بلا حدود

[احمد السيد سليمان]

اليك اخى موضوع قد يكون مفيد

http://www.officena.net/ib/index.php?showt...02&hl=المدى

تم تعديل مارس 24, 2008 بواسطه hofn

[salehamr]

عملت الكود على النحو التالي :

Dim ER As Integer

Dim Mycell As Integer

Dim myRng1 As Range

Dim myRng2 As Range

ER = Sheets("sheet1").Cells(Rows.Count, "E").End(xlUp).Row

Range("P1").Value = ER

Mycell = [P1]

Set myRng1 = Range("$E$15:$E" & Mycel)

Set myRng2 = Range("$H$15:$H" & Mycell)

Range("E11").Select

ActiveCell.FormulaR1C1 = "=SUMPRODUCT(((myRng1)<>"""")*((myRng2)<>0))"

وكانت النتيجة #NAME?

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

ولكم الشكر