0

谁能告诉我如何使用变量引用用户表单的复选框?

例如我有这样的东西,

   if UserForm1.checkbox1.Value
   if UserForm1.checkbox2.Value 
   if UserForm1.checkbox3.Value

我必须检查近 40 到 50 个复选框。但是像这样编写 40 到 50 条语句非常耗时,而且代码也更大。

所以我有点想遍历它们:

 For i = 1 To 50 
   UserForm1.checkbox & i .Value
 Next i

类似的东西。我没有找到太多,但我最终找到了它。这是链接http://www.ozgrid.com/forum/showthread.php?t=43358答案是这样的,

UserForm1.Shapes("Checkbox" & i).Value

但它不起作用。有谁知道如何做到这一点?是否可以?任何帮助是极大的赞赏。

4

1 回答 1

4
UserForm1.Controls("Checkbox" & i).Value 
于 2011-11-01T15:12:30.370 回答