ارجو المساعدة مطلوب معادلة

[ramkh]

السلام عليكم

أرجوا المساعدة مطلوب معادلة اكسل كما يلي:

كل ما ازداد عدد الايام تزيد قيمة الخلية عن كل يوم بشكل تلقائي مثال للتوضيح:

خليه بتاريخ 7/5/2022 (علماً أن التاريخ متغير بشكل تلقائي) اذا تغير التاريخ لليوم التالي يتم اضافة قيمة 10 كمثال على الخليه ، (اي في حالة تم فتح الاكسل في تاريخ 17/5/2022 بعد عشرة ايام يتم اضافة قيمة 10 عن كل يوم بمجموع 100 وهكذا)

ارجو المساعدة ان امكن ذلك

شكرا

[حسين مامون]

بما انك لم ترفع ملف او صورة تحاكي طلبك اليك هذه التجربة المتواضعة

عليك بالضغط على الزر كلما فتحت الملف

Option Explicit
Sub dt()

Dim dt, dt1, dt2
With Sheets(1)
Range("j4") = Range("j6")
Set dt = Range("j4")
Set dt1 = .Range("j6")
Set dt2 = .Range("k6")
 .Range("j6") = Date
If dt1 = "" Then
Exit Sub
Else
dt2 = Format(DateAdd("d", 1, dt1), "d") - Format(DateAdd("d", 1, dt), "d")
.Range("k6") = Val(.Range("k6")) + dt2
Exit Sub
End If
End With

End Sub

test1.xlsm

[ramkh]

شكرا جزيلا على الرد