请老师帮忙看看哪里出了问题？查询数据需要20多秒，先谢了

完美交易88 · 发表于 2023-5-24 13:32

请老师帮忙看看哪里出了问题，运行代码需要20多秒，就是VBA简单的查询动作，是不是数组的问题？新人写代码，学习中，先谢各位老师了！

3190496160 · 发表于 2023-5-24 14:27

要看懂目前的代码几乎是不可能的，
直接具体描述你的需求，也许可以考虑写代码

WANT-T · 发表于 2023-5-24 14:41

这种单纯吐槽的帖子，直接祝生活愉快就好了！

yylucke · 发表于 2023-5-24 14:50

因为你用了change事件，意味着，每变更一次就要执行那个超大的代码，至少执行了10次

yylucke · 发表于 2023-5-24 14:57

本帖最后由 yylucke 于 2023-5-24 14:58 编辑

在程序开始加语句Application.EnableEvents = False
在程序结尾及Exit sub这样的代码上面一行加Application.EnableEvents = true

另，'改变单元格值后，先清空后面内容，再赋值
清空可以不用给循环，直接一句话： Range("B" & Target.Row & ":P" & Target.Row).ClearContents

yynrzwh · 发表于 2023-5-24 15:45

下断点就知道了。
代码似乎不停地触发change事件

fanyoulin · 发表于 2023-5-24 16:02

附件与需求描述不符：
1、代码段有好多，哪一个需要20秒？
2、随便执行了“参展”表的代码，“已销售”、“已转移”、“找书清单”等等均不存在，无法运行；
3、楼上别人提到的change也可能是原因；

tanglf188 · 发表于 2023-5-24 16:13

1、Application.EnableEvents = False　临时取消过程运行时事件的发生
2、Application.SumIf([已销售!a1:已销售!a65536], brr(i, 1), [已销售!l1:已销售!l65536])不要用到最大行65536，用实际最大有效行取代，

完美交易88 · 发表于 2023-5-24 17:33

3190496160 发表于 2023-5-24 14:27
要看懂目前的代码几乎是不可能的，
直接具体描述你的需求，也许可以考虑写代码

你好，我的需求是在现场扫书页录入书号，然后判断一下书号的正确性（必需是13位、而且是以978或979开头），如果在参展内有相同的书号，把相应列的内容写入现场扫书内，我用的是change事件，每触发单元格都执行一下，是不是这里出现了问题？帮忙写一下代码，先谢了。

完美交易88 · 发表于 2023-5-24 17:34

WANT-T 发表于 2023-5-24 14:41
这种单纯吐槽的帖子，直接祝生活愉快就好了！

祝你生活愉快！

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

[求助] 请老师帮忙看看哪里出了问题？查询数据需要20多秒，先谢了