مطلوب كود اصغر قيمة لنطاق متغير

[طالب مدرسة أوفيسنا]

السلام عليكم

كما في العنوان مطلوب كود اصغر قيمة لنطاق متغير

 

مرفق الملف

 اصغر قيمة.rar

[خالد الرشيدى]

اخى الكريم يمكنك استخدام الكود التالى

فقط ضعة فى الخلية C2 وقم بالسحب

=IF(B2>0;MIN(INDIRECT("A"&ROW()+1&":A"&COUNT(A1:A500)));"")

تقبل تحياتى

[ياسر خليل أبو البراء]

أخي الحبيب خالد

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

نسيت تثبت النطاق الخاص بالعد

=IF(B2>0,MIN(INDIRECT("A"&ROW()+1&":A"&COUNT($A$1:$A$500))),"")

 

جرب الكود التالي عله يفي بالغرض

Sub ExtractMinNumbers()
    Dim Cell As Range
    For Each Cell In Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
        If Not IsEmpty(Cell) Then Cell.Offset(, 1) = Application.WorksheetFunction.Min(Range(Cells(Cell.Row + 1, 1), Cells(Rows.Count, 1)))
    Next Cell
End Sub

 

[طالب مدرسة أوفيسنا]

الف شكر لكل من حاول المساعده

مشرفنا الغالي ياسر 

كود رائع ومحترف تم به المطلوب

[ياسر خليل أبو البراء]

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

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

تقبل تحياتي

[سليم حاصبيا]

بعد اذن اخي ياسر هناك خطأ ما في الكود

بحيث اذا ادرجت عدداً سالباً فان الكود لا يعمل بطرقة سليمة

تم التعديل قليلاً 

ارجو ان يكون المطلوب

اصغر قيمة معدل.zip

[ياسر خليل أبو البراء]

أخي الحبيب سليم

مشكور على إثراءك للموضوع ..

أعتقد أن فهمك للموضوع مختلف ..النتائج على ما أعتقد وعلى ما قمت بعمله أنا والأخ خالد صحيحة

جرب المعادلة

=IF(B2>0,MIN(INDIRECT("A"&ROW()+1&":A"&COUNT($A$1:$A$500))),"")

ستجد أنها نفس النتائج للكود المقدم ..

العمل يكون على النطاق بالكامل بدءاً من الصف التالي للصف الحالي وحتى آخر صف

تقبل تحياتي

[سليم حاصبيا]

يبدو ان فهمت المطلوب بطريقة مختلفة

لكن لم يذهب العمل سدى فقد تم ادراج كود لحساب الحد الادنى لكل مجموعة من الصفوف

تحياتي