Wstawianie formantu ActiveX „Przycisk"

Dla wygody użytkownika dobrze byłoby, aby makro było uruchamia­ne przyciskiem znajdującym się nad kolumną, według której odbywa się sortowanie.

Wstaw przycisk z Zakładki Deleloper (rysunek 1, 2) do komórki B2-B3 i w oknie dialogowyin które ujrzysz, przypisz do nadpis „Sortuj rosnąco.

Rysunek 2. Excel 2007 połączył znane z wcześniejszych wersji paski narzędzi Formularze i Przybornik formantów

Rysunek 2. Formant ActiveX „Przycisk”

Wstawianie codu

Zastanów się, jak możesz spowodować zmianę właściwości przycisku w zależności od ostatnio użytego makra?

Przyjmijmy zasadę, że gdy przycisk wyświetla informację „Sortuj malejąco" (co oznacza, tabela jest posortowana rosnąco), to kolejne kliknięcie przycisku spowoduje posortowanie tabeli malejąco i zmianę tekstu przycisku na „Sortuj rosnąco". Najwygodniej byłoby napisać: Jeżeli napis na przycisku brzmi „Sortuj malejąco", to przypisz makro „Sortuj_malejąco" i po jego wykonaniu zmień tekst na „Sortuj rosnąco". W przeciwnym razie przypisz makro „Sortuj_rosnąco" i po jego wykonaniu zmień tekst na „Sortuj malejąco". W ten sposób zapewnimy „przełączanie" w obie strony. Wystarczy teraz przetłumaczyć to polecenie na VBA (rysunek 3):

Rysunek 3. Cod „Przyciska” CommandButton1_Click