Application Properties
أشهر الخصائص لكائن التطبيق
Calculation Application Property
Caption Application Property
DisplayAlerts Application Property
DisplayFormulaBar Application Property
تلميح هام :
يجب أن تكون حذرا مع استخدام خصائص كائن التطبيق ، لأنه يقوم بالتأثير على كامل التطبيقات بالجهاز لديك
فعند استخدام أى من الخصائص يجب إعادتها إلى وضعها الطبيعي مرة أخري
Calculation Application Property
تحدد كيفية اجراء العمليات الحسابية
تجد بخيارات حساب المصنف خاصية حساب اكسل ، ثلاثة أنواع للعملية الحسابية وهم
| Application.Calculation = xlCalculationAutomatic | Automatic |
|---|
| Application.Calculation = xlCalculationsemiautomatic | Automatic except for data tables |
|---|
| Application.Calculation = xlCalculationManual | Manual |
|---|
Application.Calculation = xlCalculationAutomatic
ما هى العمليات الحسابية ؟
- الخيار التلقائي يقوم بإعادة الحساب عند فتح ملف عمل جديد
- حذف ، اضافة ، اخفاء ، اظهار .
- اعادة تسمية ورقة عمل .
- اعادة ترتيب ورقة العمل .
- تعديل نطاق مسمي .
- إعادة حساب الخلايا التي تحتوي على دالات متغير في كل مرة يتم فيها تنفيذ أي من الإجراء أعلاه .
- تتأثر الخلايا بكل ما سبق بشكل غير مباشر .
لذلك العملية الحسابية التلقائية تأخذ وقتا فنقوم بتحويل العمليات الحسابية التلقائية (xlCalculationAutomatic) إلى يدوية (xlCalculationManual) حتى تكون الاجراءات أسرع
مثال: A1 = B1 + B2 + B3
عندما تتغير قيمةB1 يتم إعادة حساب A1 ، فعند تغيير قيمةB2 فيتم إعادة حساب A1 مرة أخرى ، لذلك يعيد A1 الحساب 3 مرات للإجراء الفرعي.
يعتبر ذلك إهدار للموارد لإعادة حساب A1 لثلاث مرات لأننا لا نحتاج إلى معرفة قيمة A1 المحدثة لكل تغيير في B1 ، B2 ، B3 نريد فقط القيمة النهائية لـ A1
ولكن يجب أن يتم اعادة العملية الحسابية إلى وضعها التلقائي
'https://elshriefacademy.blogspot.com
Sub App_Calculation()
Application.Calculation = xlCalculationManual
'Your code
Application.Calculation = xlCalculationAutomatic
End Sub
Caption Application Property
خاصية اسم شريط العنوان الذى يظهر بمنتصف شاشة الاكسل
'https://elshriefacademy.blogspot.com
Sub Appl_StatusBar()
Application.Caption = "Mahmoud Zaki Elshrief"
End Sub
DisplayAlerts Application Property
تستخدم للتنبيه بواسطه رسائل تظهر للمستخدم ويمكنك اما تشغيلها أو إيقافها
'https://elshriefacademy.blogspot.com
Sub App_DisplayAlerts()
Application.DisplayAlerts = False
Workbooks("BOOK1.XLS").Close
Application.DisplayAlerts = True
End Sub
هنا لن يتم عرض رسالة التنبيه الخاصة بحفظ التغييرات ، وعليه سيتم غلق الملف دون حفظ التغييرات