[حل شده] تغییر نشانگر موس در هنگام اجرا ماکرو

[a.dal65]

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

[B][I]Sub macro1()[/I][/B]

 [B][I]Application.Cursor = xlWait[/I][/B]

 [B][I]‘Code here[/I][/B]

[B] [B][I]Application.Cursor = xlDefault[/I][/B]

 [/B][B][I]End Sub[/I][/B]

از 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