MS Excel

Office 2007
Na karte Vyvojar (ta neni standardne videt, musi se povolit jeji zobrazeni v Moznosti aplikace Excel/Oblibene) / Vlozit / Ovldaci prvky ActiveX / Prikazove tlacitko.
Na tlacitko pravy klik mysi - Zobrazit kod - ten by mel vypadat takto:Private Sub CommandButton1_Click()
Worksheets("List2").Activate
ActiveSheet.Range("E5").Select
End Sub

Pak uz jen opustit rezim navrhu a vyzkouset to. Popr upravit vlastnosti tlacitka (popis, velikost, atd: pravy klik, Vlastnosti).citovat

Zkus t5eba toto ...
Private Sub PridejTlacitko()
dim B as Object
with range("A20:B23")
Sat B = ActiveSheet.Buttons.add(.left,.top,.width,.height)
end with

Width b
.Name = "But_click"
.OnAction = "MojeMakroNaSmazani"
.Characters.text = "Smazat"
end with
End Sub
citovat