Cuprins
Când aveți un macro / cod vba mare care trebuie să ruleze timp de multe minute, puteți schimba cursorul pe clepsidră sau cursor în așteptare (pe baza setărilor sistemului) pentru perioada în care macro-ul rulează. După finalizarea macro-ului, cursorul poate fi readus la cursorul implicit.
Acesta este un exemplu de cod care arată cum puteți schimba cursorul.
Opțiune explicită
Sub macro1 ()
Application.Cursor = xl Așteptați
‘Cod aici
Application.Cursor = xlDefault Sfârșitul Sub
- După declarațiile slabe (acest eșantion de cod nu are încă), le setăm Application.Cursor = xl Așteptați la începutul codului.
- Apoi, puteți include orice cod aveți nevoie pentru a rula. Dacă trebuie să apelați mai multe subs / proceduri, puteți face acest lucru aici sau pur și simplu introduceți întregul cod aici.
- Apoi, chiar înainte de declarația End Sub, trebuie să resetați cursorul la valorile implicite. Facem acest lucru folosind linia Application.Cursor = xlDefault
- Puteți include toate celelalte afirmații de care aveți nevoie Application.ScreenUpdating = FalssauApplication.DisplayAlerts = Falsimpreuna cu Application.Cursor = xl Așteptațiafirmație. În mod similar, puteți include Application.ScreenUpdating = Adevărat sau Application.DisplayAlerts = Adevărat impreuna cu Application.Cursor = xlDefaultafirmație.
- Pentru a copia acest cod, apăsați tastele Alt + F11 de pe tastatură. Aceasta va deschide modulul de cod. În partea stângă veți vedea Microsoft Excel Objects. Faceți clic dreapta și selectați Insert și apoi selectați Module. Copiați codul în fereastra de cod din dreapta.
