Private Sub UserForm_Initialize()
Dim i As Byte
Sheet1.Range("C9").Select
For i = 1 To 4
Set 单选按钮集合(i).OButtonBillType = Controls("OptionButton" & i)
Next
Me.Left = Range("工具箱位置")(3)
Me.Top = Range("工具箱位置")(4)
End Sub
重点就是Controls("OptionButton" & i)
名字必须使用相同的前缀
追问是Excel里面插入的控件
追答sheet1.Controls("OptionButton" & i)