محمد طاهر عرفه قام بنشر يونيو 8, 2003 مشاركة قام بنشر يونيو 8, 2003 مثال به عدة طرق منها ما يعتمد علي دالة 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 رابط هذا التعليق شارك More sharing options...
Sharaf قام بنشر يونيو 10, 2003 مشاركة قام بنشر يونيو 10, 2003 طريقة أخرى : بإستعمال التنسيق الشرطى تنشيط نطاق البيانات المطلوب مراجعتها فتح قائمة تنسيق --> تنسيق شرطى إختيار قيمة الخلية ----> أكبر من ------>()today= ثم تحديد تنسيق مختلف و ليكن لون أصفر للخلية رابط هذا التعليق شارك More sharing options...
محمد ابوالعلا البتيتي قام بنشر فبراير 6, 2019 مشاركة قام بنشر فبراير 6, 2019 فعلا صح رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.