返回列表 上一主題 發帖

篩選快接近1萬筆的資料速度超慢

ctjh900801

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win7 
軟體版本
vb6 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2011-7-19 
最後登錄
2016-2-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-21 19:28 | 顯示全部帖子

篩選快接近1萬筆的資料速度超慢

這個需求是這樣

這是篩選條件  有一個篩選的區間 對應站別
如下圖:
1.jpg

用這個篩選的條件去篩選下表中指定的數據是否在這個條件的區間中

然後填入對應的站別
如下圖:


這張圖的編號是要篩選的值要根據篩選的條件 填入相對應的站別到代號中

資料筆數一千多行的時候 速度很快沒什麼問題 但當數據到接近一萬行時 速度就變得很慢

以下是我的代碼  篩選的條件有增加的需求性 所以我將程式設計如下 請各位過目
  1. Application.ScreenUpdating = False
  2. Dim 共幾筆資料, 辨識資料起始點, 辨識資料末點, 累加辨識資料數 As Integer: Dim 值1, 值2, 值3 As String

  4. If Not TextBox1.Text = "" And Not TextBox2.Text = "" Then
  5. 第幾筆資料 = 3: 值1 = TextBox1.Text & 第幾筆資料: 辨識資料起始點 = 40: 辨識資料末點 = 辨識資料起始點: 累加辨識資料數 = 辨識資料起始點: 值3 = "C" & 辨識資料末點

  7. Do Until Sheets("1012記事").Range(值3).Value = ""
  8. 辨識資料末點 = 辨識資料末點 + 1
  9. 值3 = "C" & 辨識資料末點
  10. Loop


  13. Dim 起, 訖 As String
  14. Do Until Sheets("會計帳").Range(值1).Value = ""

  16. 值2 = TextBox2.Text & 第幾筆資料: 累加辨識資料數 = 辨識資料起始點


  19. Do Until 累加辨識資料數 = 辨識資料末點
  20. 起 = "A" & 累加辨識資料數: 訖 = "B" & 累加辨識資料數
  21. If (Sheets("1012記事").Range(起).Value <= (Sheets("會計帳").Range(值1).Value)) Then
  22. If ((Sheets("會計帳").Range(值1).Value) <= Sheets("1012記事").Range(訖).Value) Then
  23. 'Sheets("會計帳").Range(值2) = Sheets("1012記事").Range("C" & 累加辨識資料數): Exit Do
  24. Sheets("1012記事").Range("C" & 累加辨識資料數).Copy Destination:=Sheets("會計帳").Range(值2): Exit Do
  25. End If
  26. End If
  27. 累加辨識資料數 = 累加辨識資料數 + 1
  28. Loop

  30. '========================================================================
  31.    

  33. '=====================================================================================
  34. 第幾筆資料 = 第幾筆資料 + 1: 值1 = TextBox1.Text & 第幾筆資料
  35. Sleep 100

  37. Loop
  38. MsgBox ("辨識工作完成")
複製代碼
以下是我設計的人機介面:

f.jpg

請問這代碼要怎麼改 才能加快速度呢? 超困擾的..
收藏 分享

ctjh900801

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win7 
軟體版本
vb6 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2011-7-19 
最後登錄
2016-2-24 
2#
發表於 2013-10-24 08:32 | 顯示全部帖子
不好意思 可以請joey大大提供範例檔嗎? 我在你的blog 找不到這個範例檔 XD

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題