اخى الحبيب اسلام عبدالله
بعد تجربة الملف وجدة ملحوظه صغيره ارجو ان يتسع صدرك لها
حاول تضع فى الخليه K9 مثلا 30000 او 45000 او اى رقم من الارقام الموجوده فى الجدول فى العمود M
ستجد النتيجة غير مظبوطه
ولحل هذه المشكله بوضع علامة = فقط
شاهد المعادله
CODE
=IFERROR(SUM((M4:M7-M3:M6)*N3:N6*--(K9>=M4:M7))+(K9-VLOOKUP(K9;M3:M7;1))*VLOOKUP(K9;M3:N7;2);0)
وتم برمجة داله جديده لذالك الامر
وهذا هو كود الداله
CODE
Function Alsqr(tRange As Range, Range As Range) As Variant
If Range <= 0 Then Alsqr = 0: Exit Function
Dim lr As Long
Dim sh As String
Dim rCount As Long
Dim st As Long
Dim ct As Long
Dim i As Long
Dim r As Variant
rCount = tRange.Rows.Count
st = tRange(1, 1).Row
ct = tRange(1, 1).Column
sh = tRange.Parent.Name
lr = rCount + st
With Sheets(sh)
For i = st + 2 To lr - 1
If .Cells(i, ct) < Range Then
r = r + ((.Cells(i, ct) - .Cells(i - 1, ct)) * .Cells(i - 1, ct + 1))
End If
If .Cells(i, ct) >= Range Then
r = r + ((Range - .Cells(i - 1, ct)) * .Cells(i - 1, ct + 1))
Exit For
End If
Next i
If Range > .Cells(lr - 1, ct) Then
r = r + ((Range - .Cells(lr - 1, ct)) * .Cells(lr - 1, ct + 1))
End If
End With
Alsqr = r: Exit Function
End Function
واليك الملف المرفق به التطبيق
اكتب فى K9 الرقم وشاهد النتيجة فى K10 بمعادلة حضرتك وبالخلية M10 بالداله الجديده
وارجو لو كان لديك متسع من الوقت شرح الداله وكيفية تطبيقها
تحياتى لك ولكل اعضاء اكاديمية الصقر للتدريب
هدفنا نشر العلم والوصول للاحترافيه
