VBA中的复选框给出运行时错误424

Question

我在VBA中创建了一个复选框，但每当我尝试运行下面的宏时，我都会收到以下错误：

  

运行时错误424，对象必需。

这是宏：

Sub CheckBox3_Click()
   If CheckBox3.Value = False Then
      MsgBox "You unchecked the box"
   Else
      MsgBox "You checked the box"
   End If
End Sub

Answer 1

您需要指定正在使用的用户窗体，或者如果代码位于使用过的用户窗体中，则只需指定Me。

Sub CheckBox3_Click()
       If Me.CheckBox3.Value = False Then
          MsgBox "You unchecked the box"
       Else
          MsgBox "You checked the box"
       End If
End Sub

使用该代码，您不会创建复选框，只需使用它。