gpt4 book ai didi

vba - AdvancedFilter 宏在 AutoFilter 关闭时运行速度较慢

转载 作者:行者123 更新时间:2023-12-04 20:59:53 35 4
gpt4 key购买 nike

我一直试图理解一个同事在网上某处找到的宏,用于根据选定的标准过滤一组数据。部分代码是一个 IF 语句,检查 AutoFilterMode 是否已关闭,如果发现它已关闭,则将其打开,如下所示

'Turn on filter if not already turned on
If Sheets("ORDER DATA").AutoFilterMode = False Then rng.AutoFilter

下一行使用 .AdvancedFilter 根据所选条件过滤数据(称为过滤器的范围)
rng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=filter, Unique:=True

我相对强制症想要在我的代码中保持清理,所以我想我会摆脱第一个语句,因为它似乎没有必要。消除它后我发现如果消除第一个语句,过滤过程需要更长的时间才能运行。

我在网上搜索了高低,但始终无法找到 AutoFilter 和 AdvancedFilter 之间的关系。

所以我的问题是:为什么在未首次打开 AutoFilter 时 AdvancedFilter 需要更长的时间才能运行?

最佳答案

首先,我假设您在代码的顶部有这个?如果没有,请添加它并查看是否可以修复它。不要忘记在底部有重置选项。

With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With
'your code goes here
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With

正如我所说,我认为它存在并且没有解决它,所以说......通常,对于自动过滤器和高级过滤器的怪异,它与数据有关。因此,当我需要调整工作表时,我会经历很多事情。你试过所有这些吗?

首先,创建一个新工作簿,复制旧工作簿中的所有数据并将值仅粘贴到新工作簿中。保持尽可能少,以便您仍然使用该宏。 IE:如果有按钮等你不需要转移,不要。如果有多余的纸张不需要,也不要转移它们。如果你可以做值而不是公式,那就只做值。但请务必传输整个相关数据集,而不仅仅是一些示例行,以使其尽可能地像苹果一样。

如果它仍然像那样运行缓慢,那么我们肯定会在代码中看到一些奇怪的情况,它可能是缓存的东西,比如 litelite 提出的。如果它更像你所期望的那样工作,那么我们知道它要么是格式化的东西,要么是其他东西弄乱了它。

假设第二个开始,因为这通常是问题所在。
在原始数据上尝试每一个并重新运行它。任何订单都有效,因此以最容易开始的为准。我通常在每次更改后重新运行宏,并且在再次运行之前不会执行所有这些操作,这样我就可以知道是哪个东西修复了它。此外,并非所有这些都一定适用,因为我不知道您的数据。如果它们不适用,请忽略它们。
首先制作一个副本并对副本执行这些操作。如果您经过多次检查并找到了修复,请再次制作原始副本,然后仅将最后一次更改应用于副本,看看它是否仍然修复它。

如果您有多张纸,请制作一份副本并删除所有多余的纸。仅在您可以使用的最少量纸张上进行测试。同样,如果您还有多张工作表,则需要对所有工作表执行以下各项操作:
  • 复制所有非公式数据并粘贴特殊/值以摆脱任何
    奇怪的格式/等。
  • 取消隐藏所有行。
  • 删除所有评论。
  • 删除所有条件格式。
  • 全选,打开自动换行,然后关闭自动换行。 (我称之为 Microsoft Hokey-Pokey。你把复选标记放在里面,你把复选标记去掉......)
  • 如果您有任何表单按钮/对象,请删除它们并查看它是否更快。

  • 最后,您在数据集中处理了多少行数据?

    关于vba - AdvancedFilter 宏在 AutoFilter 关闭时运行速度较慢,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/38488273/

    35 4 0
    Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
    广告合作:1813099741@qq.com 6ren.com