[發問] 如何讓此程式跑快點? (謝謝G大~完成)

av8d

Fast.rar (36.56 KB)

下載次數: 5

2012-7-20 10:09

打開後必須等待約10秒鐘~
是否有辦法讓他縮短一點~

GBKEE

回復 1# av8d
E-H欄沒資料 會跑一整欄 加上條件不去執行

1. Private Sub UserForm_Initialize()
   
2.     Dim d As Object, A
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With ActiveSheet
   
5.        If .[a2].End(xlDown).Row <> .Rows.Count Then '加上這段判斷有無資料資
   
6.             For Each A In .Range("a2", .[a2].End(xlDown))   
   
7.                 d(A.Value) = ""
   
8.             Next A
   
9.             ComboBox1.List = Application.Transpose(d.keys)          '同樣的資料 不要跑3次
   
10.             ComboBox9.List = Application.Transpose(d.keys)          '同樣的資料 不要跑3次
    
11.            ComboBox10.List = Application.Transpose(d.keys)         '同樣的資料 不要跑3次
    
12.             d.RemoveAll
    
13.        End If
    
14.        If .[B2].End(xlDown).Row <> .Rows.Count Then
    
15.             For Each A In .Range("b2", .[B2].End(xlDown))
    
16.                 d(A.Value) = ""
    
17.             Next A
    
18.             ComboBox2.List = Application.Transpose(d.keys)
    
19.             d.RemoveAll
    
20.         End If
    
21. '
    
22. '
    
23. '

複製代碼

smouse0220

可加上此程式碼
Application.ScreenUpdating = False
會增加處理速度