销售订单进度查询录制宏时如何高级筛选自动筛选数（已解决谢谢山风）

cvc2004 · 发表于 2009-5-22 22:47

有一张销售订单的表，一张当前库存现存量表，通过匹配存货编码进行按自动筛选出来的销售订单列表来进行对库存量表的高级筛选，并将结果复制到第3张表。同时也复制销售订单表中筛选后的表中的部分数据到第三张表。以便进行比对查询。问题是。录制好的宏只能按选定的销售订单的单元格进行高级筛选，如何能让宏识别出在销售订单列表中任意筛选出来的数据进入高级筛选的条件中来。

希望有高手解答。解答后让大家分享

[ 本帖最后由 cvc2004 于 2009-5-26 13:52 编辑 ]

cvc2004 · 发表于 2009-5-25 23:15

有没有人告诉我要怎么才能实现这个宏吗？

山风 · 发表于 2009-5-26 09:52

1订单进度查询.rar (37.25 KB, 下载次数: 339)

cvc2004 · 发表于 2009-5-26 14:02

真是厉害啊。录了几个晚上的宏。老师一点就通。我今天看了一个上午。终于大略看了明白。再次感谢。

cvc2004 · 发表于 2009-5-26 17:16

山风老师你好。我根据你的代码修改了。补充了我的表。但是当我在筛选出部分选项的时候。执行出来的结果是错误的。这个是什么原因呢。在代码的那个地方出错了呢？恳请老师再看看。我检查了一下。发现如果筛选多个的时候不出错。如果只筛选一个出来的话就出错。这个是什么原因呢我原来用2003做的太大了。我现在清理掉一些数据。再往上传。

[ 本帖最后由 cvc2004 于 2009-5-26 19:05 编辑 ]

山风 · 发表于 2009-5-26 18:48

2007,打不开

cvc2004 · 发表于 2009-5-26 19:06

奇怪，更新后就没有了？重新传的附件放在这一楼。

山风 · 发表于 2009-5-26 19:43

0订单现存量进度查询.rar (88.7 KB, 下载次数: 212)

ty101 · 发表于 2009-5-26 19:55

下载打开运行错误1004,什么原因

cvc2004 · 发表于 2009-5-26 21:41

谢谢山风老师，我明白了。
y = Application.CountA(Range("对比情况!A2:A10000"))
Sheets("当前现存量").Columns("A:H").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A2:A" & y + 1), CopyToRange:=Range("I2:P2")

这段语句中 y 是一个计算出来的值。进行和a2 构成一个区域。作为筛选的区域。编程真是奥妙啊。没想到为了报表好看加一行，还不能直接拷贝原程序代码。而是要进行分析修改。

再次感谢山风老师。

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

[分享] 销售订单进度查询录制宏时如何高级筛选自动筛选数（已解决谢谢山风）