ramkh قام بنشر مايو 7, 2022 مشاركة قام بنشر مايو 7, 2022 السلام عليكم أرجوا المساعدة مطلوب معادلة اكسل كما يلي: كل ما ازداد عدد الايام تزيد قيمة الخلية عن كل يوم بشكل تلقائي مثال للتوضيح: خليه بتاريخ 7/5/2022 (علماً أن التاريخ متغير بشكل تلقائي) اذا تغير التاريخ لليوم التالي يتم اضافة قيمة 10 كمثال على الخليه ، (اي في حالة تم فتح الاكسل في تاريخ 17/5/2022 بعد عشرة ايام يتم اضافة قيمة 10 عن كل يوم بمجموع 100 وهكذا) ارجو المساعدة ان امكن ذلك شكرا رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسين مامون قام بنشر مايو 7, 2022 أفضل إجابة مشاركة قام بنشر مايو 7, 2022 بما انك لم ترفع ملف او صورة تحاكي طلبك اليك هذه التجربة المتواضعة عليك بالضغط على الزر كلما فتحت الملف 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 1 1 رابط هذا التعليق شارك More sharing options...
ramkh قام بنشر مايو 7, 2022 الكاتب مشاركة قام بنشر مايو 7, 2022 شكرا جزيلا على الرد رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.