احتاج القيم المفقود بين رقمين حسب التسلسل

[الشافعي]

السلام عليكم 

مرفق ملف اكسيل يوضح ويوجد قيمة مفقودة احتاج معرفتها حسب التسلسل 

الراتب من 3000 يحصل على مبلغ 1350 في 240  يحصل على 324000

Book1.xlsx

[lionheart]

Not clear at all

Put some of the expected results

[الشافعي]

اشكر اهتمامك 

مرفق توضيح اكثر يقل المبلغ كلما زاد الراتب 

Book1.xlsx

تم تعديل فبراير 27, 2023 بواسطه الشافعي

[lionheart]

Try this code

Sub Test()
    Const FIXEDPERIOD As Long = 240
    Dim outputArray(), currentAmount As Long, relatedValue As Long, i As Long
    ReDim outputArray(2000, 3)
    currentAmount = 3000
    For i = LBound(outputArray) + 1 To UBound(outputArray) + 1
        If currentAmount <= 4000 Then
            relatedValue = 1350 - (currentAmount - 3000) * (1350 - 1206) / 1000
        Else
            relatedValue = 1206 - (currentAmount - 4000) * (1206 - 1073) / 1000
        End If
        outputArray(i - 1, 0) = currentAmount
        outputArray(i - 1, 1) = FIXEDPERIOD
        outputArray(i - 1, 2) = relatedValue
        outputArray(i - 1, 3) = FIXEDPERIOD * relatedValue
        currentAmount = currentAmount + 1
        If currentAmount Mod 1000 = 0 Then relatedValue = outputArray(i - 1, 2)
    Next i
    Columns("H:K").ClearContents
    Range("H2").Resize(, 4).Value = Array("Salary", "Period", "Amount", "Total")
    Range("H3").Resize(UBound(outputArray, 1) + 1, UBound(outputArray, 2) + 1).Value = outputArray
End Sub

 

[AbuuAhmed]

محاولة بدون أكواد
ركبت المعادلة على أساس أن أقل راتب 3000 ريال.
إذا يوجد أقل من 3000 خبرني أعدل لك المعادلة.

MissingValues_01.xlsx

[الشافعي]

الشكر كل الشكر

للاستاذ lionheart والاستاذ AbuuAhmed على مهجودكم والله يجعله في ميزان حسناتكم