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

Posted 2023-02-19

【中文标题】需要帮助，VBA，需要组合框来避免输入特定值

【英文标题】：Need help, VBA, need the combobox to avoid entering a specific values

【发布时间】：2018-12-28 12:53:55

【问题描述】：

我在 A1:A8 的工作表中有一个数据列表，并且我在用户表单中有一个组合框 1。我想要的是避免用户根据工作表中的数据列表在组合框1中输入无效值

【问题讨论】：

一些简单的研究将引导您找到 ComboBox 中的一个属性，该属性不允许用户添加新项目。然后只需从 A1:A8 填充 ComboBox。

【参考方案1】：

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

【讨论】：

我试过了，但很抱歉你没有明白我的意思...我希望组合框输入不在 A1:A8 范围内的工作表列表中的值

【参考方案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。

【讨论】：

您提供的代码将无法运行，也没有达到 OP 的要求。但是尝试修复仅链接的答案值得称赞。