اريد طريقة للتنبيه بموعد محدد فى الاكسيل

[hitech]

انا شغال فى ادارة الموارد البشرية وهناك موظفون يحصلون على اجازات هل يوجد فى الاكسيل طريقة للتنبيه بقرب موعد انتهاء مدة الاجازة ولحضرتكم جزيل الشكر

 

[هانى محمد]

عليك برفع ملف بالمطلوب لعمل اللازم بارك الله فيك

 

[hitech]

هو حاليا مش عندى ملف جاهز لو ممكن الكود او الخطوات نظرى وسلقوم بعملها والف شكر لحضرتك

[Emad Sabry]

استخدم الكود التالى فى مديول

Sub Emad()
Dim i, lastrow As Long
lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row 'غير الشيت إلى الشيت الذى تريده

For i = 1 To lastrow ' غير ال 1 الى رقم الصف الذى تريده
    If Cells(i, 1) = Date - 10 Then 'غير ال 1 الى رقم العمود الذى تريده وغير ال 10 الى الرقم الذى تريده يظهر تنبيه قبله هنا هيظهر التنبيه قبل التاريخ ب 10 ايام
    MsgBox "لقد قاربت الاجازة على الانتهاء"
' أكتب الرسالة التى تودها فوق
    Cells(i, 1).Interior.ColorIndex = 3 'هذا الكود لتلوين الخلية
    Else
     Cells(i, 1).Interior.ColorIndex = xlNone ' هذا لإلغاء التلوين فى حالة تغير التاريخ
End If
Next
End Sub

وضع  هذ الكود فى workbook

Private Sub Workbook_Open()
Call Emad
End Sub

وهذا معناه عند فتح ملف الاكسل يظهرلك رسالة التنبيه 

 

[hitech]

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

[Emad Sabry]

رسالة تنبيه عند تغير الوقت.xlsm

[hitech]

شكرا جزيلا استاذ عماد ربنا يباركلك جزاءاك الله كل خير

[hitech]

استاذ عماد معلش واجهتنى مشكلة عاوز اغير العمود اخليه اى حاجة غير الاول لان الاول بيكون مكتوب فيه الاسم و شكرا جزيلا ربنا يباركلك جزاءاك الله كل خير

[Ali Mohamed Ali]

طبعا بعد اذن الأستاذ عماد تم التعديل عل الكود لكى يعمل على العمود الثانى مثلا -وهناك صورة توضيحية لك للتعديل على الكود بنفسك على اى عمود تريده

بارك الله فيك

 

رسالة تنبيه عند تغير الوقت.xlsm

[hitech]

تمام شكرا جزيلا على ربنا يباركلك جزاءاك الله كل خير