excel - 单击时验证 VBA 下拉菜单

Question

我在 VBA 表单中有一个下拉选择列表，我想在用户单击它时立即进行验证。它需要检查是否已经填写了先决条件下拉列表。

这是为了避免用户在表单上跳转，因为某些字段需要先填写。到目前为止，我的尝试不起作用：

Private Sub cbo_moduleName_Click()

    If Len(cbo_moduleCode.Value) = 0 Then
        MsgBox ("Please select a module code")
        Exit Sub
    End If

End Sub

Answer 1

似乎Click只有在用鼠标更改框的值时才激活该事件，而不是每次物理单击它时才激活该事件。试试这个：

Private Sub cbo_moduleName_Enter()

    If Len(cbo_moduleCode.Value) = 0 Then
        MsgBox ("Please select a module code")
        cbo_moduleCode.SetFocus
        Exit Sub
    End If

End Sub