Wstawianie formantu formularza „Przycisk"

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

Rysunek 1. Formanty formularza Excel 2007

Rysunek 2. 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?

2. Przypisz Makro (rysunek 3, 4)

Rysunek 3. Przypisz Makro

Rysunek 4. Przypisywanie makra

3. Definiuj procedure Definiuj_przycisk w module1 (module?) (rysunek 5)

Rysunek 5. Procedure Definiuj_przycisk w module1

Sub Definiuj_przycisk()

ActiveSheet.Shapes("Button 2").Select

If Selection.Characters.Text = "Sortuj rosnąco" Then

Selection.OnAction = "Sortuj_rosnąco"

Else

Selection.OnAction = "Sortuj_malejąco"

End If

ActiveSheet.Shapes("Button 2").Select

If Selection.Characters.Text = "Sortuj rosnąco" Then

Selection.Characters.Text = "Sortuj malejąco"

Else

Selection.Characters.Text = "Sortuj rosnąco"

End If

End Sub

Selection.OnActlon = "Sortuj_rosnąco"

Przypisuje zaznaczonemu obiektowi makro Sortuj_rosnąco, które będzie uruchamiane po kliknięciu myszą (OnAction).

ActiveSheet.Shapes("Button 2").Select

Zaznaczenie obiektu.

Selection.Characters.Text = "rosnąco"

Wpisuje tekst na przycisku.

4. Modifikuj Makra Sortuj_rosnąco, Sortuj_malejąco

Sub Sortuj_rosnąco()

' Sortuj_rosnąco Makro

…

Definiuj_przycisk

End Sub

Sub Sortuj_malejąco()

' Sortuj_malejąco Makro

…

Definiuj_przycisk

End Sub

Definiuj_przycisk

Zmiana tekstu przycisku.