折腾了好久的问题，请帮忙看看

zldccmx

以下是一段VBA程序代码，无法正确执行，请问该如何编写？


程序目的：通过一个循环来对10个checkboxt进行初始化。


Private Sub UserForm_Activate()
Dim cbname As Object, c As String
For i = 1 To 10
c = "UserForm1.CheckBox" & i
Set cbname = c '利用循环设定目标，如I＝1 则设定cbname为 checkbox1,...i=9则cbname=checkbox9
With cbname '对指定的checkbox赋初值
.Text = i
.caption =i
.
.
End With
Next i

End Sub

老鬼

把一个字符串c赋给对象cbname，你真的很强！

for i=1 to 10

with userform1.controls("checkbox"&i)

.text=i

.caption=i

.

end with

next

未经测试，你自己试试