عمل شرائح بخانة ملاحظات طبقاً للمعطيات

[احمد عـــزام]

السلام عليكم اساتذتى الكرام...أرجو التكرم على مساعدتى فى كتابة ملاحظات تلقائياً بخانة الملاحظات عند تغير الوقت المتبقى من تاريخ الجرد مطلوب  كتابه ملاحظات اتوماتيك بخانه الملاحظات  عند تغير الوقت المبتقى من تاريخ الجرد

مطلوب  كتابه ملاحظات اتوماتيك بخانه الملاحظات  عند تغير الوقت المبتقى من تاريخ الجرد 

مطلوب  كتابه ملاحظات اتوماتيك بخانه الملاحظات  عند تغير الوقت المبتقى من تاريخ الجرد 

اصناف.xlsx

[Ali Mohamed Ali]

وعليكم السلام ,يمكنك هذا بالدالة المعرفة payout

Function payout(Value)
Select Case Value
Case 1 To 5
payout = "متبقى أقل من 5 أيام"
Case 6 To 10
payout = "متبقى أقل من 10 أيام"
Case 11 To 20
payout = "متبقى أقل من 20 يوم"
Case 21 To 30
payout = "متبقى أقل من 30 يوم"
Case 31 To 60
payout = "متبقى أقل من شهرين"
Case 61 To 90
payout = "متبقى أقل من 3 شهور"
Case 91 To 120
payout = "متبقى أقل من 4 شهور"
Case 121 To 150
payout = "متبقى أقل من 5 شهور"
Case 151 To 180
payout = "متبقى أقل من 6 شهور"
Case 181 To 210
payout = "متبقى أقل من 7 شهور"
Case 211 To 240
payout = "متبقى أقل من 8 شهور"
Case 241 To 270
payout = "متبقى أقل من 9 شهور"
Case 271 To 300
payout = "متبقى أقل من 10 شهور"
Case 301 To 330
payout = "متبقى أقل من 11 شهر"
Case 331 To 360
payout = "متبقى أقل من عام"
Case Is >= 361
payout = "صلاحية أكثر من عام"
Case Is < 1
payout = "إنتهت الصلاحية"
End Select
End Function

فعليك بوضع هذه المعادلة بالخلية M13 مع السحب للأسفل

=payout(L13)

 

اصناف.xlsm

[احمد عـــزام]

ماشاء الله هذا هو المطلوب بالفعل جزاك الله خيرا 

اشكرك من كل قلبى بارك الله فيك