Når du har en stor vba -makro / kode som må kjøres i mange minutter, kan du endre markøren til timeglasset eller ventemarkøren (basert på systeminnstillingen) for perioden da makroen kjører. Når makroen er fullført, kan markøren gjenopprettes til standardmarkøren.
Dette er en eksempelkode som viser hvordan du kan endre markøren.
Alternativ Eksplisitt
Undermakro1 ()
Application.Cursor = xlWait
'Kode her
Application.Cursor = xlDefault Slutt Sub
- Etter de svake setningene (denne eksempelkoden har ikke noen ennå), setter vi Application.Cursor = xlWait i begynnelsen av koden.
- Deretter kan du inkludere hvilken som helst kode du trenger for å kjøre. Hvis du trenger å ringe til flere abonnenter / prosedyrer, kan du gjøre det her eller bare få hele koden angitt her.
- Så rett før End Sub -setningen må du tilbakestille markøren til standard. Vi gjør dette ved hjelp av linjen Application.Cursor = xlDefault
- Du kan inkludere alle de andre uttalelsene du trenger Application.ScreenUpdating = FalskellerApplication.DisplayAlerts = Falsksammen med Application.Cursor = xlWaituttalelse. På samme måte kan du inkludere Application.ScreenUpdating = True eller Application.DisplayAlerts = True sammen med Application.Cursor = xlDefaultuttalelse.
- For å kopiere denne koden, trykk på Alt + F11 -tastene på tastaturet. Dette åpner kodemodulen. På venstre side vil du se Microsoft Excel -objekter. Høyreklikk og velg Sett inn, og velg deretter modul. Kopier koden til kodevinduet til høyre.