[已解决]小白求助，求如何在表内制作一个按钮，按下按钮后自动筛选大于今天的日期

chrisyun

各位老师好，新人第一次接触VBA，有个问题实在搞不懂，查看各种教程，自己试下来就是没用，不得已求助，希望大家能帮忙，老板盯得紧T T

表格分7列，共2000行，第7列表示这个数据录入的时间，格式是05/09/13（2013年5月9号）
现在需要在表的空白处做一个按钮，按下这个按钮后，所有日期落在今天（也就是每次打开表的当天）以后的记录被自动筛选出来，再按一下就恢复，ｓｈｏｗ　ａｌｌ.

我已经做好了按钮，然后写好了AUTOFILTER的语言，但是, Criteria1:后好像不能写>NOW()或者Date，请问该怎么写呀，谢谢大家><

我写的代码是

Private Sub CommandButton1_Click()
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:= ">" & Date
End Sub

最佳答案

月排行榜 / 总排行榜

h16503

2013-5-23 18:55

Private Sub CommandButton1_Click()
    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    Else
        Range("E1").AutoFilter Field:=7, Criteria1:=">" & Date
    End If

End Sub

跳转到最佳答案楼层

ligh1298

帮你顶一下。。。。。。

ligh1298

期待高手帮到你............

chrisyun

谢谢楼上，希望大家帮下忙5555

1091126096

上个附件。

1. Sub 按钮1_单击()
   
2. Dim MyDate
   
3. MyDate = Date
   
4. Range("G3").Select
   
5. Selection.AutoFilter
   
6. Selection.AutoFilter Field:=7, Criteria1:=">" & MyDate
   
7. End Sub

复制代码

h16503

Private Sub CommandButton1_Click()
    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    Else
        Range("E1").AutoFilter Field:=7, Criteria1:=">" & Date
    End If

End Sub

无聊的疯子

最好还是把你的附件传上来。。。

h16503

"所有日期落在今天（也就是每次打开表的当天）以后的记录被自动筛选出来"
今天以后的记录怎么会记录在表中？

1091126096

h16503 发表于 2013-5-23 21:58
"所有日期落在今天（也就是每次打开表的当天）以后的记录被自动筛选出来"
今天以后的记录怎么会记录在表中 ...

他要筛选的是当天的。              

chrisyun

h16503 发表于 2013-5-23 18:55
Private Sub CommandButton1_Click()
    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllD ...

谢谢老师！！！！好厉害！！还解决了我SHOWALL的问题！！！