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

点击后验证VBA下拉菜单

1 个答案: