求大佬看看VBA代码，为什么会在2007EXCEL里发生卡死~

jkl86262123 · 发表于 2018-7-17 08:18

本帖最后由 jkl86262123 于 2018-7-26 14:07 编辑

1、在EXCEL2007版本中，清除单元格内容和复制黏贴操作的时候，会发生卡死的情况，在EXCEL2010里面是正常的，是不是代码需要优化一下啊，详见附件！！！

liulang0808 · 发表于 2018-7-17 09:05

楼主的附件中无代码的啊。。。

jkl86262123 · 发表于 2018-7-17 10:55

liulang0808 发表于 2018-7-17 09:05
楼主的附件中无代码的啊。。。

不好意思搞错了，XLXS 格式没能保存的了代码，重新更新了附件，帮我看看，为什么代码会在EXCEL2007发生卡死现象（清除内容和复制黏贴的时候）而在EXCEL2010里是正常的，是不是代码有什么需要优化的地方啊，谢谢！

liulang0808 · 发表于 2018-7-17 12:03

楼主设置断点看看
If CopyCut Then
Application.EnableEvents = False
End If
看看CopyCut 是true 还是 false吧
楼主放这么一个参数，没有去赋值啊，有意义吗

jkl86262123 · 发表于 2018-7-17 20:29

帖子不要沉啊

jiminyanyan · 发表于 2018-7-17 21:35

jkl86262123 发表于 2018-7-17 20:29
帖子不要沉啊

2007就是比较差的那个版本，可以扔了。。。

jkl86262123 · 发表于 2018-7-21 10:01

liulang0808 发表于 2018-7-17 12:03
楼主设置断点看看
If CopyCut Then
Application.EnableEvents = False

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <= 16 Then
   Application.EnableEvents = False
   Call 计算
   Application.EnableEvents = True
End If
End Sub

最后的代码修改成这样就好了，不卡死了，不知道这是为什么

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

[已解决] 求大佬看看VBA代码，为什么会在2007EXCEL里发生卡死~

点评