请教老师：如何解决“溢出堆栈空间”？

zainan0810

请教各位老师：单位电脑是32位，家里是64位，都是office2013。在单位执行sheet2的代码时，出现图片中的错误。但在家什么问题都没有。如何解决这个问题。之前sheet2中的代码运行一切正常，春节后，替换了新数据，就出现上述问题了。

运行错误的.rar (49.02 KB, 下载次数: 18)

2020-2-13 21:36 上传

点击文件名下载附件

abc123281

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False '关闭事件响应
For i = 1 To Range("e65536").End(xlUp).Row

zainan0810

abc123281 发表于 2020-2-13 22:01
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False '关闭事件响应
...

谢谢您的指点！再向老师请教一下，相同语句，为什么在家里能通过呢？

yjh_27

zainan0810 发表于 2020-2-14 06:38
谢谢您的指点！再向老师请教一下，相同语句，为什么在家里能通过呢？

家里电脑性能好

不用循环全部，只需变化的部分即可

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.EnableEvents = False '关闭事件响应
   
3. For Each a In Target
   
4.     If a.Column <> 11 Then
   
5.     ElseIf Cells(a.Row, 11) = "初馏点" Then
   
6.         Cells(a.Row, 11) = "HK"
   
7.     ElseIf Cells(a.Row, 11) = "50%回收温度" Then
   
8.         Cells(a.Row, 11) = "50%"
   
9.     ElseIf Cells(a.Row, 11) = "90%回收温度" Then
   
10.         Cells(a.Row, 11) = "90%"
    
11.     ElseIf Cells(a.Row, 11) = "95%回收温度" Then
    
12.         Cells(a.Row, 11) = "95%"
    
13.     End If
    
14. Next
    
15. Application.EnableEvents = True '打开事件响应
    
16. End Sub

复制代码

zainan0810

yjh_27 发表于 2020-2-14 13:36
家里电脑性能好

不用循环全部，只需变化的部分即可

yjh_27老师，真不好意思啊!这几天忙着复工，没空上线了。所以，现在才看到。献上2个小花，略表心意！最后，谢谢您的指点！