اظهار رسالة لحساب المتبقى على يوم الإستحقاق

[عمر الجزاوى]

السلام عليكم بعد البحث فى النت وجدت هذا الكود

وهو يظهر لى هذه الرسالة مطلوب تعديل بسيط على هذا الكود حتى يظهر لى رسالة  اخرى كم باقى على يوم الاستحقاق وتبدأ هذه الرسالة فى الظهور ان كان الباقى للموظف شهر حتى تاريخ الاستحقاق وكل يوم تنقص يوم ويكون نص الرسالة الاتى تاريخ اليوم باقى على تاريخ الاستحقاق مثلا 30 يوم للموظف 1 وكل يوم تنقص يوم يعنى فى اليوم الثانى يكون 29 يوم

مثال موظف 5 تاريخ استحقاقه يوم 14 / 2 / 2020 المفروض يعطينى رسالة تفيد بان الباقى له 9 ايام

وهكذا وشكرا على ماتقدموه لنا

ملحوظة فى امكانية جعل النص فى نصف الرسالة    

برنامج لتنظيم الوقت والمواعيـــــــــــد.xlsm

[عبدالفتاح في بي اكسيل]

اخي  تفضل هذا  التعديل  ليس من تخصصي البرمجة  ولكن قمت ببعض التعديل  لعله يفي بالغرض 

Private Sub Workbook_Open()
Dim I As Long, LR As Long
Dim N As String
LR = ورقة1.Range("b" & Rows.Count).End(xlUp).Row
For I = 4 To LR
If Cells(I, 3) = Cells(I, 3).Value Then
N = Cells(I, 2).Text
Cells(I, 3).Interior.ColorIndex = 3
Cells(I, 3).Font.ColorIndex = 2
Cells(I, 3).Font.Bold = True
MsgBox ("اليوم /" & " " & Date - Cells(I, 3).Value & _
vbCrLf & " " & "هو تاريخ استحقاق الاستاد / " & " " & N & _
vbCrLf & " " & "  الساعة الان" & "   " & Left(Format(Now(), "HH:MM AM/PM"), 6) & IIf(Format(Now(), "HH:MM") >= 13, "صباحا", "مساء")), 64, "التاريخ والتوقيت"
Else
Cells(I, 3).Interior.ColorIndex = xlNone
Cells(I, 3).Font.ColorIndex = xlAutomatic
Cells(I, 3).Font.Bold = False
End If
Next I
End Sub

 

[عمر الجزاوى]

بعد اذنكم قمت بتعديل على الشيت فارجو المساعدة

برنامج لتنظيم الوقت والمواعيـــــــــــد 11.xlsm

[عبدالفتاح في بي اكسيل]

تفضل اخي  على حسب  ما فهمت منك  ارجو ان يكون هذا طلبك

برنامج لتنظيم الوقت والمواعيـــــــــــد 11.xlsm

[عمر الجزاوى]

رائع استاذ في بي ايه اكسيل شكرا كثير

[عبدالفتاح في بي اكسيل]

العفو    جيد انه  المطلوب

تحياتي