التأكد من أن تاريخ خلية محددة أكبر من تاريخ الجهاز

[محمد طاهر عرفه]

مثال به عدة طرق

منها ما يعتمد علي دالة IF و ما يعتمد علي التنسيق الشرطي و منها الكود

و هذا هو الجزء الخاص بالكود

Private Sub Workbook_Open()

 If ActiveWorkbook.Worksheets(1).Range("d6").Value >= Now() Then

  MsgBox "the value in cell d6 is >= the current date !!" & Chr(13) & "BEST WISHES , FROM MOHAMED TAHER"

   End If

End Sub

و لرؤيته فى الملف اضغط ALT+F11

checkDate.zip

[Sharaf]

طريقة أخرى : بإستعمال التنسيق الشرطى

تنشيط نطاق البيانات المطلوب مراجعتها

فتح قائمة تنسيق --> تنسيق شرطى

إختيار قيمة الخلية ----> أكبر من ------>()today=

ثم تحديد تنسيق مختلف و ليكن لون أصفر للخلية

[محمد ابوالعلا البتيتي]

فعلا صح