[已解决]真心求教关于运行

fcyxiaoyuer

这个程序我在我同事电脑上2003版运行非常块 眨眼就好。。
但是为什么在我自己电脑上面（新买的 装的2007版） 卡的要死，基本无法运行

重新运算后，为什么VBA运算那么慢，一个个单元格运算过来。（新手 不太懂）

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-16 22:12

因为你的SHEET3的N多公式引用了SHEET1里的数据。
所以你在修改SHEET1的单元格时，会引发SHEET3里的自动计算。

跳转到最佳答案楼层

ligh1298

我也不太懂，公共参考。

1. Private Sub CommandButton1_Click()
   
2. Application.ScreenUpdating = False
   
3. Dim rg As Range
   
4. For Each rg In Range("D3:j82")
   
5. If Application.CountIf(Range("D3:j82"), "休息") = 0 And Application.CountIf(Range("D3:j82"), "待派") = 0 Then GoTo 100:
   
6. If rg = "休息" Or rg = "待派" Then
   
7. rg = "休"
   
8. ElseIf rg = "" Then
   
9. rg = ""
   
10. Else: rg = "√"
    
11. End If
    
12. Next rg
    
13. 100:
    
14. Application.ScreenUpdating = True
    
15. End Sub

复制代码

fcyxiaoyuer

ligh1298 发表于 2013-5-16 12:02
我也不太懂，公共参考。

看不太懂额。。跟我2007上面运行非常慢有什么联系么。。

hwc2ycy

改成手动计算。

hwc2ycy

因为你的SHEET3的N多公式引用了SHEET1里的数据。
所以你在修改SHEET1的单元格时，会引发SHEET3里的自动计算。

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim rg As Range
   
3.     Application.Calculation = xlCalculationManual
   
4.     Application.ScreenUpdating = False
   
5. 
   
6.     For Each rg In Range("D3:j82")
   
7.         If rg = "休息" Or rg = "待派" Then
   
8.             rg = "休"
   
9.         ElseIf rg = "" Then
   
10.             rg = ""
    
11.         Else: rg = "√"
    
12.         End If
    
13.     Next rg
    
14.     Application.ScreenUpdating = True
    
15.     MsgBox "ok"
    
16.     Application.Calculation = xlCalculationAutomatic
    
17. 
    
18. End Sub

复制代码