طائع قام بنشر نوفمبر 4, 2015 قام بنشر نوفمبر 4, 2015 بسم الله الرحمن الرحيم اخوانى واساتذتى بعد التحية أنا أعمل على برنامج كنترول وقابلتنى مشكلة صغيرة ألا وهى ظهور كلمة calculate فى أسفل الصفحة والمشكلة ليست فى ظهورها ولكن المشكلة أنها تبطىء من عمل الدوال والمعادلات والأكواد ولا يتم تفعيل هذه الأكواد والمعادلات الا بالضغط على زر F9 فهل أجد حلا يغنينى عن الضغط على هذا الزر وماذا حدث لظهور هذه المشكلة مرفق صورة من الصفحة Doc1.rar Doc1.rar
سليم حاصبيا قام بنشر نوفمبر 4, 2015 قام بنشر نوفمبر 4, 2015 1- حول لغة الكيبورد الى الاجنبية 2- اضغط باستمرار على مفتاح Alt 3-اضغط توالي الاحرف التالية M ثم X ثم A 4- اترك الزر Alt هذا كل شيء اذا كان عندك اوفيس 2010
طائع قام بنشر نوفمبر 4, 2015 الكاتب قام بنشر نوفمبر 4, 2015 اخى واستاذى سليم اشكر مرورك العطر ولكن الأوفيس 2003 فهل هذا الشرح يتماشى مع 2003
طائع قام بنشر نوفمبر 4, 2015 الكاتب قام بنشر نوفمبر 4, 2015 جربت هذه الطريقة ولكن لم تفعل شيئا هل هذه الطريقة لا تصلح مع اوفيس 2003 وان كان فهل من طريقة اخرى وشاكر اهتمامك
سليم حاصبيا قام بنشر نوفمبر 4, 2015 قام بنشر نوفمبر 4, 2015 بالنسبة ل 2003 1- اختر Tools 2- اختر Calculation 3- automatic
محمد الريفى قام بنشر نوفمبر 4, 2015 قام بنشر نوفمبر 4, 2015 اخى الكريم اتبع هذا الربط وجرب واعلمنا بالنتيجة http://www.trables.com/2009/09/18/excel-calculation/
طائع قام بنشر نوفمبر 4, 2015 الكاتب قام بنشر نوفمبر 4, 2015 أخى الكريم محمد الرفى لقد نفذت ولكنها ترجع للاختيار الثانى وهو اليدوى بمجرد ترك الصفحة لصفحة اخرى والرجوع اليها
ياسر خليل أبو البراء قام بنشر نوفمبر 4, 2015 قام بنشر نوفمبر 4, 2015 أخي الكريم ارفق ملف الإكسيل وليس صورة للإطلاع على الملف بشكل أعمق ..ربما يكون هناك في حدث ورقة العمل كود يقوم بالأمر ويفعل الحساب التلقائي
طائع قام بنشر نوفمبر 5, 2015 الكاتب قام بنشر نوفمبر 5, 2015 (معدل) أخى ابو البراء شاكرر مرورك وجزاك الله خيرا ولكن مساحة الملف 66 كيلو بايت ولكن هذا الكود يعمل فى الصفحة التى ارصد بها وحاولت اختيار الحساب التلقائى من tools option automatic ولكن بمجرد الخروج من هذه الصفحة والعودة اليها تغير automatic الى manual Sub تنسيق()Application.ScreenUpdating = FalseApplication.Calculation = xlManualActiveSheet.Unprotect 111For Each cl In Range("f9:m408")If cl <> "" Then GoTo 1NextRange("F9:M408").FormulaR1C1 = "=IF(INDEX(رسوب,MATCH(RC3,طلاب,0),MATCH(R7C,مواد,0))="""",TRUE)"For Each cl In Range("f9:m408")If cl.Value = True Then cl.Locked = True Else cl.Locked = False End If Next clRange("F9:M408").ClearContentsActiveSheet.Protect 111Application.Calculation = xlAutomaticApplication.ScreenUpdating = True 1 End Sub تم تعديل نوفمبر 5, 2015 بواسطه طائع
ياسر خليل أبو البراء قام بنشر نوفمبر 6, 2015 قام بنشر نوفمبر 6, 2015 أخي الكريم في هذا السطر If cl <> "" Then GoTo 1 يتم انهاء التعامل مع الإجراء الفرعي بالانتقال إلى آخر سطر مما يجعل الحساب التلقائي لا يتم تفعيله في هذه الحالة .. اجعل الرقم 1 عند السطر Application.Calculation = xlAutomatic وليس السطر الأخير جرب وأعلمني بالنتيجة
طائع قام بنشر نوفمبر 8, 2015 الكاتب قام بنشر نوفمبر 8, 2015 اشكرك استاذى ياسر على اهتمامك ولكن وفقنى الله فى حل المشكلة بأن غيرت السطر الثانى فى الكود Application.Calculation = xlManua من Manual الى automatic 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.