/ / كائن تطبيق VBA Excel

كائن تطبيق VBA Excel

WorksheetFunction | ScreenUpdating | DisplayAlerts | عملية حسابية

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

WorksheetFunction

يمكنك استخدام الخاصية WorksheetFunction في Excel VBA للوصول إلى وظائف Excel.

1. على سبيل المثال ، ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة سطر التعليمات البرمجية التالي:

Range("A3").Value = Application.WorksheetFunction.Average(Range("A1:A2"))

عند النقر فوق زر الأمر في ورقة العمل ، يحسب Excel VBA متوسط ​​القيم في الخلية A1 والخلية A2 ويضع النتيجة في الخلية A3.

وظيفة ورقة العمل في Excel VBA

ملاحظة: بدلا من Application.WorksheetFunction.متوسط ​​، استخدم ببساطة ورقة عملالفئة. متوسط. إذا نظرت إلى شريط الصيغة ، يمكنك أن ترى أن الصيغة نفسها لم يتم إدخالها في الخلية A3. لإدراج الصيغة نفسها في الخلية A3 ، استخدم سطر التعليمة البرمجية التالية:

Range("A3").Value = "=AVERAGE(A1:A2)"

ScreenUpdating

في بعض الأحيان قد تجد أنه من المفيد تعطيل تحديث الشاشة (لتجنب الخفقان) أثناء تنفيذ التعليمات البرمجية. نتيجة لذلك ، سيتم تشغيل التعليمات البرمجية بشكل أسرع.

1. على سبيل المثال ، ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة أسطر التعليمات البرمجية التالية:

Dim i As Integer

For i = 1 To 10000
    Range("A1").Value = i
Next i

عند النقر فوق زر الأمر في ورقة العمل ، يعرض Excel VBA كل قيمة جزءًا صغيرًا من الثانية ويمكن أن يستغرق ذلك بعض الوقت.

ScreenUpdating

2. لتسريع العملية ، قم بتحديث الكود على النحو التالي.

Dim i As Integer

Application.ScreenUpdating = False

For i = 1 To 10000
    Range("A1").Value = i
Next i

Application.ScreenUpdating = True

وكنتيجة لذلك ، سيتم تشغيل التعليمات البرمجية الخاصة بك بشكل أسرع وسترى النتيجة النهائية فقط (10000).

DisplayAlerts

يمكنك توجيه Excel VBA لعدم عرض التنبيهات أثناء تنفيذ التعليمات البرمجية.

1. على سبيل المثال ، ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة سطر التعليمات البرمجية التالي:

ActiveWorkbook.Close

عند النقر فوق زر الأمر في ورقة العمل ، يقوم Excel VBA بإغلاق ملف Excel ويطلب منك حفظ التغييرات التي قمت بإجرائها.

DisplayAlerts

2. لتعليم Excel VBA عدم عرض هذا التنبيه أثناء تنفيذ التعليمات البرمجية ، قم بتحديث التعليمة البرمجية كما يلي.

Application.DisplayAlerts = False

ActiveWorkbook.Close

Application.DisplayAlerts = True

نتيجة لذلك ، يقوم Excel VBA بإغلاق ملف Excel ، دون مطالبتك بحفظ التغييرات التي أجريتها. يتم فقدان أي تغييرات.

عملية حسابية

بشكل افتراضي ، يتم تعيين الحساب على تلقائي. نتيجة لذلك ، يعيد Excel حساب المصنف تلقائيًا في كل مرة تتغير فيها القيمة التي تؤثر على الصيغة. إذا كان المصنف الخاص بك يحتوي على العديد من الصيغ المعقدة ، فيمكنك تسريع الماكرو عن طريق تعيين الحساب إلى يدوي.

1. على سبيل المثال ، ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة سطر التعليمات البرمجية التالي:

Application.Calculation = xlCalculationManual

عند النقر فوق زر الأمر في ورقة العمل ، يقوم Excel VBA بتعيين الحساب إلى يدوي.

2. يمكنك التحقق من ذلك من خلال النقر على ملف ، خيارات ، صيغ.

خيارات الحساب

3. الآن عند تغيير قيمة الخلية A1 ، لا يتم إعادة حساب قيمة الخلية B1.

الحساب اليدوي

يمكنك يدوياً إعادة حساب المصنف بضغط F9.

4. في معظم الحالات ، ستقوم بتعيين الحساب إلى تلقائي مرة أخرى في نهاية التعليمة البرمجية الخاصة بك. ببساطة إضافة سطر التعليمات البرمجية التالي لتحقيق ذلك.

Application.Calculation = xlCalculationAutomatic
اقرأ أيضًا: