VBA:组合框中的数据输入有效,但命令按钮给出“无效属性值”错误

时间:2015-12-07 06:11:02

标签: excel vba combobox

我有一个带有3个组合框的用户窗体和一个命令按钮,当单击该按钮时,将输入的值放入工作表中。对于所有3,我将MatchRequired设置为True,以便无法输入其他值。

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

我正在同一张纸上的不同列中加载组合框选项。这是我对命令按钮的代码:

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

新来的,所以感谢您的帮助。

1 个答案:

答案 0 :(得分:1)

你的问题是:

hr.addView(layout);

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

尝试删除Invalid Property Value