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

Question

我有一个带有 25 个选项按钮（选项按钮 1、选项按钮 2 等）的用户表单。 我想用电子表格中的信息填充每个按钮的标题。 我不确定完成此操作的最佳代码。

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