急求高手！！怎样用Cells.Find找到另一个worksheet中的单元格？

shabaoge · 发表于 2009-8-20 10:41

我的EXCEL里有两个worksheet，分别是sheet1和sheet2。在sheet1表里某一个单元格的值为“3.1 Release Specific Information”，
我要获得这个单元格的行号。当打开这个EXCEL时，如果默认的画面sheet1,通过下面的代码就可以获得行号。但是如果默认打开的画面是sheet2时，下面的代码就报错：Run-time error '1004' Activate method of Range class failed. 有什么办法能解决这个问题？

Set wsrWS = wsrWorkBook.Worksheets("sheet1")
wsrWS.Unprotect

wsrWS.Cells.Find("3.1 Release Specific Information").Activate
Row = ActiveCell.Row

hupanshan · 发表于 2009-8-20 10:50

Set wsrWS = wsrWorkBook.Worksheets("sheet1")
wsrWS.Unprotect
set rg=wsrWS.Cells.Find("3.1 Release Specific Information")
if not rg is noting then Row = rg.Row

xyh_bear · 发表于 2009-8-20 11:00

Set wsrWS = wsrWorkBook.Worksheets("sheet1")
wsrWS.Unprotect
'
'修改一下下面这一句就行了
Row=wsrWS.Cells.Find("3.1 Release Specific Information").Row

hupanshan · 发表于 2009-8-20 13:50

原帖由 xyh_bear 于 2009-8-20 11:00 发表
Set wsrWS = wsrWorkBook.Worksheets("sheet1")
wsrWS.Unprotect
'
'修改一下下面这一句就行了
Row=wsrWS.Cells.Find("3.1 Release Specific Information").Row

这是不行的，如果wsrWS中没有"3.1 Release Specific Information"就会出错

shabaoge · 发表于 2009-8-20 14:38

原帖由 hupanshan 于 2009-8-20 13:50 发表

这是不行的，如果wsrWS中没有"3.1 Release Specific Information"就会出错

谢谢两位，尤其是谢谢hupanshan，真的很厉害！问题解决了

shabaoge · 发表于 2009-8-20 14:40

谢谢！！！呵呵

		自动登录	找回密码
密码			免费注册

[讨论] 急求高手！！怎样用Cells.Find找到另一个worksheet中的单元格？

要达到什么目的没有说清楚，暂且改一下保证程序能继续

回复 3楼 xyh_bear 的帖子