ظهور كلمة calculate

[طائع]

بسم الله الرحمن الرحيم

اخوانى واساتذتى  بعد التحية

أنا أعمل على برنامج كنترول وقابلتنى مشكلة صغيرة ألا وهى ظهور كلمة  calculate فى أسفل الصفحة 

والمشكلة ليست فى ظهورها ولكن المشكلة أنها تبطىء من عمل الدوال والمعادلات والأكواد ولا يتم تفعيل هذه الأكواد والمعادلات الا بالضغط على  زر F9  

فهل أجد حلا يغنينى عن الضغط على هذا الزر وماذا حدث لظهور هذه المشكلة 

مرفق صورة من الصفحة 

 Doc1.rar

Doc1.rar

[سليم حاصبيا]

1- حول لغة الكيبورد الى الاجنبية

2- اضغط باستمرار على مفتاح Alt

3-اضغط توالي الاحرف التالية M ثم X ثم A

4- اترك الزر Alt

هذا كل شيء اذا كان عندك اوفيس 2010

[طائع]

اخى واستاذى سليم اشكر مرورك العطر ولكن الأوفيس 2003 فهل هذا الشرح يتماشى مع 2003

[طائع]

جربت هذه الطريقة ولكن لم تفعل شيئا هل هذه الطريقة لا تصلح مع اوفيس 2003 

وان كان فهل من طريقة اخرى 

وشاكر اهتمامك

[سليم حاصبيا]

بالنسبة ل 2003

1- اختر Tools

2- اختر  Calculation

3- automatic

[طائع]

فعلت  ولكن المشكلة مازالت قائمة 

[محمد الريفى]

اخى الكريم اتبع هذا الربط وجرب واعلمنا بالنتيجة

http://www.trables.com/2009/09/18/excel-calculation/

[طائع]

أخى الكريم محمد الرفى لقد نفذت ولكنها ترجع للاختيار الثانى وهو اليدوى بمجرد ترك الصفحة لصفحة اخرى والرجوع اليها

[ياسر خليل أبو البراء]

أخي الكريم ارفق ملف الإكسيل وليس صورة للإطلاع على الملف بشكل أعمق ..ربما يكون هناك في حدث ورقة العمل كود يقوم بالأمر ويفعل الحساب التلقائي

[طائع]

أخى ابو البراء شاكرر مرورك وجزاك الله خيرا ولكن مساحة الملف 66 كيلو بايت

ولكن هذا الكود يعمل فى الصفحة التى ارصد بها  

وحاولت اختيار الحساب التلقائى من tools      option       automatic   ولكن بمجرد الخروج من هذه الصفحة والعودة اليها تغير  automatic  الى    manual  

Sub تنسيق()
Application.ScreenUpdating = False
Application.Calculation = xlManual
ActiveSheet.Unprotect 111
For Each cl In Range("f9:m408")
If cl <> "" Then GoTo 1
Next
Range("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 cl
Range("F9:M408").ClearContents
ActiveSheet.Protect 111
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True

1 End Sub

تم تعديل نوفمبر 5, 2015 بواسطه طائع

[ياسر خليل أبو البراء]

أخي الكريم في هذا السطر

If cl <> "" Then GoTo 1

يتم انهاء التعامل مع الإجراء الفرعي بالانتقال إلى آخر سطر مما يجعل الحساب التلقائي لا يتم تفعيله في هذه الحالة ..

اجعل الرقم 1 عند السطر

Application.Calculation = xlAutomatic

وليس السطر الأخير

جرب وأعلمني بالنتيجة

[طائع]

اشكرك استاذى ياسر على اهتمامك ولكن وفقنى الله فى حل المشكلة بأن غيرت السطر الثانى فى الكود   Application.Calculation = xlManua  من  Manual  الى automatic