为何VBA运行突然慢了20多倍？

雪兰君 · 发表于 2005-9-13 14:38

突然发现VBA对一列数据处理得超慢~~ 慢过其他列20多倍。

看不出原因，估计是此列被其他引用。

比如：现在发现B列数据变得很蜗牛~！想查询一下，到底有哪个单元格公式中有含有/引用 B列的数据？？请问这个怎么实现？

tanjh · 发表于 2005-9-13 15:10

运行前把'自动重算'改成'人工重算'试试.

[em05]

雪兰君 · 发表于 2005-9-14 00:33

以下是引用Long_III在2005-9-13 14:49:00的发言：
最好上传附件看看！也许代码还可以提提速呢

我觉得这个问题是很重要的。于是花了不少时间，去掉其他附属，总算把体积减小了好多；

希望Long_III 大侠能够给代码的执行提高提高速度！

在下巨谢~~~

U0gptB0b.rar (48.34 KB, 下载次数: 23)

雪兰君 · 发表于 2005-9-14 10:40

以下是引用Long_III在2005-9-14 8:38:27的发言：
不明白计算过程，也就没法优化

建议楼主详细说明算法！

好的，作了说明。

同时把一些统计加上去，不然VBA出结果也等于没有用。这时速度的问题变得非常明显，像蜗牛一样~~

Ss5Ulx2B.rar (54 KB, 下载次数: 12)

雪兰君 · 发表于 2005-9-14 10:43

以下是引用雪兰君在2005-9-13 14:38:30的发言：
突然发现VBA对一列数据处理得超慢~~ 慢过其他列20多倍。

看不出原因，估计是此列被其他引用。

比如：现在发现B列数据变得很蜗牛~！想查询一下，到底有哪个单元格公式中有含有/引用 B列的数据？？请问这个怎么实现？

上面提供的文件并不是只有B列数据变得很蜗牛~ 是全部都这样（与B列无关）。—— 先说明一下。

雪兰君 · 发表于 2005-9-14 19:23

以下是引用Long_III在2005-9-14 10:58:37的发言：
我只知道第一步就是确定你的每行数是否符合你的条件，如果符合就显示yes，否则为no

如果符合就在F列显示yes，否则F列不显示。但G列会为no。

首先插点文字，要说一下这个VBA的目的。它是用来统计4列不同条件下，4个条件同时符合，的数据之间的出现间隔。行差。

这4列条件区域就是I2:R5，可以手工输入，因为经常更改条件的，不把条件固化到VBA里面。

好了，接着说了：

居然已经在符合条件的数据标明了Yes，

那么离结果就不远了：计算Yes的行差，程序就结束。

这个在第 6 楼文件里面有详细标注。

谢谢Long_III ~

[此贴子已经被作者于2005-9-14 19:27:25编辑过]

雪兰君 · 发表于 2005-9-15 23:24

今天都在测试一下Long_III 的代码实效；

发觉太快了，而且不像他们几个人搞的，要花长的一笔代码来计算yes与及no的行差。

只是用了几个字节就搞定了： m = m + 1 If m = 4 And Not p Then arr1(i, 2) = "No" If i Mod 4 = 0 Then m = 0: p = False

不过没有看到有“Yes”，可能是Long_III 大侠不用这个方法。

速度快的不得了，在有COUNTIF的时候表现卓著。让我怀疑是不是数据结果出了问题，我拷贝结果、比较一下了

目前一个失误也没有，真是佩服~！

雪兰君 · 发表于 2005-9-15 23:56

刚才说出来了：这是execl home和 office俱乐部几个高手们、弟兄们搞出来的；为什么这样？因为使用的时候有问题。有时高手们不在线，其他人出主意整出来的。

比如要计算百位个位 789配 0-6的时候，就是70，07都是符合条件时，这VBA一点办法都没有。

百位个位 789 0到6 和百位个位 0到6 789

这样无法统计，（VBA会把以前的结果清除）

所以我自己把代码拆成几部分。统计了百位(789)个位(0-6)，保留YES，不马上进行YES的行差计算；再计算百位(0-6)个位(789)。补充上YES。然后，在进行YES的行差计算，2次得到结果。

雪兰君 · 发表于 2005-9-16 00:19

有的时候还要从结果中除去。

比如统计

百位个位 0到6 0到6 但不含同时相等

就是把 00、11、22……66 除掉

这个时候只好分了8个步骤，输入百位0个位0，然后用VBA找到这个条件后，命令在F列把它消掉；

然后输入百位=1个位=1，操作一遍；再输入百位=2个位=2……直到百位=6、个位=6，共7步。

最后再计算行差

雪兰君 · 发表于 2005-9-16 00:32

不知道 Long_III 有没有办法把我这些笨方法搞定。

上传，真正使用的文件，里面独立了 7、8个模块~~ 没办法，不太敢麻烦别人，速度慢一点就慢一点，用笨办法。

有请 Long_III 费心指教~ 多谢叻

gowFqdhp.rar (80.31 KB, 下载次数: 7)

		自动登录	找回密码
密码			免费注册