Kui teil on suur vba makro / kood, mis peab töötama mitu minutit, saate kursori muuta selle perioodi jooksul liivakellaks või ootelkursoriks (vastavalt teie süsteemi seadetele). Kui makro on lõpule viidud, saab kursori taastada vaikekursori.
See on näidiskood, mis näitab, kuidas saate kursorit muuta.
Valik Selge
Alammakro1 ()
Application.Cursor = xlOota
'Kood siin
Application.Cursor = xlDefault End Sub
- Pärast hämaraid avaldusi (sellel näidiskoodil pole veel ühtegi) määrasime Application.Cursor = xlOota koodi alguses.
- Seejärel saate lisada mis tahes koodi, mida vajate käivitamiseks. Kui teil on vaja helistada mitmele alam- / protseduurile, saate seda teha siin või lihtsalt sisestada siia kogu kood.
- Seejärel peate vahetult enne lauset End Sub aitama kursori tagasi vaikeseadetele. Me teeme seda joone abil Application.Cursor = xlDefault
- Võite lisada ka kõik muud vajalikud avaldused, näiteks meeldivad Application.ScreenUpdating = ValevõiApplication.DisplayAlerts = Valekoos Application.Cursor = xlOotaavaldus. Samamoodi võite lisada Application.ScreenUpdating = Tõsi või Application.DisplayAlerts = Tõsi koos Application.Cursor = xlDefaultavaldus.
- Selle koodi kopeerimiseks vajutage klaviatuuril klahve Alt + F11. See avab koodimooduli. Vasakul näete Microsoft Exceli objekte. Paremklõpsake ja valige Lisa ja seejärel valige Moodul. Kopeerige kood paremal asuvasse koodiaknasse.