Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.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

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
在excel2010 vba中将日期选择器值用作自动筛选参数_Excel_Vba_Datepicker_Autofilter - Fatal编程技术网

在excel2010 vba中将日期选择器值用作自动筛选参数

在excel2010 vba中将日期选择器值用作自动筛选参数,excel,vba,datepicker,autofilter,Excel,Vba,Datepicker,Autofilter,正如标题所说,我试图使用DTpicker对象中的值来过滤一系列日期,试图找到比输入值晚的日期 日期是以dd/mm/yyyy格式输入的,我认为应该可以 我正在处理的代码基本上如下所示,当我运行它时,它根本找不到任何值 ThisWorkbook.Sheets("Rådata").AutoFilterMode = False ThisWorkbook.Sheets("Rådata").Range("N1:N700").AutoFilter Field:=1, Criteria1:="=>" &a

正如标题所说,我试图使用DTpicker对象中的值来过滤一系列日期,试图找到比输入值晚的日期

日期是以dd/mm/yyyy格式输入的,我认为应该可以

我正在处理的代码基本上如下所示,当我运行它时,它根本找不到任何值

ThisWorkbook.Sheets("Rådata").AutoFilterMode = False
ThisWorkbook.Sheets("Rådata").Range("N1:N700").AutoFilter Field:=1, Criteria1:="=>" & DTPickerFra.Value, Operator:=xlAnd

感谢Excel格式,因为您的标准是“大于或等于”,而不是相反

我通过将标准1改为“>=”而不是“=>”来实现它


啊!帮助:)跟进,dd/mm似乎被调换了?日期输入dd/mm/yyyy,这也是DTpicker似乎使用的格式,但不知何故,如果我在datepicker中输入8/11-13,我得到的所有日期都晚于8月11日,而不是10月8日……很高兴它起作用了。我假设您的日期输入与列N中的日期一致。您可能必须转换日期选择器格式以满足您的数据格式。是的,必须分别提取日期和月份值,并将它们转换为新字符串。
ThisWorkbook.Sheets("Rådata").AutoFilterMode = False
ThisWorkbook.Sheets("Rådata").Range("N1:N700").AutoFilter Field:=1, Criteria1:=">=" & DTPickerFra.Value, Operator:=xlAnd