تغییر نشانگر موس در هنگام اجرا ماکرو

[a.dal65]

با سلام
دوستان من وقتی از طریق UserForm یک سطر رو پاک می کنم (چون تعداد سطر ها زیاده و یه شماره گذاری مجدد انجام میشه) این کار ممکنه 5 تا 10 ثانیه طول بکشه.
میخوام وقتی ماکرو اجرا شد ایکون موس به ساعت شنی تبدیل بشه و بعد از اتمام کار و اتمام کد ماکرو به نشانگر موس تبدیل بشه.
از توی اینترنت هم پیدا کردم ولی کار نکرد متاسفانه

Sub macro1()

 Application.Cursor = xlWait

 ‘Code here

 Application.Cursor = xlDefault

 End Sub

از Application.ScreenUpdating = False و True هم استفاده کردم بازم نشد

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

[Amir Ghasemiyan]

سلام
من پیشنهاد میکنم بجای اینکار محاسبات رو منوال کنید بعد که کل فرایند تموم شد اتومات کنین
اینطوری یکبار فقط محاسبات انجام میشه و دیگه این مدت زمان طول نمیکشه
هرچند من کدتون رو ندیدم ولی فکر کنم با این روش سرعت انجام کدتون خیلی میره بالا

[a.dal65]

باور کنید این کارو هم کردم ولی اگه بشه ایکون موس تغییر کنه عالی میشه.
Sheet4.EnableCalculation = False

[Amir Ghasemiyan]

باور کنید این کارو هم کردم ولی اگه بشه ایکون موس تغییر کنه عالی میشه.
Sheet4.EnableCalculation = False

برای تغییر ماوس سرچ کردم چیز بدرد بخوری پیدا نکردم. بعید میدونم به این راحتیا بشه
در مورد کد هم لطفا این کد رو امتحان کنید:

Application.Calculation=xlCalculationManual


'your codes

Application.Calculation =xlCalculationAutomatic

[a.dal65]

مممنون بابت کد.
واقعا سرعت بخشید به پروسه ، و سریع تر انجام شد .
والا تقریبا با یه ترفند من دراوردی به چیزی که میخواستم رسید.
در هنگام اجرا ماکرو UserformروUnload کردم و بعد از اتمام کار دوباره Show کردم و کار کرد.

Application.Cursor = xlWait
Unload Me




code hereeee




Application.Cursor = xlDefault
UserForm.Show