用事件执行时死机

nylon2762

为什么一些循环语句，手动运行的时候没有问题，用事件 “Private Sub Worksheet_Change(ByVal Target As Range)”自动运行时，会死机啊，可能的原因有哪些？怎么解决啊？

dajiahaoxinku12

要加一句代码的，Application.EnableEvents = False

nylon2762

好像还是不行啊，不知道什么道理！代码如下，请大神们帮忙看一下！
Sub 自动选型()
arr = Array(15, 16, 20, 25, 32, 40, 50, 65, 80, 100, 125, 150)
i = 0
Do Until arr(i) > Range("喉部直径计算值")
i = i + 1
Loop
Range("安全阀喉部直径") = arr(i)

If Range("安全阀喉部直径") = 15 Then
Range("安全阀公称直径") = 20
Range("安全阀出口直径") = 25
ElseIf Range("安全阀喉部直径") = 16 Then
Range("安全阀公称直径") = 25
Range("安全阀出口直径") = 32
Else
i = 0
Do Until arr(i) > Range("安全阀喉部直径") / 0.65
i = i + 1
Loop
Range("安全阀公称直径") = arr(i)
Range("安全阀出口直径") = arr(i + 1)
End If
End Sub

grf1973

或者上个附件，或者自己用F8调试一下。

grf1973

代码中没看到你的Target在哪里。

nylon2762

grf1973 发表于 2013-5-10 15:44
代码中没看到你的Target在哪里。

任意一个单元格变化都执行，是可以执行的，但是后来死机了！

nylon2762

nylon2762 发表于 2013-5-10 15:54
任意一个单元格变化都执行，是可以执行的，但是后来死机了！

现在是需要手动去点的，我想让它自动运行

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address <> "$D$1" Then Exit Sub
   
3.     arr = Array(15, 16, 20, 25, 32, 40, 50, 65, 80, 100, 125, 150)
   
4.     i = 0
   
5.     Do Until arr(i) > Range("喉部直径计算值")
   
6.         i = i + 1
   
7.     Loop
   
8.     Range("安全阀喉部直径") = arr(i)
   
9.     If Range("安全阀喉部直径") = 15 Then
   
10.         Range("安全阀公称直径") = 20
    
11.         Range("安全阀出口直径") = 25
    
12.     ElseIf Range("安全阀喉部直径") = 16 Then
    
13.         Range("安全阀公称直径") = 25
    
14.         Range("安全阀出口直径") = 32
    
15.     Else
    
16.         i = 0
    
17.         Do Until arr(i) > Range("安全阀喉部直径") / 0.65
    
18.             i = i + 1
    
19.         Loop
    
20.         Range("安全阀公称直径") = arr(i)
    
21.         Range("安全阀出口直径") = arr(i + 1)
    
22.     End If
    
23. 
    
24. End Sub
    
25. 
    

复制代码

grf1973

其实就是在原代码前加一句If Target.Address <> "$D$1" Then Exit Sub
把变化范围限定在D1单元格
你的本意也是如此吧，D1变化的话，D2 D3 D4跟着变化。

grf1973

忘了上传附件了。