標題: [發問] 如何讓此程式跑快點? (謝謝G大~完成) [打印本頁]

---

作者: av8d    時間: 2012-7-20 10:10     標題: 如何讓此程式跑快點? (謝謝G大~完成)

本帖最後由 av8d 於 2012-7-20 16:59 編輯

[attach]11769[/attach]

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

---

作者: GBKEE    時間: 2012-7-20 16:32

本帖最後由 GBKEE 於 2012-7-20 16:36 編輯

回復 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    時間: 2012-7-31 22:53

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)