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