vba - 组合框的无效属性值

Question

我的userform遇到问题。我有一个comboboxes数字，它从相应的命名范围绘制其rowsource。

如果我进入用户表单并单击提交而不选择该组合框，那么我没有任何问题，一切都顺利进行了。如果选择了命名范围但留为空白，那么当我单击“提交”时，会出现错误“无效的属性值”。我已经知道这链接到“Match Required” = True。但是我的问题。如果选择了组合框但留空了，有没有办法我可以停止显示此错误并停止提交表单？

谢谢，

Answer 1

您可以这样做，为您的人口添加一个空值

Dim a() As Variant

Me.ComboBox1.RowSource = ""

a = Application.Transpose(Worksheets("testing").Range("testrng").Value)

Me.ComboBox1.List = Split(vbNullString & "," & Join(a, ","), ",")