Question

我只是一个初学者，但我有一个简单的Vlookup宏，我无法开始工作。

想象一下excel表格，其中每列的列数不同。选择一个数字后，将使用宏快捷方式并运行vlookup并返回与该数字关联的文本。

Dim Resource As String
Resource = Selection.Copy
rName = Application.WorksheetFunction.VLookup(Resource, Sheets("Program Title").Range("D5:F305"), 3,   False)
MsgBox "" & rName

End Sub

当我运行此代码时，我得到一个＆＃34;运行时错误＆＃39; 1004＆＃39;：无法获取WorksheetFunction类的VLookup属性＆＃34;

有人可以告诉我这个代码应该如何解决吗？

Answer 1

Dim Resource As String, rName As Variant
Resource = Selection.Value

rName = Application.VLookup(Resource, Sheets("Program Title").Range("D5:F305"), _
                            3, False)

If Not IsError(rName) Then
    MsgBox "" & rName
Else
    MsgBox Resource & " not found in lookup table"
End If

Vlookup宏使用手动选择的单元格

1 个答案: