当内容修改时为啥不运行代码

天天向下 · 发表于 2023-3-6 14:30

本帖最后由天天向下于 2023-3-6 14:47 编辑

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$4" Then

ActiveSheet.[G5] = ActiveSheet.[H4]
End If
End Sub

写了一个代码，当H4单元格内容变化时，G5=H4 这些代码不执行，原因是H4单元格是公式计算变化的，那位老师帮我修改一下，谢谢！

bqwd36 · 发表于 2023-3-6 14:38

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.[G5] = ActiveSheet.[H4]

End Sub
这样行不行？

半百 · 发表于 2023-3-6 14:40

没问题啊。

天天向下 · 发表于 2023-3-6 14:48

bqwd36 发表于 2023-3-6 14:38
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.[G5] = ActiveSheet.[H4]
...

行是行但引起另一段代码错误

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

[求助] 当内容修改时为啥不运行代码