在用户窗体中编辑多个属性

我有一个用户窗体25选项button（OptionButton1，OptionButton2等..）我想用电子表格中的信息填充每个button的标题。 我不确定最好的代码来完成这件事。

For x = 1 to 25 OptionButton & x & .caption = range("a" & x) Next x 

显然，这将是行不通的，但这是我想要它做的。 有任何想法吗？

Answer 1

你可以做这样的事情：

 Private Sub UserForm_Initialize() Dim x As Byte 'change Sheet1 to suit With ThisWorkbook.Worksheets("Sheet1") For x = 1 To 25 Me.Controls("OptionButton" & x).Caption = .Range("A" & x) Next x End With End Sub