Obsah
Keď máte veľké makro / kód vba, ktorý musí bežať mnoho minút, môžete zmeniť kurzor na presýpacie hodiny alebo kurzor čakania (na základe nastavenia systému) na obdobie, keď je makro spustené. Po dokončení makra je možné kurzor vrátiť späť na predvolený kurzor.
Toto je ukážkový kód, ktorý ukazuje, ako môžete zmeniť kurzor.
Možnosť explicitná
Čiastkové makro1 ()
Application.Cursor = xlWait
„Kód tu
Application.Cursor = xlDefault Koniec pod
- Po príkazoch dim (tento vzorový kód ešte nemá) sme začali Application.Cursor = xlWait na začiatku kódu.
- Potom môžete zahrnúť ľubovoľný kód, ktorý potrebujete na spustenie. Ak potrebujete zavolať viac čiastkových procedúr / procedúr, môžete to urobiť tu alebo stačí zadať celý kód tu.
- Potom tesne pred príkazom End Sub musíte resetovať kurzor späť na predvolené hodnoty. Robíme to pomocou linky Application.Cursor = xlDefault
- Môžete zahrnúť všetky ostatné vyhlásenia, ktoré sa vám páčia Application.ScreenUpdating = FalsealeboApplication.DisplayAlerts = Falsespolu s Application.Cursor = xlWaitvyhlásenie. Podobne môžete zahrnúť Application.ScreenUpdating = True alebo Application.DisplayAlerts = Pravda spolu s Application.Cursor = xlDefaultvyhlásenie.
- Tento kód skopírujete stlačením klávesov Alt + F11 na klávesnici. Tým sa otvorí modul kódu. Na ľavej strane uvidíte objekty programu Microsoft Excel. Kliknite pravým tlačidlom myši, vyberte položku Vložiť a potom vyberte položku Modul. Skopírujte kód do okna kódu vpravo.
