Question

急求高手指点。在一个文件夹中的两个excel表如何查找并显示所对应的数据。。。

具体如下；
Private Sub Worksheet_Change(ByVal Target As Range)
'MsgBox
If Target.Address = "$B$5" Then
vl = Cells(Target.Row, Target.Column)
xr = Target.Row: xc = Target.Column
If Len(vl) = 0 Then Exit Sub
On Error Resume Next
x = ActiveSheet.Name
'MsgBox x
For Each Sh In ThisWorkbook.Sheets
If Sh.Name = x Then GoTo a_next
y = Sh.Name
'MsgBox y
Set sj = Worksheets(y)
ed = sj.[A65536].End(xlUp).Row

For i = 1 To ed

If sj.Cells(i, 1).Value = vl Then

Worksheets(x).Cells(xr, xc + 1) = sj.Cells(i, 2).Value
Worksheets(x).Cells(xr, xc + 2) = sj.Cells(i, 3).Value
biaozhi = True
Exit For
End If

Next

a_next: Set sj = Nothing
Next
If biaozhi = False Then MsgBox "没找到该编号！"
End If
End Sub
这是在一个excel工作表中的几个Sheet表中查找并显示的Vb程序。具体用法是。
格式是；1.Sheet1表是显示界面表。
2.Sheet2.Sheet3.。。。。。。等多个表是数据表。格式都一样，A列是数据。B，C列是数据。
用法是；在Sheet1表的B5中输入参数（就是 编号）会在Sheet2，sheet 3….等把中查找到该参数（就是 编号）。B6，B7中会自动显示在Sheet2，Sheet3.。。。。查找到的编号一样的那一行的B，C列的数据。
我的问题是；
1. 创建一个文件夹，里面有两张Excel工作簿，一张作为输入参数（就是 编号）并显示的界面表（命名；E1）。另一张是数据表（命名；E2）。从第二中Sheet表开始（第一张有别的用处）格式一样，都是A列是 编号，B，C列是数据。
2. 要求在E1表中的Sheet 1中的B5中输入参数（就是 编号）B6，B7会显示在E2的数据表中的该编号所在行的B，C列的数据。
3. 其实我要求的就是不在一个Excel表中的查找并显示的VB程序。
4. 其他的尽量不要动呕。。。
希望高手给予指点。谢谢谢谢。。。。

Answer 1

太复杂了 我晕了

Answer 2

搞点直接的

追问

就是在一个文件夹中的两个Excel工作簿的引用查找。但要用VB程序；
一个是输入界面Excel表。一个是储存数据Excel表。
具体就是；
1。在输入界面Excel表中填写 编号。按回车会自动在储存数据EXcel表中找到该编号位置，并把该位置的那一行的第二，三列数据显示出来。
2.其实上面的程序是在一个EXcel表中应用的程序。
希望你帮我修改一下。。。。谢谢、。、、、

Answer 3

你的问题太高深了