طلب مساعدة في كود شاشة افتتاحية

[مجاهد2013]

السلام عليكم أحبتي 

أرجو مساعدتكم في هذا المرفق : عملت شاشة افتتاحية على ان يظهر فورم الشاشة دون ظهور ملف الاكسل و بعد لحظات يفتح الملف على شست MAIN

أريد عمل كود لشريط انتظار : جاري تهيئة البرنامج ........كما في الصورة المرفقة و شكرا

Classeur1111.xlsm

[أ / محمد صالح]

بعد استعمال البحث في المنتدى ستجد الكثير 

إن شاء الله تفيدك هذه المواضيع 

https://www.officena.net/ib/search/?q=progress bar&updated_after=any&sortby=relevancy&search_and_or=and

بالتوفيق 

[مجاهد2013]

أ محمد صالح السلام عليكم 

و الله أنا قمت بمحاولة ممكن تعدل على الكود لكي يتماشى مع الprogress و تصحح لو فيه خلل و شكرا مسبقا

Classeur1111.xlsm

[أ / محمد صالح]

رائع جدا تطبيقك للفكرة

ويمكنك استعمال هذا الكود فقط في النموذج

Private Sub UserForm_Activate()
minutes = 0.1
For a = 1 To 100
timer_avant = Timer
Do While Timer < timer_avant + minutes
DoEvents
Me.Im1.Width = a * 474 / 100
Me.Nour1.Caption = a
Loop
Next
Me.Hide
End Sub

لاحظ التغيير في عرض التسمية im1.width

حيث 474 هو العرض الأساسي للتسمية

ونحن قسمنا 474 على 100 ثم ضربنا في a لنحصل على العرض الكامل في نهاية العداد a

بالتوفيق 

[مجاهد2013]

الف شكر و تحياتي أستاذنا

[أ / محمد صالح]

يمكنك تجربة هذا المرفق بإخراج آخر

وتكبير حجم شريط التقدم

وكتابة النسبة في المنتصف في تسمية واحدة شفافة 

بالتوفيق 

Classeur1111.rar