اذهب الى هذا العنوان حيث هناك مشاركة بهذا الموضوغ
http://www.officena.net/ib/topic/65763-%D8%A7%D9%84%D9%82%D8%A7%D8%A6%D9%85%D8%A9-%D8%A7%D9%84%D9%85%D9%86%D8%B3%D8%AF%D9%84%D8%A9/#comment-427853
يمكن استعمال هذه المعادلة
استعمل ( Ctrl+Shift+Enter) و ليس Enter فقط
=INDEX(Table1[السعر],MAX(--(Table1[الصنف]<>"")*--(Table1[الصنف]=$K$12)*ROW(Table1[الصنف])*--($B$5:$B$28="مشتريات"))-5)
يجب ان يوضع الكود بهذه الصيغة
Sub set_active_sheet()
Dim sa As Worksheet
If ActiveSheet.Name = "sheet1" Then
Set sa = Sheets("sheet1")
Else
Set sa = Sheets("sheet2")
End If
sa.Activate
lr = ActiveSheet.Cells(Rows.Count, 1).End(3).Row
End Sub
استعمل هذه المعادلة للتنسيق الشرطي بعد ان تحدد الاعمدة المطلوبة
مع اختيار اللون المناسب للحد الا قصى و تكون الخلية H4 هي النشطة (استبدل العدد 42 باخر صف)
لتحديد اصغر قيمة غير الصفر استعمل المعادلة الاولى (Ctrl+Shift+enter)
=MIN(IF($H$4:$H$90<>0,$H$4:$H$90))
=MAX(H$4:H$42)=H4