Kada imate veliku vba makronaredbu / kôd koji se mora izvoditi mnogo minuta, možete promijeniti kursor na pješčani sat ili kursor na čekanju (ovisno o postavkama vašeg sustava) za razdoblje dok se makro izvodi. Nakon što je makro dovršen, kursor se može vratiti na zadani kursor.
Ovo je primjer koda koji pokazuje kako možete promijeniti kursor.
Opcija Eksplicitno
Podmakro1 ()
Aplikacija.Kursor = xlČekajte
‘Kod ovdje
Application.Cursor = xlDefault Kraj podm
- Nakon dim naredbi (ovaj uzorak koda još nema), postavili smo Aplikacija.Kursor = xlČekajte na početku koda.
- Zatim možete uključiti bilo koji kôd koji vam je potreban za pokretanje. Ako trebate pozvati više pretplata / procedura, to možete učiniti ovdje ili ovdje unijeti cijeli kod.
- Zatim neposredno prije naredbe End Sub morate vratiti kursor na zadano. To radimo pomoću linije Application.Cursor = xlDefault
- Možete uključiti sve ostale izjave koje vam se sviđaju Application.ScreenUpdating = NetačnoiliApplication.DisplayAlerts = Netačnozajedno sa Aplikacija.Kursor = xlČekajteizjava. Slično, možete uključiti Application.ScreenUpdating = Istina ili Application.DisplayAlerts = Istina zajedno sa Application.Cursor = xlDefaultizjava.
- Za kopiranje ovog koda pritisnite tipke Alt + F11 na tipkovnici. Ovo će otvoriti kodni modul. S lijeve strane vidjet ćete Microsoft Excel objekte. Desnom tipkom miša kliknite i odaberite Umetni, a zatim odaberite Modul. Kopirajte kôd u kôd prozor s desne strane.