【发布时间】:2015-06-24 15:31:52
【问题描述】:
我有以下代码,我希望用户只设置一个日期,如“22/06/2015” 并让该日期进入过滤器。问题是当我第一年去过滤器时, 然后我检查一年,出现月份然后是日子。 (我只是展示了一部分代码)
Sub PassaProRelatorio(planilha As Worksheet, nome As String)
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData
Dim contaLinha As Integer
Dim array1 As Variant
Dim mes As String
mes = InputBox("Digite até a data que deseja EX: 27/02/2015")
array1 = Array(1, mes)
Sheets("BasePenhoras").Activate
ActiveSheet.Range("$A$1:$DO$80000").AutoFilter Field:=10, Criteria1:=nome
ActiveSheet.Range("$A$1:$DO$80000").AutoFilter Field:=11, Criteria1:= _
"Concluído"
ActiveSheet.Range("$A$1:$DO$80000").AutoFilter Field:=72, Criteria1:= _
"Bloqueio"
ActiveSheet.Range("$A$1:$DO$80000").AutoFilter Field:=5, Operator:= _
xlFilterValues, Criteria2:=array1here
【问题讨论】:
-
你能澄清一下你的问题吗?看完后还不是很清楚自己到底想要什么。
-
是的,我知道这很难解释。我想按日期过滤一张纸。但首先我必须过滤它们的月份和最后一天的年份。我怎么做。但是通过输入框获取要过滤的参数,例如日期。