如果If else其他语句中的复选框= true时，Excel VBA用户窗体将引发错误

Question

为以下代码引发错误。错误代码显示“编译错误：预期：然后或转到”

这是代码出现问题的地方。

Private Sub Userform.Initialize()
    If Worksheets("Sheet1").Range("P1").Value = "Y"
            Then
            CheckBox1.Value = True
            Else
            CheckBox1.Value = False
    End If
End Sub

关于如何纠正此错误的任何见解？我觉得代码很扎实。

Answer 1

我想通了，我有点傻。我在最初的IF语句末尾缺少下划线。

现在的代码如下：

Private Sub Userform.Initialize()
    If Worksheets("Sheet1").Range("P1").Value = "Y" _
        Then
        CheckBox1.Value = True
        Else
        CheckBox1.Value = False
    End If
End Sub