ماكرويي براي PROGRESS BAR

[اهورا]

دوستان عزيز سلام
يه سوالي برام پيش اومده كه ممنون ميشم اگر دوستان اهل فن در اين خصوص بنده رو راهنمايي كنن.

مطمئناً تا حالا همگي توي صفحات اينترنت و يا نرم افزار ها با نوار پروگرس رو به رو شدين
منظورم همون نواري هستش كه داخلش در هنگام برنامه مثلاً نوشته " لطفا صبر نماييد" و يا درصد پيشرف برنامه رو نشون ميده

ميخوام بدونم آيا اين امكان در داخل ماكرو نويسي هم وجود داره؟؟؟
مشكل بنده از جايي آغاز شده كه يك ماكرو نوشتم براي جدا سازي اطلاعات از يه فايل اصلي و وقتي ماكرو رو اجرا ميكنم حدود 30 ثانيه طول ميكشه تا اطلاعات جديد رو بارگذاري كنه و قصد دارم به صورت موازي با اين ماكرو ماكروي ديگري فعال بشه و نوار پروگرس رو نشون بده و يا پيفام بده كه " لطفا صبر نماييد".
فقط اينكه با msgbox سعي كردو نشد..
ممنون ميشم دوستان اهل فن بنده رو راهنمايي كنن

[MEYTI]

RE: ماكرويي براي PROGRESS BAR

با سلام دوست عزیز کد زیر و از یه سایت لاتین پیدا کردم جالب

Application.Cursor = xlWait 'built in application running cursor
 ' makes sure that the statusbar is visible
Application.DisplayStatusBar = True
 'add your message to status bar
Application.StatusBar = "Please wait while macro is running..."
 
 'YOUR CODE HERE




 'restore default cursor
Application.Cursor = xlDefault
 ' gives control of the statusbar back to the programme
Application.StatusBar = False 

[s.cheraghi]

RE: ماكرويي براي PROGRESS BAR

فایل نمونه رو مشاهده کنید

[مهندس تبریزی]

سلام
ویندوز من "ویندوز 10-64 بیتی" و اکسل من "2016 -64 بیتی " هست فایل باز نمیشه.
سپاس


- - - Updated - - -

فایل نمونه رو مشاهده کنید

سلام
ویندوز من "ویندوز 10-64 بیتی" و اکسل من "2016 -64 بیتی " هست فایل باز نمیشه.
سپاس