Gán macro cho điều khiển được tạo ra khi chạy chương trình

[phinm]

Chào các bạn
Tôi muốn gán các thủ tục cho các control được tạo at runtime, có anh chị nào có thể chỉ giúp được không
Xin xem file đính kèm

 

[huuthang_bd]

Chào các bạn
Tôi muốn gán các thủ tục cho các control được tạo at runtime, có anh chị nào có thể chỉ giúp được không
Xin xem file đính kèm

Bạn khai báo cho biến i là được.

Private Sub UserForm_Activate()
Dim i As Long '<--- Thêm dòng này
Dim ctr As Control
For i = 1 To Range("A100").End(xlUp).Row
    Set ctr = Me.Frame1.Controls.Add("Forms.Label.1")
    ctr.Height = 24
    ctr.Width = 150
    ctr.Left = 4
    ctr.Top = i * ctr.Height
    ctr.Caption = Range("A" & i).Value
    ctr.BackColor = &HFFC0C0
    ctr.BackStyle = fmBackStyleOpaque
    ctr.BorderStyle = fmBorderStyleSingle
Next
End Sub

 

[ptlong04x1]

Bạn khai báo cho biến i là được.

Mình hiểu khác 1 chút, không biết đúng không, hình như là tác giả muốn gán Macro cho mấy cái Label vừa được tạo ra đó.

 

[phinm]

Đúng rồi các bạn ạ, mình muốn gán macro cho các label trên để thực hiện các thủ tục liên quan tới label đó