复选框单击事件崩溃

时间:2016-10-23 20:03:08

标签: excel checkbox

我在Excel 2010中工作。当我使用与传统分配的不同的复选框控件名称时,复选框控件(ActiveX控件)崩溃时出现问题。尝试基于已选中或未选中的操作进行编码。

复选框的命名协议是否需要使用" Checkbox#"约定,以支持在编码时找到它。请不要笑我不是很技术,所以对我来说最明显的是对我来说是一个主要的盲点。谢谢您的帮助。我对于使用Checkbox 1到100并不感到兴奋,因为一个更友好的用户名称可以帮助我虚弱的大脑。

以下是两个不同控件名称下的确切代码示例。 " Checkbox1"工作" CheckboxX"才不是。

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

0 个答案:

没有答案