< návrat zpět

MS Excel


Téma: Prirazeni OnClick makra CommandButtonu pres VBA rss

Zaslal/a 2.10.2022 8:11

Rád bych vytvořil makro v ramci userformu, které vytvoří v danem formulari tlačítko s určitým popiskem a tomu tlačítku přiřadí OnClick event, tj. nastaví se událost/makro, které se spustí, když se na to tlačítko klikne. Ale nevim, jak zapsat to prirazeni eventu.. Nevěděl by někdo jak na to? Melo by to vypada nejak takhle...

-----------------------------
Private Volba as String

Sub VytvorForumular()

Dim NewButton As OLEObject

Set CmdBtn = ButtonForm.Controls.Add("Forms.CommandButton.1")

With CmdBtn

.Caption = "Volba1"
.onclick = UlozVolbu(.Caption) 'Tady nevim jak to zapsat (to ".onclick" jsem si vymyslel)

End With

end sub

Sub UlozVolbu(SelValue as String)

Volba = SelValue

end sub

Zaslat odpověď >

#053485
avatar
Tak všetko priprav normálne vopred, priraď tomu tlačidlu vlastnosť Visible = False a na daný príkaz už len zapneš jeho viditeľnosť.citovat
#053495
avatar
Bohužel si nemůžu všechno připravit předem, protože bych rád vytvořil dynamický formulář, kde se počet tlačítek mění dle potřeby, tj. jednou 2, jindy zase 4 atd.citovat
#053498
avatar
Aj viac tlačidiel by sa dalo pripraviť dopredu, ale ok, tu máš link na riešenie:
https://stackoverflow.com/questions/566770/assign-on-click-vba-function-to-a-dynamically-created-button-on-excel-userformcitovat
#053499
avatar
Procedúra Private Sub UserForm_Activate() musí byť na konci samozrejme ukončená príkazom End Sub (t.j. ten apostrof je tam chybne, treba ho vymazať)citovat
#053501
Stalker
Další studijní materiál:
https://www.encodedna.com/excel/how-to-add-events-to-dynamically-created-controls-in-excel-using-vba.htmcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

přečíst platbu a zapsat

PavDD • 25.11. 14:02

Zrušení podmíněného formátovní vložením do funkc

Jiří497 • 25.11. 12:56

Vložení na první volnou buňku ve sloupci.

PavelJanec • 25.11. 9:05

Vložení na první volnou buňku ve sloupci.

PavelJanec • 25.11. 8:53

Zrušení podmíněného formátovní vložením do funkc

Krifry • 25.11. 8:52

Prvních 5

Fantasyk • 25.11. 3:57

Vložení na první volnou buňku ve sloupci.

elninoslov • 25.11. 0:45