كيفية إظهار/إخفاء شريط الحالة باستخدام vba؟

في VBA، توجد خاصية “شريط الحالة” والتي يمكن أن تساعدك على عرض قيمة في شريط الحالة، وهناك أيضًا “DisplayStatusBar” لإخفاء حالة نافذة Excel وإظهارها. عند استخدام هذه الخصائص، يجب عليك إعادة تعيين شريط الحالة إلى النهاية، وإلا فإن الرسالة أو الإعداد الأخير سيبقى هناك.

سنرى في البرنامج التعليمي بعض الأمثلة التي يمكننا استخدامها عند العمل في برنامج Excel.

إظهار قيمة في شريط الحالة

كما قلت، يمكنك استخدام خاصية شريط الحالة لعرض قيمة في شريط الحالة. في الكود أدناه، قمت باستخدام القيمة “Hello” لإضافتها إلى شريط الحالة.

1. استخدم الكلمة الأساسية “التطبيق” للإشارة إلى تطبيق Excel.
2. اكتب فترة للحصول على قائمة بالخصائص والأساليب.
3. حدد خاصية “شريط الحالة”.
4. في النهاية، استخدم علامة المساواة لتحديد القيمة التي تريد عرضها في شريط الحالة.

 Sub vba_status_bar() Application.StatusBar = "Hello" End Sub

إخفاء شريط الحالة باستخدام VBA

لنفترض الآن أنك إذا كنت تريد إخفاء شريط الحالة، فيمكنك استخدام DisplayStatusBar وتحديد هذه الخاصية على “False” ( ضع في اعتبارك الكود التالي ).

1. استخدم الكلمة الأساسية “التطبيق” للإشارة إلى تطبيق Excel.
2. اكتب فترة للحصول على قائمة بالخصائص والأساليب.
3. حدد خاصية “DisplayStatusBar”.
4. في النهاية، استخدم علامة المساواة لتحديد “خطأ”.

 Sub vba_status_bar_hide() Application.DisplayStatusBar = False End Sub

تحديث التقدم في شريط الحالة

تعرض عمليات تنفيذ التعليمات البرمجية اللاحقة عداد التقدم على شريط الحالة باستخدام الرقم من 1 إلى 100، والذي يمكنك تغييره حسب الحاجة.

 Sub vba_status_bar_update() Dim x As Integer Dim iTimer As Double 'you can change the loop if you need For x = 1 To 100 'dummy loop to run, you can change it as well iTimer = Timer Do Loop While Timer - MyTimer < 0.03 Application.StatusBar = "Progress: " & x & " of 100: " & Format(x / 100, "Percent") DoEvents Next x Application.StatusBar = False End Sub

نقاط مهمة يجب تذكرها

1. تحتاج إلى استخدام “التطبيق” مع خصائص شريط الحالة لاستخدامها.
2. بمجرد عرض رسالة على الحالة، تحتاج إلى مسح تلك الرسالة.