求数组公式导致1004错误的解决方法

颂妖精

早几天发过一个贴子，使用 Worksheet_Change 事件，在某个单元格选择输入数值后，判定输入值，然后修改另一个单元格，结果发现 1004 错误不能运行，前来求助。


写好代码，发现不能运行，再三测试，发现也不是完全不能，而是能触发一次，只是不能正确运行。
之后，由于工作原因，将修改过的原表拷入 U 盘，换到另一台电脑继续，加入 On Error Resume Next 语句后，发现可以正常运行。于是把 N 个单元格的判定修改写完，可以正常运行。
后来，把 U 盘插回到原先那台电脑，发现又不能运行了。改用 On Error GoTo Err_Handle 语句查错误源，发现错误号是 1004，源于单元格赋值 Range("F3").Value = "XXX" 语句，赋值前是使用了 Application.EnableEvents = False 进行了处理的。

翻来复去弄了好久，没办法，新开个工作簿，复制新写的判定修改代码进行检查，这时，惊讶的事情出现了，复制过来的代码完全没有错误，包括上面查到的错误源。
进行测试，保存新老工作簿后，双击打开新老工作簿一并检查，这时，更惊讶的事情又出现了，老工作簿不能运行，刚才还正常运行的新工作簿也不能运行了。
继续测试，打开老工作簿，再新建一个工作簿，之后用打开菜单打开新工作簿，这时，更更惊讶的事情又双出现了，老工作簿不能运行，新工作簿能正常运行。
不断测试，把 U 盘插到之前那另一台电脑，双击打开新老工作簿一并检查，这时，更更更惊讶的事情又双叒出现了，新工作簿能正常运行，老工作簿也能正常运行。

最后，一个个工作表检查，终于找到了真正的错误源——某张数据表——里面有若干数组公式。到这，我放弃修改原工作簿错误的想法了——数组公式导致 1004 错误——不能放弃数组公式啊。
之后又试过多台电脑，都是老工作簿不能运行，新工作簿——没有数组公式——能正常运行。老工作簿即使有 On Error Resume Next 语句，也不能正常运行——除了原本就可以运行的那台电脑。
看到有资料说把“C:\Users\Administrator\AppData\Roaming\Microsoft\Excel\XLSTART”文件夹删掉的说法，试过发现也不是那么回事。

最后，就想找找为什么两台电脑，一台可以运行，一台不可以运行。系统是一样的，Windows 7；软件是一样的，Excel 2007；代码是一样的，工作簿用 U 盘插过来插过去的；宏设置是一样的，“禁用所有宏并发出通知”‘——在可以运行那台电脑甚至把“信任对VBA工程对象模型的访问”关掉都可以运行。

那么问题来了，为什么在那台电脑里就可以运行呢？需要什么方法才能让其他电脑也能运行呢？

ykcbf1100

楼主好象不喜欢上传附件。说实话，没有附件，大部分人没有兴趣看的。

颂妖精

ykcbf1100 发表于 2024-2-23 17:12
楼主好象不喜欢上传附件。说实话，没有附件，大部分人没有兴趣看的。

说实话，这个问题一般人解决不了，能解决的也不需要什么附件......

颂妖精

ykcbf1100 发表于 2024-2-23 17:12
楼主好象不喜欢上传附件。说实话，没有附件，大部分人没有兴趣看的。

目前这个没有附加的判定修改也能用，实在不行还可以把数据表计算改成VBA计算，只是好奇一个工作簿怎么在两台电脑有两种结果，万一有大神路过看到指点一番呢......

颂妖精

ykcbf1100 发表于 2024-2-23 17:12
楼主好象不喜欢上传附件。说实话，没有附件，大部分人没有兴趣看的。

在论坛这么些年，只发过五个贴子，传过两个附件

ykcbf1100

颂妖精 发表于 2024-2-23 19:23
在论坛这么些年，只发过几个贴子，传过一个附件

你也是大神。。。

颂妖精

ykcbf1100 发表于 2024-2-23 19:25
你也是大神。。。

我算什么大神，最多只是会写几行代码而已......