Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 需要使用vba筛选当前月份以下的所有记录_Excel_Vba - Fatal编程技术网
Fatal编程技术网
  • excel/
  • Excel 需要使用vba筛选当前月份以下的所有记录

Excel 需要使用vba筛选当前月份以下的所有记录

excel vba

Excel 需要使用vba筛选当前月份以下的所有记录,excel,vba,Excel,Vba,我需要使用VBA过滤少于一个月的记录 ThisWorkbook.Sheets(1).Range("A:L").AutoFilter Field:=5, Criteria1:="<" & MonthName(Month(Date)) ThisWorkbook.Sheets（1）.Range（“A:L”）.AutoFilter字段：=5，准则1:=“小于本月表示小于本月第一个： Sub Macro2() ThisWorkbook.Sheets(1).Range("A:L").

我需要使用VBA过滤少于一个月的记录

ThisWorkbook.Sheets(1).Range("A:L").AutoFilter Field:=5, Criteria1:="<" & MonthName(Month(Date))

ThisWorkbook.Sheets（1）.Range（“A:L”）.AutoFilter字段：=5，准则1:=“小于本月表示小于本月第一个：


Sub Macro2()
    ThisWorkbook.Sheets(1).Range("A:L").AutoFilter Field:=5, Criteria1:="<3/1/2020", Operator:=xlAnd
End Sub



Sub-Macro2（）
ThisWorkbook.Sheets（1）.Range（“A:L”）。自动筛选字段：=5，标准1:

Sub Macro2()
    Dim crit As String

    crit = "<" & DateSerial(Year(Now()), Month(Now()), 1)

    With ThisWorkbook.Sheets(1)
        .Range("A:L").AutoFilter Field:=5, Criteria1:=crit, Operator:=xlAnd
    End With
End Sub