طائع قام بنشر نوفمبر 4, 2015 مشاركة قام بنشر نوفمبر 4, 2015 بسم الله الرحمن الرحيم اخوانى واساتذتى بعد التحية أنا أعمل على برنامج كنترول وقابلتنى مشكلة صغيرة ألا وهى ظهور كلمة calculate فى أسفل الصفحة والمشكلة ليست فى ظهورها ولكن المشكلة أنها تبطىء من عمل الدوال والمعادلات والأكواد ولا يتم تفعيل هذه الأكواد والمعادلات الا بالضغط على زر F9 فهل أجد حلا يغنينى عن الضغط على هذا الزر وماذا حدث لظهور هذه المشكلة مرفق صورة من الصفحة Doc1.rar Doc1.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 4, 2015 مشاركة قام بنشر نوفمبر 4, 2015 1- حول لغة الكيبورد الى الاجنبية 2- اضغط باستمرار على مفتاح Alt 3-اضغط توالي الاحرف التالية M ثم X ثم A 4- اترك الزر Alt هذا كل شيء اذا كان عندك اوفيس 2010 رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 4, 2015 الكاتب مشاركة قام بنشر نوفمبر 4, 2015 اخى واستاذى سليم اشكر مرورك العطر ولكن الأوفيس 2003 فهل هذا الشرح يتماشى مع 2003 رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 4, 2015 الكاتب مشاركة قام بنشر نوفمبر 4, 2015 جربت هذه الطريقة ولكن لم تفعل شيئا هل هذه الطريقة لا تصلح مع اوفيس 2003 وان كان فهل من طريقة اخرى وشاكر اهتمامك رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 4, 2015 مشاركة قام بنشر نوفمبر 4, 2015 بالنسبة ل 2003 1- اختر Tools 2- اختر Calculation 3- automatic رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 4, 2015 الكاتب مشاركة قام بنشر نوفمبر 4, 2015 فعلت ولكن المشكلة مازالت قائمة رابط هذا التعليق شارك More sharing options...
محمد الريفى قام بنشر نوفمبر 4, 2015 مشاركة قام بنشر نوفمبر 4, 2015 اخى الكريم اتبع هذا الربط وجرب واعلمنا بالنتيجة http://www.trables.com/2009/09/18/excel-calculation/ رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 4, 2015 الكاتب مشاركة قام بنشر نوفمبر 4, 2015 أخى الكريم محمد الرفى لقد نفذت ولكنها ترجع للاختيار الثانى وهو اليدوى بمجرد ترك الصفحة لصفحة اخرى والرجوع اليها رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 4, 2015 مشاركة قام بنشر نوفمبر 4, 2015 أخي الكريم ارفق ملف الإكسيل وليس صورة للإطلاع على الملف بشكل أعمق ..ربما يكون هناك في حدث ورقة العمل كود يقوم بالأمر ويفعل الحساب التلقائي رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 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 بواسطه طائع رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 6, 2015 مشاركة قام بنشر نوفمبر 6, 2015 أخي الكريم في هذا السطر If cl <> "" Then GoTo 1 يتم انهاء التعامل مع الإجراء الفرعي بالانتقال إلى آخر سطر مما يجعل الحساب التلقائي لا يتم تفعيله في هذه الحالة .. اجعل الرقم 1 عند السطر Application.Calculation = xlAutomatic وليس السطر الأخير جرب وأعلمني بالنتيجة رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 8, 2015 الكاتب مشاركة قام بنشر نوفمبر 8, 2015 اشكرك استاذى ياسر على اهتمامك ولكن وفقنى الله فى حل المشكلة بأن غيرت السطر الثانى فى الكود Application.Calculation = xlManua من Manual الى automatic 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان