VBA-包括ActiveX选项按钮命名中的变量

Question

我有一个订单表，其中包括复选框和选项按钮的组合。

• 有10行的3个选项按钮和1个复选框。每行都被分组在一起。
• 复选框工作正常，我可以使用引用行号的变量i参考它们。
  • 我试图为选项按钮做同样的事情。即，我试图使用变量i参考选项按钮。但是，我一直找不到解决方案。

这是我使用的代码使用变量i来参考复选框。这很好。

    If Sheets("Order Sheet").Shapes("Check Box " & i).ControlFormat.Value = 1 Then

我已经使用了类似的逻辑来尝试参考选项按钮。但是，基于我在网上发现的模糊类似的事情，我的反复试验的所有变化都失败了。

If OLEObjects("OptionButton" & i + 30).Object.Value = True Then

上面带有代码段的当前错误是" sub或函数未定义"。突出显示代码的OLEObjects线。

在选项按钮的命名中包括变量的任何帮助或方向将不胜感激。

Answer 1

您需要指定哪个工作表OLEObjects是：

ThisWorkbook.Worksheets("Sheet1").OLEObjects  

还请参见文档：OleObjects对象。