觉得是个比较难得问题，应该有挑战性吧

墨西哥の早晨 · 发表于 2012-8-3 20:41

表2到表6是流水账清单，现在想在表1做个查询功能，输入一种物料号就会在下面显示出这个物料在其他表格所有的流水账清单。
每种物料在每张表上都有多处重复项，只是数量不一样，尽量希望在不改变流水账清单的情况下，在表1做个查询功能，同事说要用到表格的编程功能，难倒我们一片人。希望高手指教一番。
图一是流水账清单：

流水账清单

图二是筛选某个物料，基本每个物料在每张表都有这么多的重复项

筛选某个物料，基本每个物料在每张表都有这么多的重复项

图三就是我想要的功能，输入零件的编号和发现地，就会自动显示出流水账的清单

就是我想要的功能，输入零件的编号和发现地，就会自动显示出流水账的清单

附件是数据表。

数据表.rar (255.1 KB, 下载次数: 37)

墨西哥の早晨 · 发表于 2012-8-3 22:12

好多人下载，但是没有结果是不是太难了

余余1982 · 发表于 2012-8-4 00:08

墨西哥の早晨发表于 2012-8-3 22:12
好多人下载，但是没有结果是不是太难了

1、取消了工作表的隐藏
2、分表的格式请保持一致，也就是说查询的两个数据所在的列要一致。（之前的WEEK27与其他表格列数不一致，已经删除了）
3、不知道怎么excel文件变大到5M左右。（因为你的文件有保护，不方便查看）
今后提问请勿上传带密码或保护的文件~

墨西哥の早晨 · 发表于 2012-8-4 00:59

我简直是太膜拜你了，你真是大神啊，我激动的无以言表啊，谢谢，谢谢，谢谢了。
不过请问下是用的sql还是其他的办法，我都看不出来。

墨西哥の早晨 · 发表于 2012-8-4 01:00

余余1982 发表于 2012-8-4 00:08
1、取消了工作表的隐藏
2、分表的格式请保持一致，也就是说查询的两个数据所在的列要一致。（之前的WEEK ...

我简直是太膜拜你了，你真是大神啊，我激动的无以言表啊，谢谢，谢谢，谢谢了。
不过请问下是用的sql还是其他的办法，我都看不出来。

余余1982 · 发表于 2012-8-4 01:13

本帖最后由余余1982 于 2012-8-4 20:47 编辑

墨西哥の早晨发表于 2012-8-4 01:00
我简直是太膜拜你了，你真是大神啊，我激动的无以言表啊，谢谢，谢谢，谢谢了。
不过请问下是用的sql还是 ...

alt+F11 查看VBA代码！第15行sheets(1)改为 Row = Sheets("辅助查询").[b65536].End(3).Row + 1

Sub 查询()
Dim X, Y, Z As Long
Dim A, B As String
On Error Resume Next
Sheets("辅助查询").Range("A6:o65536").Select
Selection.ClearContents
A = Sheets("辅助查询").Range("B3")
B = Sheets("辅助查询").Range("D3")
For X = 3 To Worksheets.Count
m = Sheets(X).[b65536].End(3).Row
For Y = 8 To m
pm = Application.Sheets(X).Cells(Y, 2)
cd = Application.Sheets(X).Cells(Y, 11)
If pm = A And cd = B Then
Row = Sheets("辅助查询").[b65536].End(3).Row + 1
For Z = 1 To 14
Sheets("辅助查询").Cells(Row, Z) = Sheets(X).Cells(Y, Z + 1)
Next Z
Sheets("辅助查询").Cells(Row, 15) = Sheets(X).Name
End If
Next Y
Next X
End Sub

复制代码

墨西哥の早晨 · 发表于 2012-8-6 19:15

余余1982 发表于 2012-8-4 01:13
alt+F11 查看VBA代码！第15行sheets(1)改为 Row = Sheets("辅助查询")..End(3).Row + 1

大大，我把你做给我的编程复制到另外一张表上，发给别人宏用不了，我自己也提示未命名.jpg

能帮我看看是什么问题吗？

移动表.rar (279.62 KB, 下载次数: 5)

余余1982 · 发表于 2012-8-7 00:40

墨西哥の早晨发表于 2012-8-6 19:15
大大，我把你做给我的编程复制到另外一张表上，发给别人宏用不了，我自己也提示能帮我看看是什么问题吗？ ...

这个提示是表示你表格内的公式有误！或者不能链接~
也就是说你里面的公式比如与桌面的公式关联的话，而又把关联的表格删掉了，就会提醒，有无法更新的链接！
这个和宏不相关的！

如果不能使用的话，建议将宏的安全性设置为低！2007的话在最左上角的圆圈点击后--下方的EXCEL选项里面有设置安全性的！

不管怎么样，在上传一下。我这里是可以正常使用的！

墨西哥の早晨 · 发表于 2012-8-7 07:46

余余1982 发表于 2012-8-7 00:40
这个提示是表示你表格内的公式有误！或者不能链接~
也就是说你里面的公式比如与桌面的公式关联的话，而又 ...

en,明白了，让大大这么晚还在帮我解决问题，太不好意思了。要是有大大这样的师傅多好啊。

flysum2008 · 发表于 2012-8-9 03:42

回复一下吧

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