Worksheet_Change事件联动单元格出错

颂妖精

想法其实很简单，某个单元格选择输入数值后，判定输入值，然后修改另一个单元格，我称之为联动。
联动失败，用 MsgBox 弹窗发现只运行了一次，估计是有什么错误。
加入 On Error Resume Next 后发现可以联动了。
兴奋地写了好长一串，之后，惊讶地发现又不行了。
用 On Error GoTo Err_Handle 分段检测，发现在第一个联动赋值语句那里就出错了，错误号 1004。
再检查，表内部分单元格设置了锁定和隐藏公式，联动这个单元格勾选了隐藏公式，是这原因？
但是，在 VBA 里取消单元格隐藏公式或者在表格里取消这个单元格隐藏公式也不行……


代码很简单，就不传文档了。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     'On Error Resume Next
   
3.     On Error GoTo Err_Handle
   
4.     ErrNum = 1
   
5.     If Target.Address = "$E$3" Then
   
6.         If Range("E3").Value = "错误" Then
   
7.             Application.EnableEvents = False
   
8.             ErrNum = 2
   
9.             Range("F3").FormulaHidden = False
   
10.             Range("F3").Value = "改变"
    
11.             Range("F3").FormulaHidden = True
    
12.             Application.EnableEvents = True
    
13.         End If
    
14.     End If
    
15.         
    
16. Err_Handle:
    
17.     MsgBox "错误: " & Err.Number & vbCrLf & Err.Description & vbCrLf & "发生于段落：" & ErrNum
    
18. End Sub

复制代码

颂妖精

想起测试可行的时候，是在另一台电脑写的，这个拷回到那台电脑运行，联动全都可行，一次错误都没报，两台电脑都装的WIN 7 + OFFICE 2007
一台可以运行，不报错，另一台，不，另 N 台，都只运行到赋值语句时报 1004 错误

颂妖精

把这段代码复制到一个新文档内，结果原来总报错不能运行的那台电脑，可以运行，看来是其他错误导致的，得检查整个工作簿和代码去，结贴。

ykcbf1100

如果代码很简单，你怎么还会出错呢?
如果很简单，你自己解决一下好了。

sj15627581616

还不如直接将自己的需求说明，直接让别人写，可能比让别人找你问题出来还简单

ykcbf1100

sj15627581616 发表于 2024-2-21 10:06
还不如直接将自己的需求说明，直接让别人写，可能比让别人找你问题出来还简单

同感。。。

颂妖精

ykcbf1100 发表于 2024-2-21 09:52
如果代码很简单，你怎么还会出错呢?
如果很简单，你自己解决一下好了。

看来你没有看过内容

颂妖精

sj15627581616 发表于 2024-2-21 10:06
还不如直接将自己的需求说明，直接让别人写，可能比让别人找你问题出来还简单

那么我就简单的说一下要求：这个用于进行森林资源调查，打印调查相关成果，同时生成林木采伐系统所需表格
怎么样？

颂妖精

ykcbf1100 发表于 2024-2-21 09:52
如果代码很简单，你怎么还会出错呢?
如果很简单，你自己解决一下好了。

顺便说一句，原因是之前的文档有错误，那个不是我写的，错误影响到新添加的代码，现在问题已经解决，重写一个文档就好

ykcbf1100

颂妖精 发表于 2024-2-21 11:52
顺便说一句，原因是之前的文档有错误，那个不是我写的，错误影响到新添加的代码，现在问题已经解决，重写 ...

果然简单。。。