[已解决]求助:如何对光标所在位置的日期进行筛选?

zhouxingyu

请教:
想对任意日期光标所在单元格进行筛选.
我找到了一段代码:
a = ActiveCell.Value
    ActiveSheet.Range("$a:$a").AutoFilter Field:=1, Criteria1:= _
        "=" & a, Operator:=xlAnd
可结果筛选出的数据是空的,试了多次发现好像只对文本类型的数值才有效.问题出在哪里呢?
附件中有说明具体要做什么.烦请哪位老师帮忙看看.多谢了!
有关日期筛选.rar (7.5 KB, 下载次数: 6)

2012-2-2 20:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-2-2 20:41

1. Sub aa()
   
2.     Dim d As New Dictionary
   
3.     Dim arr, arr1
   
4.     Dim i As Long, j As Long
   
5.     arr = Range("A2:B" & [A65536].End(xlUp).Row)
   
6.     ReDim arr1(1 To UBound(arr), 1 To 2)
   
7.     For i = 1 To UBound(arr)
   
8.         d(Month(arr(i, 1)) & "-" & Day(arr(i, 1))) = ""
   
9.     Next i
   
10.     For i = 1 To d.Count
    
11.         For j = 1 To UBound(arr)
    
12.             If Month(arr(j, 1)) & "-" & Day(arr(j, 1)) = d.Keys(i - 1) Then
    
13.                 n = n + 1
    
14.                 arr1(n, 1) = arr(j, 1)
    
15.                 arr1(n, 2) = arr(j, 2)
    
16.             End If
    
17.         Next j
    
18.     Next i
    
19.     Range("D2:E" & [D65536].End(xlUp).Row).ClearContents
    
20.     Range("D2").Resize(UBound(arr1), 2) = arr1
    
21. End Sub

复制代码

跳转到最佳答案楼层

sunjing-zxl

1. Sub aa()
   
2.     Dim d As New Dictionary
   
3.     Dim arr, arr1
   
4.     Dim i As Long, j As Long
   
5.     arr = Range("A2:B" & [A65536].End(xlUp).Row)
   
6.     ReDim arr1(1 To UBound(arr), 1 To 2)
   
7.     For i = 1 To UBound(arr)
   
8.         d(Month(arr(i, 1)) & "-" & Day(arr(i, 1))) = ""
   
9.     Next i
   
10.     For i = 1 To d.Count
    
11.         For j = 1 To UBound(arr)
    
12.             If Month(arr(j, 1)) & "-" & Day(arr(j, 1)) = d.Keys(i - 1) Then
    
13.                 n = n + 1
    
14.                 arr1(n, 1) = arr(j, 1)
    
15.                 arr1(n, 2) = arr(j, 2)
    
16.             End If
    
17.         Next j
    
18.     Next i
    
19.     Range("D2:E" & [D65536].End(xlUp).Row).ClearContents
    
20.     Range("D2").Resize(UBound(arr1), 2) = arr1
    
21. End Sub

复制代码

sunjing-zxl

附件：
有关日期筛选-sunjing.rar (13.86 KB, 下载次数: 10)

2012-2-2 20:42 上传

点击文件名下载附件

zhouxingyu

sunjing-zxl 发表于 2012-2-2 20:42
附件：

真快啊,完全符合要求.
总是这么及时的得到你的帮助,不胜感谢!
还想顺带麻烦老师看看我上面找的那条代码问题出在哪里呢?

sunjing-zxl

按道理
a = ActiveCell.Value
应该是a = ActiveCell.text
因为你的3个9-10有2011,2010,2009三个年代。
所以你用value是定位不到不同年代。

但是我测试用text你的代码还是筛选不出来。。
但是我录制宏的代码又是这个，就连把录制宏的代码拿出来运行都不可以得到正确答案。
这个问题可以去请教另外的高手了，我解决不了了。

zhouxingyu

sunjing-zxl 发表于 2012-2-2 21:14
按道理
a = ActiveCell.Value
应该是a = ActiveCell.text

多谢你的解答,至少让我明白了一些原因所在.