اذهب الي المحتوي
أوفيسنا

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


hitech

الردود الموصى بها

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

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

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

 

  • Like 2
رابط هذا التعليق
شارك

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

بارك الله فيك

 

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

Untitled.png

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information