Office中国论坛/Access中国论坛

标题: 折腾了好久的问题，请帮忙看看 [打印本页]

作者: zldccmx 时间: 2006-7-19 22:09
标题: 折腾了好久的问题，请帮忙看看
以下是一段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

作者: 老鬼 时间: 2006-7-23 05:54
把一个字符串c赋给对象cbname，你真的很强！

for i=1 to 10

with userform1.controls("checkbox"&i)

.text=i

.caption=i

.

end with

next

未经测试，你自己试试

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)