为多个复选框添加 VBA - 返回编译错误

Question

我在一张纸上有 70 个复选框。

我想要每个复选框 - 当单击以填充该复选框周围的矩形时。 如果未单击复选框 - 矩形将不会被填充。

我的问题是我尝试将此代码应用于每个复选框 - 但我收到编译错误：“compile error ambiguous name detected boxcheck”

如何防止编译错误？ 注意：每个复选框都有自己的唯一名称 (1-70)，每个矩形都有自己的唯一名称 (1-70)。这样每个 Checkbox 应该只填充 VBA IF/THEN 代码引用的 Rectangle。我不希望 1 Checkbox 填充所有矩形。

这是我的代码：

Sub BoxCheck()
    If ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = 1 Then
        ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.SchemeColor = 3
    End If
    If ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = -4146 Then
        ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.SchemeColor = 1
    End If
End Sub

Answer 1

如果您在一个模块中有多个名称完全相同的子组件，则可能会引发错误。如果您复制原始代码或下面的代码并简单地将 # 替换为与其相关的矩形和框号，则可能会清除错误。

Sub BoxCheck#()
    If ActiveSheet.Shapes("Check Box #").ControlFormat.Value = 1 Then
        ActiveSheet.Shapes("Rectangle #").Fill.ForeColor.SchemeColor = 3
    End If
    If ActiveSheet.Shapes("Check Box #").ControlFormat.Value = -4146 Then
        ActiveSheet.Shapes("Rectangle #").Fill.ForeColor.SchemeColor = 1
    End If
End Sub

另一种选择是将每个 BoxCheck 放入不同的模块中，但这似乎太过分了，尤其是因为你有 70 个

Answer 2

您可以将所有复选框链接到单个子项，并使用Application.Caller 确定哪个复选框调用了该方法：

Sub BoxCheck()
    Dim shp, rectName as string
    Set shp = ActiveSheet.Shapes(Application.Caller)
    rectName = Replace(Application.Caller, "Check Box ", "Rectangle ")

    ActiveSheet.Shapes(rectName).Fill.ForeColor.SchemeColor = _
                        IIf(shp.ControlFormat.Value = 1, 3, 1)

End Sub