/ / Excel VBA StatusBar الخاصية

خاصية VBA StatusBar Excel

ال خاصية StatusBar كائن التطبيق في Excel VBA يمكن استخدامها للإشارة إلى تقدم الماكرو المطول. بهذه الطريقة ، يمكنك السماح للمستخدم بمعرفة أن ماكرو ما زال قيد التشغيل.

موقف:

الماكرو سنقوم بإنشاء تعبئة النطاق ("A1: E20") بأرقام عشوائية.

مثال Excel VBA StatusBar Property

أضف أسطر التعليمات البرمجية التالية إلى زر الأمر:

1. أولا ، نعلن عن ثلاثة متغيرات من النوع Integer ، المسمى i ، j و pctCompl.

Dim i As Integer, j As Integer, pctCompl As Integer

2. أضف حلقة مزدوجة.

For i = 1 To 20
    For j = 1 To 5

    Next j
Next i

أضف الأسطر التعليمات البرمجية التالية (في 3 و 4 و 5) إلى الحلقة.

3. استخدم الدالة RandBetween لاستيراد رقم عشوائي بين 20 و 100.

Cells(i, j).Value = WorksheetFunction.RandBetween(20, 100)

4. تهيئة متغير pctCompl. يكتب سطر الرمز الثاني قيمة المتغير pctCompl وبعض النص الوصفي في شريط الحالة.

pctCompl = (i - 1) * 5 + (j * 1)
Application.StatusBar = "Importing Data.. " & pctCompl & "% Completed"

مثال: بالنسبة إلى i = 3 ، j = 1 ، (3 - 1) * 5 + (1 * 1) = تم إكمال 11٪.

5. نستخدم أسلوب Wait في كائن Application لمحاكاة ماكرو طويل.

Application.Wait Now + TimeValue("00:00:01")

6. لاستعادة نص شريط الحالة الافتراضي ، قم بتعيين الخاصية StatusBar إلى False (خارج الحلقة).

Application.StatusBar = False

النتيجة عند النقر فوق زر الأمر الموجود على الورقة:

Excel VBA StatusBar خاصية النتيجة

ملاحظة: يمكنك مقاطعة ماكرو في أي وقت بالضغط على Esc أو Ctrl + Break. لمزيد من الرؤية البصرية ، راجع برنامج مؤشر التقدم.

اقرأ أيضًا: