标题: 宏的跳转 [打印本页] 作者: chenbinxing 时间: 2012-6-19 09:10 标题: 宏的跳转 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 时间: 2012-6-19 10:48
解决了,on error resume next作者: pureshadow 时间: 2012-6-22 10:23
if .... <> nothing then
执行find_item可以找到的代码
else
e
end if作者: layaman_999 时间: 2012-6-22 10:39
If find_item = "Nothing" Then
好像access里面要这样写:
If find_item is Nothing Then
=========