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

带有上面代码片段的当前错误是“未定义子或函数”。突出显示OLEObjects行代码。

在选项按钮的命名中包含变量的任何帮助或指示将不胜感激。

Answer 1

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

ThisWorkbook.Worksheets("Sheet1").OLEObjects  

另请参阅文档：OLEObjects object。