Als u een grote vba-macro / code heeft die vele minuten moet worden uitgevoerd, kunt u de cursor wijzigen in de zandloper- of wachtcursor (op basis van uw systeeminstelling) voor de periode dat de macro wordt uitgevoerd. Zodra de macro is voltooid, kan de cursor worden teruggezet naar de standaardcursor.
Dit is een voorbeeldcode die laat zien hoe u de cursor kunt wijzigen.
Optie expliciet
Submacro1()
Toepassing.Cursor = xlWacht
'Code hier'
Toepassing.Cursor = xlStandaard Einde sub
- Na de dim-statements (deze voorbeeldcode heeft er nog geen), zetten we Toepassing.Cursor = xlWacht aan het begin van de code.
- Vervolgens kunt u elke code opnemen die u nodig hebt om uit te voeren. Als u meerdere subs / procedures moet aanroepen, kunt u dit hier doen of gewoon de volledige code hier invoeren.
- Dan, net voor de End Sub-instructie, moet u de cursor terugzetten naar de standaardwaarde. We doen dit met behulp van de lijn Toepassing.Cursor = xlStandaard
- Je kunt alle andere verklaringen opnemen die je nodig hebt, zoals Application.ScreenUpdating = FalseofApplication.DisplayAlerts = Falsesamen met de Toepassing.Cursor = xlWachtuitspraak. Op dezelfde manier kunt u opnemen: Application.ScreenUpdating =True of Application.DisplayAlerts = True samen met de Toepassing.Cursor = xlStandaarduitspraak.
- Om deze code te kopiëren, drukt u op de toetsen Alt + F11 op het toetsenbord. Hiermee wordt de codemodule geopend. Aan de linkerkant ziet u Microsoft Excel Objects. Klik met de rechtermuisknop en selecteer Invoegen en selecteer vervolgens Module. Kopieer de code in het codevenster aan de rechterkant.