18

我正在尝试开发一个表格来跟踪发票的到来。该表格将有一个组合框，我可以在其中单击并选择供应商编号。我希望文本框根据从组合框中选择的供应商编号自动填写。这是我到目前为止所拥有的：

Private Sub ComboBox1_Change()    
    'Vlookup when ComboBox1 is filled
    Me.TextBox1.Value = Application.WorksheetFunction.VLookup( _
        Me.ComboBox1.Value, Worksheets("Sheet3").Range("Names"), 2, False)    
End Sub

工作表 3 是从中提取信息的（供应商编号和名称）。

当我返回表单测试代码时，我收到以下错误：

运行时错误“1004”：无法获取 WorksheetFunction 类的 VLookup 属性

我该如何解决？

4

3 回答 3

14

试试下面的代码

我会建议在使用 vlookup 时使用错误处理程序，因为找不到 lookup_value 时可能会发生错误。

Private Sub ComboBox1_Change()


    On Error Resume Next
    Ret = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, Worksheets("Sheet3").Range("Names"), 2, False)
    On Error GoTo 0

    If Ret <> "" Then MsgBox Ret


End Sub

或者

 On Error Resume Next

    Result = Application.VLookup(Me.ComboBox1.Value, Worksheets("Sheet3").Range("Names"), 2, False)

    If Result = "Error 2042" Then
        'nothing found
    ElseIf cell <> Result Then
        MsgBox cell.Value
    End If

    On Error GoTo 0
于 2013-10-09T19:09:50.230 回答
7

我遇到了同样的问题。似乎Me.ComboBox1.Value作为Vlookup函数的参数传递是导致问题的原因。我所做的是将此值分配给一个双精度值，然后将其放入 Vlookup 函数中。

Dim x As Double
x = Me.ComboBox1.Value
Me.TextBox1.Value = Application.WorksheetFunction.VLookup(x, Worksheets("Sheet3").Range("Names"), 2, False)

或者，对于更短的方法，您可以使用在 Vlookup 函数中转换类型Cdbl(<Value>)。

所以它最终会成为

Me.TextBox1.Value = Application.WorksheetFunction.VLookup(Cdbl(Me.ComboBox1.Value), Worksheets("Sheet3").Range("Names"), 2, False)

听起来很奇怪，它对我有用。

希望这可以帮助。

于 2014-09-16T17:43:46.330 回答
3

我只是在我自己的程序中遇到了这个问题。我发现我正在搜索的值不在我的参考表中。我修复了我的参考表，然后错误就消失了。

于 2015-02-11T14:01:23.037 回答