将IF语句赋值给表单控件组合框

Question

我在工作表上有一个窗体控件组合框(名为DropDown1)。我试图分配一个if语句，但一直无法这样做。

Sub DropDown1_Change()
    If DropDown1.Value = "test" Then
        Print (1)
    Else
        Print (2)
    End If
End Sub

Answer 1

IF语句本身没有问题。错误的是你在分支发生后所做的事情。

也就是说，没有Print命令。您可以使用Debug。打印，或者你可以使用MsgBox。

代码应该这样读:

Private Sub DropDown1_Change()
    If DropDown1.Value = "test" Then
        Debug.Print 1
    Else
        Debug.Print 2
    End If
End Sub