EXECL公式不自动计算了，要按F9刷新才计算，是不是哪儿开关打开了呢？

zyhui1961

jivy1212 发表于 2023-3-30 21:00
不是高手，不懂vba，公式应该办不到

是的，肯定是需要代码的！

高个子

zyhui1961 发表于 2023-3-30 20:50
就是刷新到没有错误值了就停止。

这个恐怕要VBA解决了，但是你的VBA密码是多少？连代码都写不了……

zyhui1961

高个子 发表于 2023-3-30 21:25
这个恐怕要VBA解决了，但是你的VBA密码是多少？连代码都写不了……

实在不好意思，别记自己给加上密码了！

对对对，就是用代码刷新到某单元格（设置的公式）没有错误值了就停止！

高个子

zyhui1961 发表于 2023-3-31 07:27
实在不好意思，别记自己给加上密码了！

对对对，就是用代码刷新到某单元格（设置的公式）没有错误值了 ...

如果想换题，得先按F9到错误以后（一般情况按一次）再运行这个代码

1. Sub kdy()
   
2. Do While Range("AO2") <> "正确"
   
3.         Calculate
   
4. Loop
   
5. End Sub

复制代码

zyhui1961

高个子 发表于 2023-3-31 09:02
如果想换题，得先按F9到错误以后（一般情况按一次）再运行这个代码

谢谢谢谢谢谢！
另外能不能给一个双击AP3单元格触发上面代码的事件（或者类模块什么的）？谢谢！

高个子

zyhui1961 发表于 2023-3-31 09:30
谢谢谢谢谢谢！
另外能不能给一个双击AP3单元格触发上面代码的事件（或者类模块什么的）？谢谢！

这个我不会你去VBA版块问吧，个人感觉点按钮也没啥问题