Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.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 按日期筛选：今天之前+；2天_Excel_Vba_Filter - Fatal编程技术网
Fatal编程技术网
  • excel/
  • Excel 按日期筛选：今天之前+；2天

Excel 按日期筛选：今天之前+；2天

excel vba filter

Excel 按日期筛选：今天之前+；2天,excel,vba,filter,Excel,Vba,Filter,我有一个信息表，每行在a列有一个日期 我如何筛选表格以仅显示今天+2天（工作日）之前的所有内容 表格标题在第11行，数据从第12行开始 我在D2单元中有=Today（） Sub-Datefilter（） 将MyVal设置为日期 作为ListObject的可移植文件 MyVal=Application.WorksheetFunction.WorkDay（范围（“D2”）。值，2） 工作表（“打开的报告”）。范围（A12-A9999）。自动筛选字段：=1，准则1:=”=旁注：A12-A9999应

我有一个信息表，每行在a列有一个日期

我如何筛选表格以仅显示今天+2天（工作日）之前的所有内容

  • 表格标题在第11行，数据从第12行开始
  • 我在D2单元中有=Today（）
Sub-Datefilter（）
将MyVal设置为日期
作为ListObject的可移植文件
MyVal=Application.WorksheetFunction.WorkDay（范围（“D2”）。值，2）

工作表（“打开的报告”）。范围（A12-A9999）。自动筛选字段：=1，准则1:=”=旁注：
A12-A9999
应该是
“A12:A9999”
@BigBen当我这样做时，我会得到一个编译错误“预期：列表分隔符”或“编译错误是因为您没有”标记。它应该阅读
工作表（“打开报告”）。范围（“A12:A9999”）。自动筛选…
@ChrisH。谢谢你的提示。我抓住了机会，现在出现了“范围类的自动筛选方法失败”错误，原因如下：
Sheets（“打开的报告”）.Range（“A12:A9999”）.AutoFilter字段：=1，Criteria1:=“=这很有效….
MyVal=Application.WorksheetFunction.WorkDay（范围（“D2”）.Value，-2）工作表（“打开的报告”）.Range（“A11:A9999”）.自动筛选字段：=1，标准1:=“

Sub Datefilter()

Dim MyVal As Date
Dim ORTable As ListObject

MyVal = Application.WorksheetFunction.WorkDay(Range("D2").Value, 2)
Worksheets("Open Report").Range(A12 - A9999).AutoFilter Field:=1, Criteria1:="=<" & MyVal

End Sub