ولد جدة قام بنشر سبتمبر 11, 2010 مشاركة قام بنشر سبتمبر 11, 2010 If Day(Now()) = 25 Then Call AddSheet End If كيف اقدر اخلي التنفيذ على الهجري وياليت يعمل لمدة مرة واحدة في اليوم يعني كل يوم 25 اول ما افتح برنامج الاكسل ينفذ المطلوب واذا قفلت البرنامج وشغلته في نفس اليوم ما ينفذ الامر مرة ثانية رابط هذا التعليق شارك More sharing options...
ولدطيبة قام بنشر سبتمبر 13, 2010 مشاركة قام بنشر سبتمبر 13, 2010 السلام عليكم و رحمة الله اخي الكريم طلبك ممكن باذن الله ولكن سوف يكون تحقيق الشروط المطلوبة من داخل ورقة الإكسل في الملف رابط هذا التعليق شارك More sharing options...
ولدطيبة قام بنشر سبتمبر 13, 2010 مشاركة قام بنشر سبتمبر 13, 2010 وسوف يكون الكود على النحو التالي if sheets("ورقة1").range("A6") = true then Range("A5") = Range("A4") Application.Run "AddSheet" End if شاهد المرفق Book1.rar رابط هذا التعليق شارك More sharing options...
ولد جدة قام بنشر سبتمبر 13, 2010 الكاتب مشاركة قام بنشر سبتمبر 13, 2010 مشكور ولد طيبة وجدت حل اخر وهو VBA.Calendar = vbCalHijri If Day(Now()) = 25 Then Call AddSheet كيف اخلي الاستدعاء على تقويم ام القرى وشيء ثاني اذا نفذ الاستدعاء يوم 25 ما ابغى ينفذه مرة ثانية نفس اليوم رابط هذا التعليق شارك 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.