Question

首先，我很高兴能够享受这个美好的社区，这是我的第一篇文章，所以我会提前向我道歉，因为我会在帖子中犯任何错误。

我有一个名为 example 的表，它是通过从访问文件导入数据生成的，因此行数会动态变化...我正在尝试将AdvancedFilter方法应用于此通过VBA表。
我已经使用工作表的第一行复制表的标题，在第二行我设置了我的参数进行过滤，所以在 A1：D2 的范围内，我得到了标准。从第5行开始，我有表示例：它以标题行开头，继续显示从访问文件导入的所有数据行，例如范围 A5：D20 。
如果我手动应用高级过滤器（单击高级过滤器按钮并填写表单），指定表 A5：D30 的范围和标准 A1：D2 它工作得很好......但是如果不是指定数据的范围而是使用表 example 的名称，结果是不同的，只有一行而不是我想要的五行（右） ......为什么？！？
现在，如果上面的问题只是为了好奇（但我确定它与我的问题有关），主要问题是我试图通过VBA代码做同样的事情。我试过了

Worksheets("name").Range("example[#All]").AdvancedFilter _ Action:=xlFilterInPlace, CriteriaRange:=Range("A1:D2"), Unique:=False

和

Worksheets("name").ListObjects("example").Range.AdvancedFilter _ Action:=xlFilterInPlace, CriteriaRange:=Range("A1:D2")

但两者都不起作用：过滤操作没有返回任何行。

即使我尝试

Worksheets("name").Range("A5:D30").AdvancedFilter _ Action:=xlFilterInPlace, CriteriaRange:=Range("A1:D2"), Unique:=False

手动指定范围（不是我的问题的解决方案，因为范围动态变化，但出于测试目的......）问题仍然存在，代码没有返回任何行。

注意：如果我select代码中的range而不是AdvancedFilter，那么选择是正确的：带有标题的整个表

如果我开始录制宏，手动进行过滤，并停止录制宏（使用表格参考编写的代码），第一个代码会自动写入... ...当我手动执行此操作时，奇怪的是操作（在录制宏的同时）它正确过滤，但如果我启动刚录制的宏......没有，就像我运行上面写的代码一样。

如果我打开 formula-＆gt; names 标签，我可以找到示例表，但指定的范围不是从第5行开始，而是从6开始......它是像标题不被考虑，不知道为什么...但它是自动生成的数据输入，所以我不知道如何更改范围保持对导入数据的引用...也许这是问题？！？

不知道如何解决问题，请帮帮我:)

修改
我用于过滤的两个标准是日期标准，具体为： date＆lt; = xx / yy / zzzz 和 date＆gt; = aa / bb / cccc 和问题正是这个...如果我尝试使用字符串标准过滤上面的三个代码，它们可以工作，如果我使用它们与日期标准，它们不会。所以我想这个问题取决于VBA如何处理日期数据类型。有什么建议吗？

用于标准的单元格包含此公式（“SE”是“IF”的意大利语版本）：

=SE(filtro!F2="";"";">="&filtro!F2) =SE(filtro!F3="";"";"<="&filtro!F3)

我从另一张纸（“filtro”）中取出标准，如果单元格已填满，我会报告用＆lt; =或＆gt; =插入的数据作为标准，否则单元格保持为空，因为不设置任何条件。

由于

埃托

Answer 1

请尝试以下步骤。它对我有用。

首先我们应该创建一个命名范围（Define Name）（称之为Table），使用公式= OFFSET（Sheet1！A5,0,0，COUNTIF（Sheet1！$ A $ 5：$ A）将范围赋予动态$ 100 “＆LT;＆gt;” 中。），4）

在创建名称范围时粘贴此偏移公式 - 表。

此公式将动态更改范围。

编写如下的VBA代码

Sub Advanfil（） “ 'Advanfilt Macro “

” 范围（“表”）.AdvancedFilter操作：= xlFilterInPlace，CriteriaRange：= _ 范围（“A1：D2”），唯一：=假结束子

我认为以上应该可以缓解你的困难。

Answer 2

好的，最后我解决了这个问题，并希望分享解决方案正如我在编辑我的问题时所提到的，过滤器的两个标准是日期，我发现了两个问题，两者都与此有关：

当我从其他来源（访问文件）导入数据并填充我要过滤的表格时，我没有为字段设置适当的格式，我将所有内容保留为excel决定，这是一个问题。正确的方法是设置：

表中的字段（带有要过滤的数据的字段）为date，格式预先格式化（对我来说不简单，因为它们作为文本存储在访问中，所以我必须创建一个 SQL 字符串，用于以正确的类型和格式提取数据）。

将过滤条件存储为general的字段（在我的情况下，此字段包含编辑我的问题时提到的公式）。

我将过滤日期（公式中引用的日期）插入date的字段，其格式与表格的字段相同（第1点）。

我的问题编辑中提到的公式查看一个单元格（我插入日期），如果此单元格已填充，则返回类似＆lt; = data-inserted 或＆gt; =数据插入（这没关系）但是当单元格中没有插入任何内容时返回""。对于过滤器中的字符串条件，这是可以的，但是对于日期条件不是，这会导致过滤器在填充日期的表字段中找不到""的内容。我尝试使用null值或其他类似的值但我找不到什么 nothing 的日期条件...所以我使用的解决方法是返回＆lt; = 31/12/20100 或＆gt; = 01/01/1900 ，当我不想限制更改者或更低的日期时。

希望这可以帮助某人埃托

Answer 3

为日期格式的字段中仅包含等号=的空或“”单元格填充标准。

Excel Advanced Filter了解这意味着空白单元格

具有日期条件的表的vba excel AdvancedFilter方法不起作用

3 个答案: