如何使用变量引用userform的复选框

Question

有人能告诉我如何使用变量引用userform的复选框吗？

例如，我有类似的东西，

   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

但它不起作用。有没有人知道这样做的方法？可能吗？非常感谢任何帮助。

Answer 1

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