[已解决]VBA 计算单元格公式出错，如何解决

FredericHo · 发表于 2022-10-26 09:07

本帖最后由 FredericHo 于 2022-10-27 09:48 编辑

运行错误，自动退出EXCEL，麻烦大神帮忙看一下Private Sub Worksheet_Change(ByVal Target As Range)
Dim h
   h = Target.Row
  If Target.Row > 10 And Target.Row < 16 And Cells(h, 13) <> 0 Then
   Cells(h, 11) = Cells(h, 13) / Cells(h, 12)
Else
   Cells(h, 13) = Cells(h, 11) * Cells(h, 12)
End If
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2022-10-27 16:29

工作簿1.rar (14.05 KB, 下载次数: 4)

砂海 · 发表于 2022-10-26 17:14

参考这个,
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Target * 2
Application.EnableEvents = True
End Sub

先关闭单元格事件 , 完事后再打开.
否则 , 会重复触发事件, 不可控

FredericHo · 发表于 2022-10-27 15:51

附件已上传，请帮忙再看一下，谢谢

zjdh · 发表于 2022-10-27 16:29

工作簿1.rar (14.05 KB, 下载次数: 4)

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