宏的跳转

chenbinxing

Set find_item = Worksheets("item").Range("A2:A" & find_last_row).Find(item_c, LookIn:=xlValues)
        find_row = find_item.Row
        If find_item = "Nothing" Then GoTo e
        qty = Worksheets("item").Range("B" & find_row).Value
        amt = Worksheets("item").Range("C" & find_row).Value
        gm = Worksheets("item").Range("D" & find_row).Value
……
e:    ……
这是其中一段，我的本意是find_item找不到就跳转到e，但是“If find_item = "Nothing" Then GoTo e”这条语句无效，始终停在“find_row = find_item.Row”这句
有没有什么方法可以跳过这一句

chenbinxing

解决了,on error resume next

pureshadow

if .... <> nothing then
执行find_item可以找到的代码
else
e
end if

layaman_999

If find_item = "Nothing" Then
好像access里面要这样写:
If find_item is Nothing Then
=========