[已解决]如何使用VBA自动筛选月份?

lkk0063

如何使用VBA自动筛选月份?使用版本: excel 2003

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-5-25 20:00

有新的方法你试下，没在你的附件内搞，做了个简单示例，附件你看下。

跳转到最佳答案楼层

爱疯

设计表格时，为什么不将c列的数据分为两列：一列表示月，一列表示日。

大灰狼1976

1. Sub aaa()
   
2. Dim n&
   
3. n = InputBox("please input month") + 1
   
4. Sheets("AA").Range("a5:az" & [a65536].End(3).Row).AutoFilter Field:=3, Operator:=xlFilterValues, Criteria2:=Array(1, DateSerial(Year(Date), n, 0))
   
5. End Sub

复制代码

砂海

2010 可以 , 其它版本不知道

下面是录制的 , 供参考
ActiveSheet.Range("$A$2:$X$15").AutoFilter Field:=4, Operator:=xlFilterValues, Criteria2:=Array(1, "5/24/2015")

lkk0063

大灰狼1976 发表于 2017-5-24 17:18

hi 大灰狼1976
执行后,出现以下 Error Msg

lkk0063

爱疯 发表于 2017-5-24 16:17
设计表格时，为什么不将c列的数据分为两列：一列表示月，一列表示日。

这是当初别人设计的表格，一直沿用，未更改变动
下次我会再想想是否要变更，谢谢你的建议

大灰狼1976

可能2010版（2007版？）以下不适用吧，我是录制宏后改的，2010版没问题。

大灰狼1976

有新的方法你试下，没在你的附件内搞，做了个简单示例，附件你看下。

lkk0063

大灰狼1976 发表于 2017-5-25 20:00
有新的方法你试下，没在你的附件内搞，做了个简单示例，附件你看下。

你好,
谢谢 大灰狼1976 帮忙, 我会再试试看的

lkk0063

大灰狼1976 发表于 2017-5-25 20:00
有新的方法你试下，没在你的附件内搞，做了个简单示例，附件你看下。

你好,
经过你的提示, 我已将代码更改如下, 已可以输入月份, 谢谢!
但是,
我想同时筛选 "月份" 与 数据 A5~A65536 后面为 -??08 及 -??13 筛选, 这要如何修改?
(分开是可以执行)

1. Private Sub CommandButton1_Click()
   
2. Dim n&
   
3. n = InputBox("pls input month")
   
4. With Sheets("AA")
   
5. .Range("a5:az" & [a65536].End(3).Row).AutoFilter Field:=3, Criteria1:=">=" & DateSerial(Year(Now), n, 1), Operator:=xlAnd, Criteria2:="<=" & DateSerial(Year(Now), n + 1, 0)
   
6. .Range("A5").AutoFilter Field:=1, Criteria1:="*" & "-" & "??13", Operator:=xlAnd, Criteria2:="*" & "-" & "??08"
   
7. End With
   
8. End Sub

复制代码