Jak si vytvoříte tlačítko na spuštění makra?

Do Ikon v >Menu< si vložte Ikonu s "Tlačítkem", která vytváří tlačítka pro spouštění maker. Jak?

Klikněte pravým tlačítkem myši na Ikony, které máte již nainstalované v >Menu<

Vyberte = Vlastní > Příkazy > Formuláře

Vyberte " Tlačítko", a tahem myši ho vložte mezi Ikony. Zavřete okno.

Po kliknutí na ikonu "Tlačítko" klikněte na místo v "Listu" kde chcete tlačítko mít a tahem myší určete jeho velikost. Po puštění myši se Vám nabídne seznam maker, které k tlačítku můžete připojit. Vyberte makro, které chcete aby bylo "Tlačítkem" spuštěno. V našem případě to bude makro "Pokus".

Pokud kliknete nyní na "Tlačítko", makro se automaticky spustí.

Pokud zkoušíte makro umístěné níže, přejmenujte "List" ve kterém je "Tlačítko" na > "Pokus".

Zkopírujte si makro, které najdete níže. Kam? Do Modulu v Excelu.

Jak? V menu Excelu vyberte = Nástroje > Makro > Editor Visual Basic

V Editoru Visual Basic  najdete soubor, do kterého chcete modul vložit. Pravá myš > Vložit > Modul

Po nakopírování makra do "Modulu" zavřete Visual Basic. Klikněte pravým tlačítkem myši na "Tlačítko" a zvolte > >Přiřadit makro. Z nabídky maker vyberte "Pokus". "OK"

Po kliknutí na "Tlačítko" makro provede to, na co bylo naprogramováno.

Jak si nahrajete sami makro?

v Menu > Nástroje > Makro > Nahrát nové makro.

Od této chvíle všechno co uděláte v listu nebo v sešitu je nahráváno. Makro, které je uvedeno dole bylo nahráno automaticky.

Nahrávání makra se ukončí v Menu > Nástroje > Makro > Zastavit nahrávání.

Řádek “Application.ScreenUpdating = False“ však již byl připsán ručně a znamená, že se průběh makra nezobrazuje na obrazovce.

Nahráváním se dá programovat pouze jednoduché makro, ale dají se tak získat cenné zkušenosti z jazyka Visual Basic.

Sub POKUS()
'
' POKUS Macro
' Macro recorded 1/8/00 by EXCELMAKRA'

' Makro překopíruje hodnoty z buněk A1 až A5 do buněk B1 až B5.

' To znamená, že pokud budete mít v buňkách A1 až A5 výpočty, překopírují se pouze jejich výsledky.

' Kurzor se poté vrátí na pozici A1

Application.ScreenUpdating = False
Sheets("Pokusny").Select
Range("A1:A5").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub

' Makro by mělo být, po překopírování, stejně barevné jako zde.

Zpět na hlavní stránku

 

 

* Kurzy * Akcie * Práce * Zájezdy * Zájezdy * Meteobox * Auto *