پیغام انتظار

**ssehsan13** · 2015/04/03

با سلام ایا روشی هست در زمانی که کد برنامه در حال اجرا هست پیغام " لطفا منتظر بمانید " روی صفحه ظاهر شود ؟ ممنون

اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

سیستم تبلیغات اکسل ایران

**panahi88** · 2015/04/11

نوشته اصلی توسط ssehsan13

با سلام ایا روشی هست در زمانی که کد برنامه در حال اجرا هست پیغام " لطفا منتظر بمانید " روی صفحه ظاهر شود ؟ ممنون

سلام
از این کد استفاده کنید:

کد:

Sub Update_Me()
UserForm1.Show برای نمایش پیغام لطفا منتظر بمانید....
Application.StatusBar = "Please be patient...  ||||         40%"  برای نشان دادن درصد انجام کار در نوار پایینی (StatusBar)
کدهای شما....
Application.StatusBar = "Please be patient...  ||||||       60%"  برای نشان دادن درصد انجام کار در نوار پایینی (StatusBar)
کدهای شما....
Application.StatusBar = "Please be patient...  ||||||      80%"  برای نشان دادن درصد انجام کار در نوار پایینی (StatusBar)
کدهای شما...


Application.StatusBar = "Please be patient...  |||||||||    90%"
UserForm1.Hide برای مخفی کردن پیغام منتظر بمانید...
End Sub