استدعاء مايكرو للعمل بالتاريخ الهجري

[ولد جدة]

If Day(Now()) = 25 Then

Call AddSheet

End If

كيف اقدر اخلي التنفيذ على الهجري وياليت يعمل لمدة مرة واحدة في اليوم يعني كل يوم 25 اول ما افتح برنامج الاكسل ينفذ المطلوب واذا قفلت البرنامج وشغلته في نفس اليوم ما ينفذ الامر مرة ثانية

[ولدطيبة]

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

اخي الكريم

طلبك ممكن باذن الله

ولكن سوف يكون تحقيق الشروط المطلوبة من داخل ورقة الإكسل في الملف

[ولدطيبة]

وسوف يكون الكود على النحو التالي

if sheets("ورقة1").range("A6") = true then

Range("A5") = Range("A4")

Application.Run "AddSheet"

End if

شاهد المرفق

Book1.rar

[ولد جدة]

مشكور ولد طيبة وجدت حل اخر وهو

VBA.Calendar = vbCalHijri

If Day(Now()) = 25 Then

Call AddSheet

كيف اخلي الاستدعاء على تقويم ام القرى وشيء ثاني اذا نفذ الاستدعاء يوم 25 ما ابغى ينفذه مرة ثانية نفس اليوم