MS Excel

Téma: Prirazeni OnClick makra CommandButtonu pres VBA

Zaslal/a Tex 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ěď >

r13(2.10.2022 11:20)#053485

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

Tex(3.10.2022 1:57)#053495

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

r13(3.10.2022 9:44)#053498

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-userform citovat

r13(3.10.2022 9:47)#053499

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

Stalker(3.10.2022 10:49)#053501

Další studijní materiál:
https://www.encodedna.com/excel/how-to-add-events-to-dynamically-created-controls-in-excel-using-vba.htm 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.