Excel 复选框单击事件崩溃

我在Excel 2010中工作。当我使用不同于常规指定的复选框控件名称时，复选框控件（ActiveX控件）崩溃出现问题。尝试根据已选中或未选中对操作进行编码

复选框的命名协议是否需要使用“Checkbox#”约定以支持在编码时查找它。请不要笑，我不是很专业，所以对我来说最明显的是一个主要的盲点。谢谢你的帮助。我对复选框1到100不感兴趣，因为一个更友好的名字可以帮助我虚弱的大脑

下面是两个不同控件名下的确切代码示例。“Checkbox1”起作用，“CheckboxX”不起作用

---

---

---

---

很明显，我又瞎又弱。我只是注意到了我的错误。CheckboxX示例中的“If statement”引用与控件名称不匹配。如果现在已回答此问题，则您应该发布自己问题的答案并将其标记为正确，或者删除该问题。这对其他偶然发现这篇文章的人来说更好。显然，我既瞎又弱。我只是注意到了我的错误。CheckboxX示例中的“If statement”引用与控件名称不匹配。如果现在已回答此问题，则您应该发布自己问题的答案并将其标记为正确，或者删除该问题。这对其他偶然发现这篇文章的人来说更好。

Private Sub CheckBox1_Click()

If Checkbox1.Value = True Then

    Range("P9").Select
    Selection.Copy
    Range("O9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("O9").Select
    Application.CutCopyMode = False
    Range("O9").Select

Else

    Range("O9").Select
    ActiveCell.FormulaR1C1 = ""
    Range("O9").Select

End If

End Sub

Private Sub CheckboxX_Click()

If Checkbox1.Value = True Then
    Range("P9").Select
    Selection.Copy
    Range("O9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("O9").Select
    Application.CutCopyMode = False
    Range("O9").Select

Else

    Range("O9").Select
    ActiveCell.FormulaR1C1 = ""
    Range("O9").Select

End If

End Sub