Tvorba tlačítka pro smazání v excelu

Od: Datum: 04.09.12 17:59 odpovědí: 20 změna: 08.09.12 18:14

Dobrý den,

mám ještě jeden problém, který jsem zatím nebyl schopen vyřešit.

1. Jde nějak v excelu vytvořit tlačítko které bych mohl nadefinovat tak, aby po kliknutí zvolený sloupec celý vymazal nebo přepsal hodnoty na 0?

2. Jak vytvořit tlačítko které by mi zkopírovalo po kliknutí hodnoty z jednoho sloupce do druhého?

Děkuji


avatar
Upozornění
Tato otázka je 4 roky bez odpovědi a proto byla uzavřena.
Máte-li podobnou otázku, a nenašli jste vhodnou odpověď, založte novou otázku.
Seznam odpovědí:
 
moment čekejte prosím, probíhá přenos dat...
Zobrazení struktury odpovědí v otázce
Skrytí struktury odpovědí v otázce
Zobrazení struktury odpovědí v otázce

 

Odpovědi na otázku:
Od: zabu
Datum: 04.09.12 18:57
 

Vložit tlačítko, a přiřadit k němu následující makro. Jinak záznam do Makra: Označit sloupec, DELETE,

1.

Sub tlačítko1_Klepnout()
Range("A2:A55").Select
Selection.ClearContents
End Sub

První řádek Range nastavuje oblast výběru ("od:do")

Druhý řádek je snad jasný: smazat obsah z výběru.

2.

Takhle vypadá záznam do makra, operace kterou asi znáte. Označit část sloupce CTRL+C, Označit cílovou buňku, CTRL+V.

Sub copy()
Range("A2:A55").Select
ActiveWindow.SmallScroll Down:=-27
Selection.copy
ActiveWindow.SmallScroll Down:=-24
Range("C2").Select
ActiveSheet.Paste
End Sub

Opět přiřadit k tlačítku z nabídky Prvků.

 
Od: zabu
Datum: 04.09.12 18:58
 

Místo toho smajlíka má být dvojtečka.

 
Od: genny
Datum: 04.09.12 19:46
 

Děkuji to je skvělé, jste opravdu dobrý

Chtěl bych se Vás ještě zeptat jak to udělat aby se mi v druhém případě zkopírovaly sloupce z více listů, jde to prosím nějak přes to jedno tlačítko?

Kde berete tyto příkazy maker? Je to někde vypsané?

Mockrát děkuji

Od: zabu
Datum: 04.09.12 19:56
 

No je to vypsané v helpu. Ale pro učení se Maker v Excelu, je nejlepší zapnout si záznam makra, udělat v excelu co potřebuju, vypnout záznam, a pak si to makro(záznam toho makra) prohlednout, a zkusit ho editovat a zkoušet, co to provede. Chce to spoustu času, a chuť experimentovat. Člověk má vzrušující život. Jak pravil jeden můj kamarád: Poněvadž ničemu nerozumím, ustavičně experimentuji.

 
Od: zabu
Datum: 04.09.12 19:58
 

Jo zapomněl jsem na to kopírování z více listů. Jen se rozmnoží adresa v makru o pojmenování listu, a přidají se řádky pro každé kopírování(list) zvlášť.

 
Od: genny
Datum: 04.09.12 20:03
 

