[已解决]（求助）跨表自动调用数据问题

sdwffw · 发表于 2011-7-15 06:45

问题详见附件“实地核查观察员派遣通知书”。请老师解答，非常感谢。

最佳答案

zjdh

2011-7-15 10:47

给你一个加载宏，运行以后点击需要调用的单元，右键有个菜单最后一项“调用数据”，
点击即可，无论源文件是什么名称，只要调用的数据位置正确。

跨表调用数据.rar (13.85 KB, 下载次数: 60)

9lee · 发表于 2011-7-15 08:40

回复 sdwffw 的帖子

按你的要求做了：

潍坊150.rar (11.35 KB, 下载次数: 11)

sdwffw · 发表于 2011-7-15 09:11

不能运行，提示：运行时错误9，下标越界。另外，调用的原表文件表格式为：（潍坊十数字）.xls（如潍坊150.xls），不知能否实现在程序中自动识别。谢谢老师。

zjdh · 发表于 2011-7-15 09:16

根据楼主要求，用以下语句比较合理：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set X = Range("B5:B10").Find("序号")
If Not X Is Nothing Then W = X.Row - 1
If Application.Intersect(Target, Range("B5:B" & W)) Is Nothing Or Target.Count > 1 Then End
Set wksh = Application.Workbooks("实地核查观察员派遣通知书.xls").Sheets("Sheet1")
wksh.[a4] = Target.Value
wksh.[e6] = Target.Value
End Sub

复制代码

sdwffw · 发表于 2011-7-15 09:23

代码是不是写在派遣通知书表中，调用（潍坊十数字）.xls（如潍坊150.xls）对应数据？

zjdh · 发表于 2011-7-15 09:23

发个附件吧：

跨表调数据.rar (16.54 KB, 下载次数: 11)

zjdh · 发表于 2011-7-15 09:56

2楼的判断语句中AND和OR用反了！

9lee · 发表于 2011-7-15 10:42

回复 zjdh 的帖子

你说的对，没有仔细调，对不起楼主了。{:011:}

zjdh · 发表于 2011-7-15 10:47

给你一个加载宏，运行以后点击需要调用的单元，右键有个菜单最后一项“调用数据”，
点击即可，无论源文件是什么名称，只要调用的数据位置正确。

跨表调用数据.rar (13.85 KB, 下载次数: 60)

sdwffw · 发表于 2011-7-15 11:02

非常感谢zjdh老师，第一方法能行，但对不同的源表相对麻烦。第二方案我非常赞同，但对您的描述及如何加载宏不太明白，能否详细指点？十分感谢。

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