Excel VBA中的VLookup函数

我对VBA很陌生，但是我仍然发现自己正在写一个用于excel的UDF，并且该过程的一部分要求从同一工作簿中打开的另一个工作表拉取一个值。 我不知道自己在做什么，但我希望别人能指引我正确的方向。

一张名为“VIAL TYPES”的表格在第七栏中有我需要的数据。 为了这个问题的目的，我只想在单元格G9中打印VLookup的值。

为了运行该function，我会手动在相邻单元格的VialType中写入。 我期望Vlookup函数能够识别input到单元格中的types（= VTEST（cellIwrotethevial​​typeinin）），find它在“VIAL TYPES”表单中匹配，然后将第7列中的值打印回活动表单中。 基本上，我希望它能够完成VLOOKUP的工作，我只需要这个在vba中工作，以便我可以执行额外的东西与价值。

我得到#Value！ 现在在牢房里

Function VTEST(VialType As String) ActiveWorkbook.ActiveSheet.Range("G9").Value = Application.WorksheetFunction.VLookup(VialType, ActiveWorkbook.Worksheets("VIAL TYPES").Range("A1:A309"), 7, False) End Function