張貼者：2010年5月29日 上午6:37Carson Cheng
[
已更新 2010年5月29日 上午6:38
]
介紹
根據用戶指定的條件，把資料庫內的資料排序及篩選，資料有多少欄也可以。十分實用吧？！
用法很簡單，只要在執行巨集以後，選出檢索欄，巨集會馬上顯示檢索欄中所有獨一無二的值，然後再選要篩選出來的記錄，選項可以多於一個：
按「篩選」後，畫面上只會顯示合符條件的記錄。很方便呢！
程式碼
程式碼較複雜和長，不在此刊登，請下載附檔。
使用的指令／方法
- 對話框裡的ComboBox、ListBox、CommandButtons和AddItem。
- Sort及AdvancedFilter
- Set
使用的函數／屬性
- CurrentRegion
注意地方
- 資料庫的四周必須為空行或空欄，否則屬性CurrentRegion會算錯。
- 用For Each...Next的時候，如果用作迴圈的範圍的橫向一字形的，你需要多加.Columns在後面，否則迴圈只會跑一次，如：
For Each rI In rTemp.Columns
cbKeyField.AddItem rI.value
Next
- 在「選出」欄裡不管全選也好，完全沒選也好，會當作光排序論。
已知問題／蟲
- 沒有
|
|
|
|
|
 Updating... Carson Cheng, 2010年5月29日 上午6:38
|
