MS Excel

Téma: Vytvoření "tlačítka"

Zaslal/a jitkakriz 7.4.2011 9:15

Dobrý den, můžete mi prosím poradit, jak lze vytvořit tlačítko, které mne např.přenese na buňku na dalším listu souboru?

Zaslat odpověď >

Poki(7.4.2011 9:48)#004549

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

Brbla(13.4.2011 9:35)#004629

Mám obdobnou siuaci:
Do uzamčené tabulky ukládám data.
Pro čtení uživatelům tato data makrem načtu, vložím do jiného listu a vyhledám poslední záznam. Poskočím o 2 buňky níže.
Do této aktivní buňky bych rád vložil tlačítko pro smazání tohoto listu, který, po uzavření, nemusí být aktuální.
Adresa aktivní buňky se dynamicky mění.
Prosím o radu či nápad.citovat

RomanNTA(20.5.2011 12:25)#005025

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

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.