如何用vb实现整个工作薄查找功能

xyh459954

比如我有3张工作表，每个单元格值唯一，现在搜索值“3512”，位置应该在 sheet2 [b50]这里在excel中使用ctrl+f 范围选择 工作薄，能够直接定位到  sheet2 [b50]

使用vb cells.find只能在当前工作表搜索
excel中的工作薄查找 无论当前工作表是哪张，都能定位到 sheet2 [b50]
vb能实现么

希望代码不要太长 最好一个句子就能实现

xyh459954

for i=1 to sheets.count   
Sheets(i).[A:A].Find(What:="3512", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole).Activate
next
我自己只能想到这种 但是运行不行  有没有大神指导下

xyh459954

人工顶一下  其实复杂的方式 各种循环网上都有  但是代码太长
excel的使用都这么方便 vb难道不能实现？

CC例例

xyh459954 发表于 2016-8-26 14:04
人工顶一下  其实复杂的方式 各种循环网上都有  但是代码太长
excel的使用都这么方便 vb难道不能实现？

这种遍历所有工作表查找用1至2句代码完成不太现实，首先循环所有工作表，再用Find函数查找，然后要用判断语句，判断是否找到，不用就会出错（是非肯定指定工作表存在查找数据）。找到后激活工作表，最后激活找到所在的单元格地址。

hzruziniu

xyh459954 发表于 2016-8-26 13:35
for i=1 to sheets.count   
Sheets(i).[A:A].Find(What:="3512", After:=ActiveCell, LookIn:=xlFormula ...

1. Sub test()
   
2.     Dim Str$, rng As Range
   
3.     Str = Application.InputBox("请输入查找内容：", "请输入查找内容", , , , , , 2)
   
4.     If Len(Str) = 0 Then Exit Sub
   
5.     For Each sht In Sheets
   
6.         sht.Select
   
7.         Set rng = Cells.Find(Str, , , 1)
   
8.         If Not rng Is Nothing Then
   
9.             rng.Select
   
10.         End If
    
11.     Next sht
    
12.     MsgBox "数据所在的工作表名称为： “" & ActiveSheet.Name & "”，单元格地址为：“" & ActiveCell.Address & "”。"
    
13. End Sub

复制代码

xyh459954

hzruziniu 发表于 2016-8-26 15:03

On Error GoTo E
i = 1
Set MyRg = Sheets("票据统计2").Cells(i, 2)
E:
i = n + 1
Sheets(i).Activate
    Cells.Find(What:=MyRg, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate

这个合适么？

xyh459954

On Error GoTo E
E:
i = i + 1
Sheets(i).Activate
    Cells.Find(What:=MyRg, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
这种可行么

hzruziniu

你必须通过遍历工作表循环 For Each sht In Sheets

xyh459954

为什么 on error goto E 加入循环之后 查找第一个值可以  查找第二个值 依然 会提示出错
on error goto E 不能一直有效么

附上代码
For i = 2 To 1400
n = 1
Set MyRg = Sheets("票据统计2").Cells(i, 2)
E:
On Error GoTo E
n = n + 1
Sheets(n).Activate
      Cells.Find(What:=MyRg, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate

hzruziniu

看一下这个贴子
http://club.excelhome.net/thread-860404-1-1.html