بسم الله الرحمن الرحيم
أول شي :حيا الله الشباب, كيف الحال إن شاء الله بخير:
عندي سؤال في الإكسل ياشباب وإن شاء الله مايصعب عليكم :-
عندما أضع عدداً من التواريخ أريد ان أحدد أحد هذه التواريخ بحيث إذا حل هذا التاريخ المحدد أخرج لي رسالة يخبرني بأن التاريخ قد حل ؟
قيل لي أنه من خلال الماكرو تستطيع أن تفعل ذلك فهل هذا صحيح وإن كان صحيح فكيف ؟
مع خالص تحياتي مقدماً:)
ممكن استخدام نفس الطريقتين هنا
http://www.arabteam2000.com/vb/showthread....&threadid=23989
مع استعمال الدالة
Now()
فى المقارنة و التي تعيد تاريخ اليوم
مشكور أخوي محمد لكن معليش تحملني تعرف أخوك مامن خبره بالإكسل ياليت توضح أكثر أو ترفق ملف
أكرر أسفي مره أخرى لكن ما فهمت ؟؟:o
مثال به عدة طرق
منها ما يعتمد علي دالة 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
مشكور أخوي
محمد طاهر
وماقصرت كفيت ووفيت
تحياتي من الأعماق ;)
وفقكم الله
مشارك جديد
هذا الموضوع مغلق.