请高手给高级筛选中的日期写个代码

云朵中的民族

yaozong 发表于 2012-10-3 15:34
如果数据量大时,7楼附件不能满足运行需求
因为所提的不重复项目直接作单元格的数据有效性(序列),受字符总 ...

请再调试一下代码，清除数据库后，点订单查询和出库统计会有错误提示，数据分析也有错误提示

云朵中的民族

yaozong 发表于 2012-10-3 15:34
如果数据量大时,7楼附件不能满足运行需求
因为所提的不重复项目直接作单元格的数据有效性(序列),受字符总 ...

配送清单仍和原来一样存在一个问题，当高级筛选不设置任何筛选条件时，输出到配送清单的数据会少了两行，有筛选条件时，输出数据正常，不知是何原因？

yaozong

云朵中的民族 发表于 2012-10-3 17:25
配送清单仍和原来一样存在一个问题，当高级筛选不设置任何筛选条件时，输出到配送清单的数据会少了两行， ...

Sub 取各项唯一值() '作相关格的有效性序列
Dim d, r&, i&, j%, sh As Range, s As Date
Set d = CreateObject("Scripting.Dictionary")
With Sheets("数据库")
    r = .[a65536].End(3).Row
    If r < 2 Then Exit Sub'另加这句
    For Each sh In .Range("a2:a" & r)
        .......

yaozong

输出到配送清单的数据会少了两行， ...
是arr的区域不正确
'arr = Sheet3.[a4].CurrentRegion
改为:
arr = Sheet3.Range("a5", Sheet3.[n65536].End(3))

yaozong

数据分析也有错误提示
'......
高版本创建的数据透视表,我处不能调试.
(也许通过13、14楼这样改后，会通过）

云朵中的民族

yaozong 发表于 2012-10-3 18:15
输出到配送清单的数据会少了两行， ...
是arr的区域不正确
'arr = Sheet3.[a4].CurrentRegion

没想到一个>=，<=的符号，需要做如此大量的工作，感谢老师的辛勤付出！