使用VBA在数据透视表中的两个日期之间进行过滤.英国到美国的日期格式问题

Question

我找到了一个解决方法,但如果有人有一个更清洁的方式这样做我会感兴趣/感激.

我在电子表格上有两个框,名为DateFrom和DateTo,用于数据透视表中的日期过滤器.两者的格式均为DD/MM/YYYY.输入表格的数据也采用这种格式.数据透视表也以相同的格式返回日期.我的所有设置都是英国英语,我在一台单独的机器上尝试了相同的结果.

然后,我使用以下代码进入数据透视表:

ActiveSheet.PivotTables("Pivot").PivotFields("Date").PivotFilters. _
    Add Type:=xlDateBetween, Value1:=Range("DateFrom").Value, Value2:=Range("DateTo").Value

代码将两个单元格作为字符串读取,然后将其应用于数据透视表,就像它们是美国格式(MM/DD/YYYY)一样.荒谬!

这就是我如何解决它:

我还有两个单元格以数字格式查看这两个单元格,并将代码对准这两个单元格.不确定你们中的任何人,但我很难将任何日期转换为数字... ...

如果你有一个简单的解决方案和/或解释这个完全疯狂我会非常感激!

Answer 1

的确,这很奇怪.我已经使用Excel 2007和德语区域设置重现了您的问题.

但是,将日期值转换为Longs时CLng,一切正常:

ActiveSheet.PivotTables("Pivot").PivotFields("Date").PivotFilters. _
Add Type:=xlDateBetween, Value1:=CLng(Range("DateFrom").Value), Value2:=CLng(Range("DateTo").Value)