为什么前面三行的内容修改时代码就不运行，求大师改一下哦

常州海达装潢

为什么前面三行的内容修改时代码就不运行，求大师改一下哦
1、2、3行双击或修改内容后没有什么提示，代码就不运行了，非要关闭文件重新打开才会运行。求大师帮我想看一下代码那里出了问题，谢谢

cqlpjxx

  If Target.Row < 4 Then Exit Sub
删除这一句，就行了

常州海达装潢

cqlpjxx 发表于 2015-8-30 17:29
If Target.Row < 4 Then Exit Sub
删除这一句，就行了

两句都要删除吗

常州海达装潢

cqlpjxx 发表于 2015-8-30 17:29
If Target.Row < 4 Then Exit Sub
删除这一句，就行了

删除了会出错，A1和A2变为了序号，当双击第三行时会提示代码出错

maditate

Application.EnableEvents = False
上面这句禁止了事件触发，
代码中有好几处有如下语句
If Target.Row < 4 Then Exit Sub

上面语句在退出过程时没有重新开方触发事件。

应该在每一处退出过程前加上一句 Application.EnableEvents = True

常州海达装潢

maditate 发表于 2015-8-30 17:41
Application.EnableEvents = False
上面这句禁止了事件触发，
代码中有好几处有如下语句

加在那个位置哦，老师是加在这句前面吗
Application.EnableEvents = True
If Target.Row < 4 Then Exit Sub
是这样吗，这样的话会一直死循环的

maditate

有二种加法，第一种在最后一句  Application.EnableEvents = True  前写上标号如（不一定是数字，可以是文字）

100
Application.EnableEvents = True

在每一句需中途退过程处  Exit Sub  换成  goto 100

第二种是每处的  Exit Sub  前加上 Application.EnableEvents = True
从你的代码结构来看，还需对条件语句作修改
If Target.Row < 4 Then
Application.EnableEvents = True
  Exit Sub
End If

常州海达装潢

maditate 发表于 2015-8-30 17:56
有二种加法，第一种在最后一句  Application.EnableEvents = True  前写上标号如（不一定是数字，可以是文 ...

老师，能直接帮我改一下吗，我都改乱了5555

maditate

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim reg
   
3.     Set reg = CreateObject("VBScript.RegExp")
   
4.     Dim A$, i%
   
5.     Dim arr '
   
6.     Dim b
   
7.     '************ 刚加的代码 *************
   
8.    
   
9.     Dim NewInt As Long
   
10.     NewInt = Cells(Rows.Count, 2).End(xlUp).Row
    
11.     'If ActiveCell.Row > NewInt Then Exit Sub
    
12.    
    
13.    
    
14.     '************************************
    
15.     Application.EnableEvents = False
    
16.     Application.ScreenUpdating = False
    
17.    
    
18.     Set reg = CreateObject("vbscript.regexp")
    
19.     A = Selection.Address
    
20.     With reg
    
21.         .Global = True
    
22.         .Pattern = "\d{1,3}"
    
23.         Set arr = .Execute(A)
    
24.     End With
    
25.     If Target.Column < 8 Then
    
26.         If Target.Row < 4 Then GoTo 100
    
27.         For i = arr(0) To arr(arr.Count - 1)
    
28.             Macro (i)
    
29.         Next
    
30.         Macro (Target.Row)
    
31.         Call 编号
    
32.         Call 汇总
    
33.     End If
    
34.     If Target.Column > 2 And (Target.Column = 9 Or Target.Column = 10) Then
    
35.         If Target.Row < 4 Then GoTo 100
    
36.         Call 汇总
    
37.     End If
    
38.     Application.ScreenUpdating = True
    
39.     '************ 刚加的代码 *************
    
40.    
    
41.     Dim NewInt2 As Long
    
42.     NewInt = Cells(Rows.Count, 2).End(xlUp).Row
    
43.     NewInt2 = Cells(Rows.Count, 7).End(xlUp).Row
    
44.     If NewInt2 > NewInt Then
    
45.         Range(NewInt + 1 & ":" & NewInt2).Delete
    
46.     End If
    
47.    
    
48.     '************************************
    
49.    
    
50. 100
    
51.     Application.EnableEvents = True
    
52.    
    
53. End Sub

复制代码

hyjianjian

maditate 发表于 2015-8-30 17:41
Application.EnableEvents = False
上面这句禁止了事件触发，
代码中有好几处有如下语句

http://club.excelhome.net/thread-1226288-1-1.html 能帮忙解决吗？