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.