VBA：数据输入组合框有效，但命令按钮给出“无效的属性值”错误答案

【问题标题】：VBA: Data entry into combobox works, but command button gives "Invalid property value" errorVBA：数据输入组合框有效，但命令按钮给出“无效的属性值”错误
【发布时间】：2015-12-07 14:32:25
【问题描述】：

我有一个带有 3 个组合框和一个命令按钮的用户窗体，单击该按钮时，会将输入的值放入工作表中。我已将所有 3 个的 MatchRequired 设置为 True，因此无法输入其他值。

我的问题是我可以毫无问题地通过每个组合框，因为没有任何不准确之处。但是，当我单击命令按钮时，会出现 Invalid Property Value 错误。此外 - 即使出现错误，条目仍会添加到工作表中。什么给了？

我正在从同一张工作表的不同列中加载组合框选项。这是命令按钮的代码：

Private Sub cmdAddClass_Click()

Dim RowCount As Long

RowCount = Worksheets("Sheet2").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Sheet2").Range("A1")
    .Offset(RowCount, 0).Value = Me.cboGrade.Value
    .Offset(RowCount, 1).Value = Me.cboUnits.Value
    .Offset(RowCount, 2).Value = Me.cboQuarter.Value
End With

Me.cboGrade.Value = ""
Me.cboUnits.Value = ""
Me.cboQuarter.Value = ""
Me.cboGrade.SetFocus

End Sub

这里是新人，非常感谢您的任何帮助。

【问题讨论】：

你在哪一行得到错误？
错误出现在倒数第二行 - Me.cboGrade.SetFocus 我想在单击命令按钮时清除表单，所以我添加了该行，但事实证明没有必要。感谢您的帮助！

标签： excel vba combobox

【解决方案1】：

你的问题是：

Me.cboGrade.Value = ""
'...
Me.cboGrade.SetFocus

您将cboGrade 设置为空白，这不是组合框列表中的值。因此，当您将焦点设置为cboGrade 时，MatchRequired 设置会拒绝它并发出Invalid Property Value 消息。请注意，这实际上不是 VBA 错误，而是来自表单控件的消息。

尝试删除Me.cboGrade.SetFocus

【讨论】：