需要帮助，VBA，需要组合框以避免输入特定的值

Question

我在A1：A8的工作表中有一个数据列表，并且在用户窗体中有一个combobox1。我想要的是避免用户根据工作表中的数据列表在combobox1中输入无效值

Answer 1

转到组合框属性，将Style从0 - fmStyleDropDownCombo更改为2 - fmStyleDropDownList

Answer 2

我认为这就是您要搜索的内容

https://msdn.microsoft.com/en-us/vba/access-vba/articles/combobox-beforeupdate-event-access

您可以通过一种方法来检查所需的值，有一个示例，您可以将其替换为单元格范围。

编辑（要点好，我将在此处给出示例）：

Private Sub Combobox_BeforeUpdate(Cancel As Integer)
    For i = 1 to 8
        If(Cells(i, 1).Value == Me.Combobox.Value)
            Cancel = True 
            Me.Combobox.Undo 
        End If
    Next i
End Sub

Cya。