为以下代码引发错误。错误代码显示“编译错误:预期:然后或转到”
这是代码出现问题的地方。
Private Sub Userform.Initialize()
If Worksheets("Sheet1").Range("P1").Value = "Y"
Then
CheckBox1.Value = True
Else
CheckBox1.Value = False
End If
End Sub
关于如何纠正此错误的任何见解?我觉得代码很扎实。
我想通了,我有点傻。我在最初的IF语句末尾缺少下划线。
现在的代码如下:
Private Sub Userform.Initialize()
If Worksheets("Sheet1").Range("P1").Value = "Y" _
Then
CheckBox1.Value = True
Else
CheckBox1.Value = False
End If
End Sub