大筆資料篩選，速度很慢(篩選及排列) - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 大筆資料篩選，速度很慢(篩選及排列)

返回列表下一主題上一主題發帖

[發問] 大筆資料篩選，速度很慢(篩選及排列)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-4-30 17:08 | 顯示全部帖子

本帖最後由 GBKEE 於 2013-4-30 17:11 編輯

回復 1# lifedidi
試試看

Private Sub UserForm_Initialize() '基本設定
' Set 型號 = CreateObject("Scripting.Dictionary") '耗時:須跑完所有資料列
Dim X As Integer
' Sheets("篩選用").[A2:A2].ClearContents
With Sheets("SHEET1")
'er = .[A65536].End(3).Row
'myrng = .Range("A7:R" & er) '資料數來到10000筆以上時 ***這會佔用記憶體***
.Cells(1, .Columns.Count) = ""
.Range("D6", .[D6].End(xlDown)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Cells(1, .Columns.Count), Unique:=True
'進階篩選 D欄不重複資料 Unique:=True 到最後一欄
X = 2
Do While .Cells(X, .Columns.Count) <> ""
ComboBox1.AddItem .Cells(X, .Columns.Count)
X = X + 1
Loop
.Columns(.Columns.Count).EntireColumn.Clear '清除最後一欄資料
End With
End Sub
Private Sub ComboBox1_Change() '選擇下拉式選單1 立即顯示總總時間;可不用查詢鈕
If ComboBox1.ListIndex = -1 Then '不在下拉式選單的清單內
MsgBox "專案編號編號 " & ComboBox1 & " 不正確"
Else
Application.ScreenUpdating = False
With Sheets("SHEET1")
.Range("a6").AutoFilter Field:=4, Criteria1:=ComboBox1 'AutoFilter: 原資料庫上自動篩選.
With .Range("r:r").SpecialCells(xlCellTypeVisible)
TextBox1.Value = Application.Text(Application.Sum(.Cells), "[hh]:mm")
End With
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End If
End Sub
Private Sub CommandButton3_Click() '離開鈕
Unload UserForm1
End Sub
Private Sub UserForm_Terminate() '重新排列
'Sheets("SHEET1").Range("A7:R" & er) = myrng '重新填上資料耗時
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-5-2 15:31 | 顯示全部帖子

回復 5# lifedidi
run起來，資料一筆一筆貼上，貼到五千筆需要不少時間，
為何要資料一筆一筆貼上???

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-5-2 16:35 | 顯示全部帖子

本帖最後由 GBKEE 於 2013-5-2 16:54 編輯

回復 8# lifedidi
不會罷!!
CPU 雙處理器 3.40 GHz 1GB的RAM
測試 3000筆資料費時1秒 , 30000筆資料費時4秒.

Private Sub CommandButton1_Click() '查詢鈕
Dim d1 As Date, d2 As Date, T As Date
Dim Srng As Range, Crng As Range, Orng As Range
T = Time
' 程式碼.... 為何不用4# Hsieh 超版的程式碼
'程式碼....
'程式碼....
TextBox1.Value = Format(hh, "00") & ":" & Format(mm, "00")
MsgBox Application.Text(Time - T, "[SS]秒") '顯示執行過程的時間
End Sub

複製代碼

如在30000筆資料的工作表上用自動篩選取的資料會更快的

Private Sub ComboBox1_Change() '選擇下拉式選單1 立即顯示總總時間;可不用查詢鈕
Dim T As Date
T = Time
If ComboBox1.ListIndex = -1 Then '不在下拉式選單的清單內
TextBox1 = ""
MsgBox "專案編號編號 " & ComboBox1 & " 不正確"
Else
Application.ScreenUpdating = False
With Sheets("工時資料庫")
.Range("a6").AutoFilter Field:=4, Criteria1:=ComboBox1 'AutoFilter: 原資料庫上自動篩選.
With .Range("r:r").SpecialCells(xlCellTypeVisible)
TextBox1.Value = Application.Text(Application.Sum(.Cells), "[hh]:mm")
End With
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
MsgBox Format(Time - T, " SS 秒")
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-5-3 20:42 | 顯示全部帖子

回復 11# lifedidi
可能是2003結構沒有2007緊密(龐大) 所以運算速度會快些
11# 篩選資料可以多條件篩選嗎？假設同時要篩選：專案編號、職工編號、日期‧‧‧的條件。(請參考EXCEL檔案第二種查詢)
參考附件

Book2.zip (657.03 KB)

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。

返回列表下一主題上一主題