Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno vba excel 2007 - modul triedy s tlačidlami v hárku

Prosím o radu:

V hárku mám vložených 31 ovládacích tlačítok formulára (prípadne ActiveX - Command button)
Nechcem každému tlačidlu priradovať vlastné procedúry, ale za pomoci modulu tried rozlíšiť, ktoré tlačidlo bolo stlačené, získať z toho parameter a ten spracovať jedinou udalostnou procedúrou SkupinaTlacitok_Click.

Pokiaľ by boli tieto tlačítka v užívateľskom formulári, nie je problém, ale má niekto skúsenosť s tým, že by sa to dalo aj s tlačítkami v hárku (t.j. bez užívateľského formulára)? Neviem nasimulovať čosi takéhoto (platné pre užívateľský formulár) pre prvky v hárku:

Dim Tlacitka(6) As New btnTrieda

Private Sub UserForm_Initialize()
    Dim prvok As Control
    CisTlac = 0
    For Each prvok In Formular.Controls
        CisTlac = CisTlac + 1
        Set Tlacitka(CisTlac).SkupinaTlacitok = prvok
    Next prvok
End Sub

Díky

R

Předmět Autor Datum
...tak ak by to niekoho zaujímalo, dajú sa v module triedy ošetriť aj ovládacie prvky v hárku, musí… poslední
robert13 23.11.2014 11:59
robert13

...tak ak by to niekoho zaujímalo, dajú sa v module triedy ošetriť aj ovládacie prvky v hárku, musí však ísť o prvky ActiveX.
Podarilo sa mi to, hoci tie prvky zatiaľ neviem priradiť do skupiny cyklom, ale natvrdo:

Dim Tlac(31) As New btnTrieda

Set Tlacitka(1).SkupinaTlacitok = CommandButton1
Set Tlacitka(2).SkupinaTlacitok = CommandButton2
...
Set Tlacitka(31).SkupinaTlacitok = CommandButton31

Potom udalosť

SkupinaTlacitok_Click

reaguje na ktorékoľvek tlačidlo a vráti ľubovoľnú vlastnosť stlačeného tlačidla

P.S. Administrátor môže dotaz ukončiť

R

Zpět do poradny Odpovědět na původní otázku Nahoru