对于VBA中的循环，其变量名称中包含索引

Question

我正在使用VBA为SolidWorks编写宏，因为这更像是一个语法问题，我想我会在这里问它。

因此，我写的宏使用了16个复选框，名为CheckBox1，CheckBox2，... CheckBox16。

我累了这样做（下面的代码），但是有一个错误，因为编译器说var名称＆＃34; CheckBoxi＆＃34;没有定义。

For i = 0 To 16

    If CheckBoxi.Value Then
        'Do Something
    End If

Next For

有没有办法可以解决这个问题，我真的不想输出16个这样的陈述，例如＆＃34; Do Something＆＃34; bit包含相当多的代码。通过修复我的意思是把它放在for循环中。谢谢！

Answer 1

me.controls("Checkbox" & I).value我将成为包含的形式。此外，您的循环从0开始，但您的帖子显示为1.