基于组合框选择的Excel VBA查找表值导致错误

Question

我有一个具有组合框的用户窗体，该组合框在表中查找值以填充同一用户窗体上的文本框。代码正在运行。它会产生所需的结果，并且表单数据会准确地保存到表中，但是我没有得到我的 MsgBox“已保存”，而是收到错误 1004“无法获取工作表函数类的 VLookup 属性”。 当我调试时，突出显示的行是Me.men10.Value = Application.WorksheetFunction.VLookup(rec1, rRange, 47, 0)

这是完整的子程序：

Private Sub men8_Change()
Dim rec1 As String
Dim rRange As Range
Set rRange = Sheets("Recipe Box").Range("tblRecipes")

rec1 = Me.men8.Value
Me.men10.Value = Application.WorksheetFunction.VLookup(rec1, rRange, 47, 0)

End Sub

我在表单上有四个，正如我所说，一切正常，但仍会导致错误。有什么建议么？我到处搜索，但找不到与工作代码错误相关的任何内容。

这是表单控件的 sn-p：带圆圈的文本框 (men10) 由其上方的组合框 (men8) 填充。

Answer 1

我能够复制这个，如果发生错误：-

• 找不到匹配项。在我的场景中，它不关心大小写，但如果没有匹配，我会得到你得到的错误。进行手动检查以确保您在命名范围的第一列中得到完全匹配。
• 如果我指定的列号大于命名范围中的列数。请记住，值 1 并不严格表示工作表上的 A 列，而是表示命名范围中的第一列（即，如果范围是“C5:L200”，那么 Arg3 (col_index_num) 中的值 1 将表示列工作表中的 C。