请问如何用程序代替公式以便提高速度？

yanjie

采用“数据透视表”，缩减工作表个数2~3个就可以了，公式尽可能简单。
这样速度就可以快很多了，我做过，是可行的。
关于“优化的最快的计算的工作表”，请参考：
http://support.microsoft.com/kb/72622/zh-cn

huagnzhailing

zhaogang1960 发表于 2012-6-27 22:18

赵老师，您优化的程序，这两天在使用中发现以下问题，可否再帮忙看看什么原因，非常感谢

当在B列的输入物料编号，点击按钮，此时从数据库中提取出来的数据是没错的．但是当我把B列的物料编号清除，重新点击按钮，此时K:N列的原来的数据却仍然显示在那里不会自动清除．

zhaogang1960

huagnzhailing 发表于 2012-7-1 10:14
赵老师，您优化的程序，这两天在使用中发现以下问题，可否再帮忙看看什么原因，非常感谢

当在B列的输入 ...

1. Sub Macro1() '1个字典
   
2.     Dim ar, br(), i&, j&, cr, dr, er, tt
   
3.     tt = Timer
   
4.     Dim d As Object
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     Range("E6:E65536,J6:n65536").ClearContents '修改
   
7.     lr = Range("B65536").End(xlUp).Row
   
8.     If lr < 6 Then Exit Sub
   
9.     ar = Range("B6:c" & lr)
   
10.     ReDim br(1 To UBound(ar), 1 To 5)
    
11.     cr = Sheets("数据库．在途量").Range("e4:j" & Sheets("数据库．在途量").[j65536].End(3).Row)
    
12.     dr = Sheets("数据库．IQC在检").Range("a4:c" & Sheets("数据库．IQC在检").[c65536].End(3).Row)
    
13.     er = Sheets("数据库.森田总表").Range("c4:s" & Sheets("数据库.森田总表").[s65536].End(3).Row)
    
14.     For i = 1 To UBound(cr)
    
15.         d(cr(i, 1)) = d(cr(i, 1)) + cr(i, 6)
    
16.     Next
    
17.     For i = 1 To UBound(dr)
    
18.         d("A" & dr(i, 1)) = dr(i, 3)
    
19.     Next
    
20.     For i = 1 To UBound(er)
    
21.         If Not d.exists("B" & er(i, 1)) Then d("B" & er(i, 1)) = er(i, 12)
    
22.         If Not d.exists("C" & er(i, 1)) Then d("C" & er(i, 1)) = er(i, 17)
    
23.         If Not d.exists("D" & er(i, 1)) Then d("D" & er(i, 1)) = er(i, 14)
    
24.         d("E" & er(i, 1)) = er(i, 5)
    
25.     Next
    
26.     For i = 1 To UBound(ar)
    
27.         If d.exists(ar(i, 1)) Then br(i, 1) = d(ar(i, 1)) Else br(i, 1) = 0
    
28.         If d.exists("A" & ar(i, 1)) Then br(i, 2) = d("A" & ar(i, 1)) Else br(i, 2) = 0
    
29.         If d.exists("B" & ar(i, 1)) Then br(i, 3) = d("B" & ar(i, 1)) Else br(i, 3) = 0
    
30.         br(i, 4) = d("C" & ar(i, 1))
    
31.         br(i, 5) = d("D" & ar(i, 1))
    
32.         ar(i, 1) = d("E" & ar(i, 1))
    
33.     Next
    
34.     [j6].Resize(i - 1, 5) = br
    
35.     If i > 1 Then [e6].Resize(i - 1) = ar Else [e6] = ar(1, 1)
    
36. End Sub
    

复制代码