excel - 尝试引用工作表中的CheckBox时出现“Object Required”错误

我正在尝试在excel vba中编写代码。

选中复选框后，我想更改用户选择的单元格的颜色。

我已经编写了这段代码，但是在标记的行上给出了“ object required”错误。

Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection

If CheckBox1.Value = True Then 'This is the error
    xRng.Interior.Color = vbGreen
End If

If CheckBox1.Value = False Then
    xRng.Interior.Color = xlNone
End If

End Sub

请帮助我如何调试此错误。
提前致谢！ :)

最佳答案

在我看来，这就是您想要的：

Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection

If Worksheets("Sheet2").CheckBoxes("Check Box 1").Value = 1 Then
    xRng.Interior.Color = vbGreen
Else
    xRng.Interior.Color = xlNone
End If

End Sub

不要忘记将名称Sheet2和Check Box 1调整为文件中的实际名称。

以下是分步视频解决方案：