Nejde mi to, někde dělám chybu, neudělal by jste mi příklad? Kde to mám napsat? Nefunguje mi to :(

Od: zabu
Datum: 04.09.12 21:10
 

Musíte mít nainstalovanou podporu VB. V menu ji zapnete v nástroje/vlastní/panely nástrojů zaškrtnete VisualBasic

Objeví se Vám panel nástrojů, kde jeden z nich je ikona-takové modré kolečko, - záznam makra.

No tím si můžete zaznamenávat vlastní makra a pak je spouštět. Třeba těmi ovládacími prvky.

 
Od: genny
Datum: 04.09.12 22:15
 

Děkuji,

je to fakt jednoduchý udělat si to makro, já jen mám poté problém to makro přiřadit k příkazovému tlačítku.

Problém mi nastává v době, kdy dělám makro a používám více listů. :( Jak to makro prosím přiřazujete vy tomu příkazovému tlačítku?

Mě se to nechodí :(

Od: zabu
Datum: 04.09.12 21:24
 

Třeba takhle: Ale takový záznam Makra si můžete pořídit sám. Na tom nic není.

Sub copy()
Range("B3:B26").Select
Selection.copy
Application.CutCopyMode = False
Range("A3:A26").Select
Selection.copy
Range("B3").Select
ActiveSheet.Paste
Sheets("List2").Select
Application.CutCopyMode = False
Selection.copy
Sheets("List1").Select
Range("C3").Select
ActiveSheet.Paste
Sheets("List3").Select
Application.CutCopyMode = False
Selection.copy
Sheets("List1").Select
Range("D3").Select
ActiveSheet.Paste
End Sub

 
Od: genny
Datum: 04.09.12 22:29
 

Děkuji,
je to fakt jednoduchý udělat si to makro, já jen mám poté problém to makro přiřadit k příkazovému tlačítku.
Problém mi nastává v době, kdy dělám makro a používám více listů. Jak to makro prosím přiřazujete vy tomu příkazovému tlačítku?
Mě se to nechodí
Od: zabu
Datum: 04.09.12 22:46
 

Tady https://www.poradte.cz/pocita…pinaci-tlacitko-v-excelu.html

jsem radil něco podobného, tak se tam podívej.

 
Datum: 05.09.12 08:13
 
avatar


Já bych doplnil autora zabu


Když chcete mazat sloupec, pak ho nemusíte vybírat. Smažte dvojici Select-Selection.


Makro nahoře pak potom nevypadá takto:


1.


Sub tlačítko1_Klepnout()
Range("A2:A55").Select
Selection.ClearContents
End Sub


*


ale takto


1.


Sub tlačítko1_Klepnout()
Range("A2:A55").ClearContents
End Sub

Ohodnoceno: 1x
 
Od: zabu
Datum: 05.09.12 21:18
 

Good.*palec*.

 
Od: genny
Datum: 06.09.12 22:52
 

JJ to je skvělý, díky. Můžete mi prosím říci jak tomu příkazovému tlačítku přidáváte vytvořené makro?

Když to makro spietím samotné je vše vpořádku, jakmile se ho nějak přiřadím, nejspíš dělám nějakou chybu tam mi to s tím tlačítkem nefunguje, jak to přiřazujete vy prosím?
Děkuji

Datum: 07.09.12 13:03
 
avatar

nejdříve použijte funkci assign macro. Vyberte ten váš knoflík, najeďte kurzorem na tečkovaný okraj, stiskněte pravé tlačítko myši a objeví se vám okno se seznamem maker ve vašem sešitu. Vyberte si to správné a stiskněte OK.

Ohodnoceno: 2x
 
Od: genny
Datum: 07.09.12 16:38
 

Skvělé už to běží

Neběželo mi to když jsem dal příkazové tlačítko v ovládacích prvcích, musel jsem jej dát ve formuláři.

Chtěl bych se však zeptat, tlačítko v ovl. prvcích šlo změnit barvu ve vlastnostech, ale jak se změní barva tohoto tlačítka? Taková možnost tam není :(

 

Datum: 07.09.12 17:39
 
avatar

používejte nové prvky, co se jmenují ActiveX a ne ty form. Vložte tlačítko z ActiveX, vyberte ho, stiskněte pravé tlačítko myši a objeví se vám místní nabídka. Jedna položka se jmenuje Properties (Vlastnosti). Tam můžete vašemu knoflíku nastavit celou paletu barev.

Zajímavější je ta položka o řádek níž. Jmenuje se View Code. To náhled do řídícího modulu vašeho knoflíku. Sem musíte umístit odkaz na vaše makro.

Podívejte se na obrázek dole. Stiskněte nabídku View Code a uvidíte nové okno Microsoft Visual Basic a v něm něco takového

*

Private Sub CommandButton1_Click()

End Sub

*

mezi tyto dva řádky ručně dopňte název vašeho makra

Private Sub CommandButton1_Click()

#0000ff">NejakeMakro

End Sub

*

Stisknutí knoflíku spustí vaše makro. Mělo by běžet bez problémů. Jedním stisknutím můžete spustit i víc maker

*

Private Sub CommandButton1_Click()

#0000ff">NejakeMakro

#0000ff">NejakeDalsiMakro

End Sub

doplněno 08.09.12 07:02:

Doplněk pro otázku dole, jak vkládat prvky Active X.

Přidal bych obrázek, ale nemůžu, protože už jsem třikrát odpovídal.

Mrkněte se ale na ten váš obrázek. V nabídce máte kolonku Visual Basic. Tam to je. Otevřete si panel Visual Basic, umístěte si ho do vašeho menu a stiskněte ikonu s klíčem a kladívkem. To co děláte, už není Excel. To je programování ve VBA.

 
Od: genny
Datum: 07.09.12 19:31
 

Prosím kde najdu ActiveX? Nemám to vůbec v nabídce, mám office2003
Od: zabu
Datum: 07.09.12 21:37
 

Bohužel neporadím, já mám staré 97. Na nové nejsou penízky.

 
Od: genny
Datum: 08.09.12 18:14
 

Nejde mi však nijak vložit to tlačítko a pak změnit barvu tlačítka :(

 

 

 

Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz

 
Copyright © 2004-2016 Poradna Poradte.cz. Všechna práva na poradně Poradte.cz vyhrazena.