VBA Excel运行时错误424

VBA Excel运行时错误424,vba,excel,Vba,Excel,我知道这是一个很常见的问题,在这个论坛和其他论坛,但给出的答案不能帮助我,所以我再次问它 我正在尝试用Excel创建一个测验,为此我添加了一个复选框来检查以验证选择并查看答案。问题是我遇到了这个VBA运行时错误“object required”,我无法解决它 下面是我正在执行的VBA代码 Sub affichageQuestion() Dim xlw As Workbook Set xlw = Workbooks("quiz.xlsm") xlw.Worksh

我知道这是一个很常见的问题,在这个论坛和其他论坛,但给出的答案不能帮助我,所以我再次问它

我正在尝试用Excel创建一个测验,为此我添加了一个复选框来检查以验证选择并查看答案。问题是我遇到了这个VBA运行时错误“object required”,我无法解决它

下面是我正在执行的VBA代码

Sub affichageQuestion()

    Dim xlw As Workbook    
    Set xlw = Workbooks("quiz.xlsm")

    xlw.Worksheets("Sheet1").Shapes(2).Visible = msoTrue

    xlw.Worksheets("Sheet1").Range("B3") = xlw.Worksheets("Sheet2").Range("A2").Value
    xlw.Worksheets("Sheet1").Range("B8") = xlw.Worksheets("Sheet2").Range("B2").Value
    xlw.Worksheets("Sheet1").Range("B10") = xlw.Worksheets("Sheet2").Range("B3").Value
    xlw.Worksheets("Sheet1").Range("B12") = xlw.Worksheets("Sheet2").Range("B4").Value
    xlw.Worksheets("Sheet1").Range("B14") = xlw.Worksheets("Sheet2").Range("B5").Value

    If (validate.Value = -1) Then
        If (xlw.Worksheets("Sheet1").Range("F3").Value = 2) Then
            xlw.Worksheets("Sheet1").Shapes(2).Visible = msoTrue
        End If
    End If

End Sub
通过“步进”功能,我在这一行找到了错误

If (validate.Value = -1) Then
但我有能力找到解决办法。

如果有人能尽快回答我,我会非常高兴,因为我的实习负责人正在等待测验

如果您的复选框直接在工作表上,请尝试:

If xlw.Worksheets("Sheet1").validate.Value = False Then

代码中的
validate
是什么?是表单复选框还是ActiveX?