Obsah
Když máte velké makro / kód vba, které musí běžet mnoho minut, můžete změnit kurzor na přesýpací hodiny nebo kurzor čekání (na základě nastavení systému) na období, kdy je makro spuštěno. Jakmile je makro dokončeno, lze kurzor obnovit zpět na výchozí kurzor.
Toto je ukázkový kód, který ukazuje, jak můžete změnit kurzor.
Možnost Explicitní
Dílčí makro1 ()
Application.Cursor = xlWait
„Kód zde
Application.Cursor = xlDefault End Sub
- Poté, co příkazy dim (tento ukázkový kód zatím žádné nemá), nastavíme Application.Cursor = xlWait na začátku kódu.
- Pak můžete zahrnout jakýkoli kód, který potřebujete ke spuštění. Pokud potřebujete zavolat více subs / procedur, můžete tak učinit zde nebo zde zadat celý kód.
- Poté těsně před příkazem End Sub musíte kurzor resetovat zpět na výchozí hodnoty. Děláme to pomocí linky Application.Cursor = xlDefault
- Můžete zahrnout všechna další prohlášení, která potřebujete Application.ScreenUpdating = FalseneboApplication.DisplayAlerts = Falsespolu s Application.Cursor = xlWaittvrzení. Podobně můžete zahrnout Application.ScreenUpdating = True nebo Application.DisplayAlerts = True spolu s Application.Cursor = xlDefaulttvrzení.
- Tento kód zkopírujete stisknutím kláves Alt + F11 na klávesnici. Tím se otevře modul kódu. Na levé straně uvidíte objekty aplikace Microsoft Excel. Klikněte pravým tlačítkem a vyberte Vložit a poté vyberte Modul. Zkopírujte kód do okna kódu vpravo.
