Jeśli masz duże makro / kod vba, który musi działać przez wiele minut, możesz zmienić kursor na klepsydrę lub kursor oczekiwania (w zależności od ustawień systemu) na okres, w którym działa makro. Po zakończeniu makra kursor można przywrócić do domyślnego kursora.
To jest przykładowy kod, który pokazuje, jak zmienić kursor.
Opcja Wyraźna
Submakro1()
Aplikacja.Kursor = xlCzekaj
„Kod tutaj”
Application.Cursor = xlDefault Napis końcowy
- Po deklaracjach dim (ten przykładowy kod nie ma jeszcze żadnych) ustawiamy Application.Cursor = xlCzekaj na początku kodu.
- Następnie możesz dołączyć dowolny kod, który chcesz uruchomić. Jeśli potrzebujesz wywołać wiele subs / procedur, możesz to zrobić tutaj lub po prostu wprowadzić tutaj cały kod.
- Następnie tuż przed instrukcją End Sub musisz zresetować kursor z powrotem do wartości domyślnych. Robimy to za pomocą linii Application.Cursor = xlDefault
- Możesz dołączyć wszystkie inne potrzebne stwierdzenia, takie jak Application.ScreenUpdating = FałszlubApplication.DisplayAlerts = Falserazem z Aplikacja.Kursor = xlCzekajoświadczenie. Podobnie możesz uwzględnić Application.ScreenUpdating = Prawda lub Application.DisplayAlerts = Prawda razem z Application.Cursor = xlDefaultoświadczenie.
- Aby skopiować ten kod, naciśnij klawisze Alt + F11 na klawiaturze. To otworzy moduł kodu. Po lewej stronie zobaczysz obiekty Microsoft Excel. Kliknij prawym przyciskiem myszy i wybierz Wstaw, a następnie wybierz Moduł. Skopiuj kod do okna kodu po prawej stronie.