EXCEL用VBA筛选数字和日期及介于某某之间

Question

Sub 一键取消各列筛选()
ActiveSheet.ListObjects("接单记录表").Range.AutoFilter Field:=1
ActiveSheet.ListObjects("接单记录表").Range.AutoFilter Field:=2
ActiveSheet.ListObjects("接单记录表").Range.AutoFilter Field:=3
Range("A3:C3").Select
Selection.ClearContents
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$3" Or Target.Address = "$B$3" Or Target.Address = "$C$3" Then
If Target.Value = "" Then '判断为空时...
Application.EnableEvents = False '让事件失效
ActiveSheet.ListObjects("接单记录表").Range.AutoFilter Field:=Target.Column - 1 '取消筛选
Application.EnableEvents = True '让事件失效
Else
Selection.Copy '拷贝
ActiveSheet.ListObjects("接单记录表").Range.AutoFilter Field:=Target.Column - 1, Criteria1:="=*" & Target.Value & "*", Operator:=xlAnd '筛选
End If
End If

End Sub

上述代码是我现在用来做筛选的，这样（Criteria1:="=*" & Target.Value & "*", Operator:=xlAnd）情况下可以筛选文本包含，不能筛选数字，我想如何改下公式既能筛选文本又能筛选数字，而且当A3输入50，A4为空时只筛选出结果为50的，A3为50，A4为500时筛选所有50-500的结果，当B3输入2015-01-01只筛选出1月1日这一天的结果，当B4数据为2015-07-15时筛选出1月1日至7月15日的结果，不知是否描述清楚，盼解答，谢谢！

Answer 1

表格发我，并说清除要实现什么效果，给你写段比较高效代码。
Crazy0qwer@qq.com