استفسارات بخصوص ( Application.Calculation = xlCalculationAutomatic) ..

[محمد_عبد_الوهاب]

السلام عليكم

اساتذتي الكرام .. كل عام وانتم بخير .. رمضان كريم

لدي استفسارات بخصوص طريقة جعل الكود اسرع واخف ولقد وجدت الطريقة في

موضوع محفظة الاكواد للاستاذ القدير / عبد الله باقشير ولكن لي بعض الاستفسارات علي طريقة تشغيله وهو اضافي هذا الجزء للكود

Application.Calculation = xlCalculationManual

** هل يتم اضافة هذا الجزء لاي كود موجود في الاكسيل ** هل يؤثر علي عمل الكود وهل الاكواد تقوم بالحساب دون الضغط علي الزر الخاص بكل كود بعد التغيير في اي خليه بالملف ** لدي ملف به اكواد لا تعمل الا من خلال ازرار للترحيل والطباعة وجعل قيم نطاق معين ( صفر ) ... فهل ينفع معها ذلك ** لدي اكواد تعمل عند فتح الملف تلقائيا للترحيل ايضا بدون ازرار هل ينفع معها ذلك ** ما هي الطريقة لتنفيذ ذلك آسف علي الاطاله ولكن اريد التزود من علمكم المشاركة الموجودة بالمحفظة هي كالتالي :

عندما يكون لدينا ملف ممتلئ بالمعادلات و الأكواد

قد يحدث بطء في تنفيذ الماكروات

و السبب أن إكسيل يقوم بعمل

Calculate

للخلايا آلياً كلما حدث تغيير في خلية ما

مما يسبب البطء في تنفيذ الكود

كثيراً ما يكون الحل لهذه المشكلة

هو إيقاف هذه العملية قبل تنفيذ الكود

ثم إعادتها لطبيعتها بعد تنفيذ الكود

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

Application.Calculation = xlCalculationManual

يقوم هذا الأمر بتعطيل آلية هذه العلمية

ثم في نهاية الكود نضيف هذا السطر الذي سيرجع العملية لصورتها الآلية كما كانت

Application.Calculation = xlCalculationAutomatic

[محمد يحياوي]

اخي الكريم كما اشرت انت الى كود اخينا ابو عبد الله انه يتم اللجوء الى هذا الاجراء لتجنب بطئ تنفيذ الاكواد خاصة اذا الملف مليئ بالاكواد و المعادلات التي تنفذ تلقائيا في حالة تغيير او نحديد الخلايا لكن ليس في جميع الاحوال

حيث انه قد نكون في حاجة الى التحقق من قيمة الخلايا في كل مرة يحدث فيها تغيير مثل ما هو الحال في الدوال و المعادلات ...

بالنسبة لسؤالك الثاني لا يؤثر على الكود الا من حيث سرعة الاستجابة لانه يوقف العمليات التلقائية الاخرى حتى انتهاء تنفيذ الماكرو

[يوسف عطا]

مشكور على الشرح أخونا يحياوى