هل يمكن عمل كود لتنفيذ ماكرو بناء على تاريخ مـــا

[رضا الخشن]

السلام عليكم و رحمة الله و بركاته

هل من الممكن إضافة كود إلى الماكرو بحيث يقوم بالتنفيذ في حالة تحقق شرط معين

مثلا : أريد إضافة كود لحساب الدالة Today و إختبار النتيجة بأنها أقل من أو يساوي تاريخ ما " يتم تحديدة داخل الكود أو بالإشارة إلى مرجع داخل المستند " قبل تنفيذ الماكرو و إلا لا يتم تنفيذ هذا الماكرو .

و جزاكم الله خيراً

[بن علية حاجي]

السلام عليكم ورحمة الله

بالتأكيد أخي الكريم، يمكنك ذلك وقد وضعت مثالا باستعمال الكود التالي:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Range("A1") = Date Then


'هنا تضع الكود خاصتك


    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


End If


End Sub

عندما يكون التاريخ في الخلية A1 مساويا لتاريخ اليوم يقوم الكود بتنفيذ الأوامر المكتوبة بين شرط IF ونهاية الشرط END IFوفي المثال جعلته يقوم بالطباعة...

والله أعلم

[ياسر خليل أبو البراء]

بورك فيك يا ابن عليه

وجعلك الله من علية القوم في الآخرة

أخوك أبو البراء