【发布时间】:2018-12-28 12:53:55
【问题描述】:
我在 A1:A8 的工作表中有一个数据列表,并且我在用户表单中有一个组合框 1。我想要的是避免用户根据工作表中的数据列表在组合框1中输入无效值
【问题讨论】:
-
一些简单的研究将引导您找到 ComboBox 中的一个属性,该属性不允许用户添加新项目。然后只需从 A1:A8 填充 ComboBox。
我在 A1:A8 的工作表中有一个数据列表,并且我在用户表单中有一个组合框 1。我想要的是避免用户根据工作表中的数据列表在组合框1中输入无效值
【问题讨论】:
转到组合框属性并将Style从0 - fmStyleDropDownCombo更改为2 - fmStyleDropDownList
【讨论】:
我认为这就是您要搜索的内容:
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。
【讨论】: