Thay đổi thuộc tính cho vài command_button trong Form khi biết chính xác tên các command_button đó

[duyamadet]

Nhờ các anh giúp em:
Em có Form với 100 command_button
Em cần đổi caption cho 10 command_button đã biết (ví dụ: cmdA1, cmdA2, ... CmdA10; các tên này được liệt kê trong sheet1 A1:A10
Gán giá trị ở cột B (B1:B10) cho 10 cmd trên; Giá trị B1:B10 có thể thay đổi --> khi đó cần cập nhật lại tên trong 10 cmd_button.

Làm cách nào để viết vòng lập
For i = 1 to 10
cmd & sheet1.Range("A"&i).value = sheet1.Range ("B"&i).value
Next

Hiện tại em cho chạy tất cả Ctrl trong Form, khi giống tên trong A1 thì gán caption=B1. Sẽ mất thời gian chạy tất cả Ctrl trong form đó.

=> Tóm lại: em cần cách nào để chọn một command_button với tên đã biết để đổi thuộc tính cho nó.

Em cảm ơn.

 

[ptm0412]

Viết code như sau

For i = 1 to 10
    Me.Controls(Sheet1.Cells(i, 1).Value) = Sheet1.Cells(i, 2).Value
Next i

 

[duyamadet]

Viết code như sau

For i = 1 to 10
    Me.Controls(Sheet1.Cells(i, 1)).Value = Sheet1.Cells(i, 2).Value
Next i

Em đã làm được rồi. Code được rút gọn ra nhiều và chạy nhanh nữa.
Em cảm ơn anh rất nhiều.