Question

刚学习EXCEL宏命令，遇到个问题，请各位朋友帮下忙，谢谢。 方法'range'作用于对象'_Global'时失败，

Sub GetPrice()
Dim PartNum As Variant
Dim Price As Double
PartNum = InputBox("Enter the Part Number")
Sheets("Prices").Activate
Price = WorksheetFunction. _
VLookup(PartNum, Range("PriceList"), 2, False)
MsgBox PartNum & "costs " & Price
End Sub

工作簿的名字和表的名词都改好了的。

Answer 1

有一个问题,你的PriceList是什么东西,如果是个表格的名字,那么vlookup的第二个参数格式不对吧 应该写成Worksheets("pricelist").Range("a:b")
另外,partnum的数据类型要和vlookup第一列的数据类型一致,我试验你的宏的时候,查找区域第一列是个数字,用variant就不行,改成Integer就没问题

追问

几位朋友的方法我都尝试了，谢谢。运行都有错误，PriceList是工作簿，Pricess是第一个sheet。
我改了数据类型，和第二个参数，出错时下标越界。

追答

我还是没搞明白你的Range("PriceList")是什么意思，也不知道是我的知识浅薄不知道这个用法还是怎么的。range的引用对象应该是具体的表格啊,你里面写的是工作薄是什么意思呢.

Sub GetPrice()
Dim PartNum As Variant
Dim Price As Double
PartNum = InputBox("Enter the Part Number")
Sheets("Prices").Activate
Price = WorksheetFunction. _
VLookup(PartNum, Sheets("prices").Range("a:b"), 2, False)
MsgBox PartNum & "costs " & Price
End Sub

我测试的是吧prices这个表格的a列弄成你的partnum所查找的值,b列弄成返回结果,这个宏就能正常运行啊

Answer 2

修改这里试试看：
Price = Application.WorksheetFunction. _
VLookup(PartNum, Sheets("Prices").Range("PriceList"), 2, False)

Answer 3

Price = WorksheetFunction.VLookup(PartNum, [PriceList], 2, False)
在你定义了PriceList名称的情况下。可以试试上面的。

Answer 4

你要查找的数据范围，应定义为：PriveList，有定义吗？