代码为什么运行错误

petergaod

debug看，ThisWorkbook.Sheets("兑换小票").Range("b3").Value的值有没有变，不行就用固定值试

wenjie242922

xunanming 发表于 2023-7-24 00:51
如2 楼所述,你用的是thisworkbook,当打开其他工作簿时,就默认新打开的工作簿为thisworkbook了,自然就找不 ...

谢谢您！我试过了，还是不行！

WANT-T

肯定不是thisworkbook的问题，不如把文件发出来，看下就知道了！
原因分析：

初步猜测是，没有屏蔽事件响应的问题；
你的代码应该是写在worksheets("兑换小票")里，当B3单元格change的时候，在worksheets("统计模板")里查找内容，类似VLOOKUP；
当事件首次触发时，应该是找到了rng；
但是当要给worksheets("兑换小票")的[j2]等单元格写入 数据的时候，就又触发了此change事件；
因为rng是过程级变量，当过程被重新触发时，rng就重新生成了；
这时因为不满足条件：Target.Address = "$B$3"，所以没有给rng赋值，所以rng=nothing,然后接着又连续触发多次，rng就一直是nothing;
结论：
与另一个工作簿没有关系，而是事件重复触发导致的问题；
解决方案：
给worksheets("兑换小票")的[j2]等单元格赋值前，先屏蔽事件的响应，application.enableevents=false ；
赋值之后，再恢复事件响应，application.enableevents=true;
当然前面应该再增加一个对rng的判断，if not rng is nothing 再写入数据，更稳妥一些；