excel - 使用 VBA 查找 PERSONAL.xlsb

Question

我经常不得不使用 vlookup 来查找与代码关联的公司名称。我已经有一个包含代码和相应公司名称的 Excel 表。为了简化我的任务，我正在尝试创建一个函数 i ，我只需要指明代码，然后返回公司名称。

如果可能的话，我想在 PERSONAL.XLSB sheet1! 中有表格，因为我已经有一些宏在那里。 A栏是公司代码，B栏是公司名称。

我正在尝试使用以下内容，但我一直无处可去，因为我似乎无法正确定义范围

Function Company_name(Company_Code As Integer)

Company_name = Application.WorksheetFunction.VLookup(Company_Code, [PERSONAL.XLSB]Sheet1!$A:$B, 2, False)

End Function

我希望它工作的方式是，我选择 Company_Code = 100，并且该函数返回公司名称“Asus”。 Company_Code = 200 它应该返回公司名称“Acer”，依此类推。

我的问题是我无法使代码工作。

谁能帮我？

提前致谢

Answer 1

像这样的东西:

Function Company_name(Company_Code As Integer)
    Dim rv
    rv = Application.VLookup(Company_Code, _
        Workbooks("Personal.xlsb").Sheets("Sheet1").Range("A:B"), 2, False)

    If IsError(rv) Then rv = "???"
    Company_name = rv

End Function