در اختیار گرفتن نوار وضعیت صفحه اکسل

[shamsololama]

با درود فراوان
زمانی که در صفحه اکسل عملی را انجام می دهیم گاهی در نوار وضعیت پایین صفحه اکسل یعنی دقیقا بالای استارت منوی ویندوز , اطلاعاتی ظاهر میشود که ما را در انجام عملیات راهنمایی می کند
مثال وقتی که در یک سل شروع به نوشتن می کنیم در نوار وضعیت کلمه Enter ظاهر می شود که راهنمایی می کند که برای ثبت نوشته در آن سل باید در نهایت Enter را بفشاریم و زمانی که یک سل را کپی می کنیم و یا صفحه را save می کنیم نیز راهنمایی در مورد آن ظاهر میشود
حال ما با یک ماکرو می خواهیم در یک زمان معین چیزی که مورد نظر ما است در آنجا بنویسدالبته بصورت حرف به حرف که برای این کار از ماکرو زیر استفاده می کنیم.
جمله مورد نظر ما dorood bar dostan aziz Dar gorohe Exceliranهستش که می توانید بجای آن هر چیز دیگری را بنویسد.
چنین نوار وضعیتی در پایین صفحه های ایتنرنت نیز دیده می شود

که اگر بخواهیم بدون در نظر گرفتن زمان و یکباره متن در نوار وضیعت قرار بگیرد کافیست بنویسیم

(متن موردنظر)=Application.StatusBar


کد :


Sub StatusBar()
Dim text
text = "dorood bar dostan aziz Dar gorohe Exceliran"
For i = 1 To Len(text)
Application.StatusBar = Left(text, i)
Application.Wait (Now + TimeValue("0:00:001"))
Next i
Application.Wait (Now + TimeValue("0:00:10"))
Application.StatusBar = False
End Sub

بدرود:blush:

فایل نمونه
[attachment=6]

[Amir Ghasemiyan]

به نظر مياد فايل مشكل داره.
از اين فايل استفاده كنيد دوستان

[Skynet]

با سلام و احترام
با اجازه اساتید عزیز، من هم یک نکته کوچک به مبحث مربوطه اضافه می کنم .
اگر نیاز بود همواره با باز کردن اکسل در StatusBar، متن مورد نظر بصورت ثابت نمایش داده بشه، می شه از کد زیر هم برای این کار اضافه کرد.



Private Sub Workbook_Open()
Application.StatusBar = "Hello My Friend ! "
End Sub





14482