Question

我有一个带有25个选项按钮的用户窗体（OptionButton1，OptionButton2等）。我想用电子表格中的信息填充每个按钮的标题。我不确定完成这项工作的最佳代码。

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

在userform中编辑多个属性

1 个答案: