返回列表 上一主題 發帖

[發問] 根據"料號欄"為依據,做排序

回復 25# 軒云熊
熊大,
想想還是不要做得太複雜,就用原來的,指定單一檔案的方法
1) 單一工作表
2) 多個工作表
這樣就好,不過對話框選項,有辦法用我提供的那個方式嗎?
先前測試,程式還不太正常!

TOP

回復 23# PJChen
如果是多活頁簿多工作表 那工作表的區間不定的話就會一直出現選擇工作表的區間位置
還是說 只是要 可以選擇要排序的活頁簿 做多工作表排序? 或著是 2個都要?
1.可以選擇 要排序的活頁簿 可以單一也可以多個工作表排序
2.不指定活頁簿 要進行多個活頁簿排序但工作表位置不同 : 指定工作表區間 每換一個活頁簿 就要重新指定工作表區間一次
3.不指定活頁簿 要進行多個活頁簿排序 工作表區間相同
是這樣的結果嗎?

TOP

本帖最後由 軒云熊 於 2021-4-18 23:13 編輯

回復 23# PJChen

請問 "*.xlsx" 每個活頁簿循環排序的時候 起點的工作表 跟 結束點的工作表  每個活頁簿是固定的嗎?

TOP

回復 21# 軒云熊

再補充:
要排序的詢問,只有針對"位置(資料夾)">工作表
並沒有問檔案,如何知道哪個檔要排序?這樣會隨意抓一個檔,
可以:
1) 指定檔案,指定單一工作表排序
2) 指定檔案,&指定連續工作表排序
3) 指定資料夾/*.xlsx&指定連續工作表排序

TOP

本帖最後由 PJChen 於 2021-4-18 11:28 編輯

回復 21# 軒云熊
熊大好,
程式測試:
1) 單一工作表排序 & 多個工作表排序,都會循環問二次同樣問題,能否再簡化?看試否能避開再度詢問
2) 排序速度還是偏慢
3) 我原本放2個圖檔,但不清楚,把它刪除還是會出現,不過解開壓縮檔,比較好看!

0418.rar (24.71 KB)

20210418.111435.jpg (8.2 KB)

20210418.111435.jpg

20210418.111413.jpg (3.79 KB)

20210418.111413.jpg

TOP

本帖最後由 軒云熊 於 2021-4-18 00:33 編輯

回復 20# PJChen
因為有移動每一個要排序的儲存格  所以會比較慢 不然就是要用另一種方法 就是先存在陣列 再貼回去 但顏色我不知道怎麼貼回去
如果顏色沒有差的話 就可以
有空再幫我試試看 是不是這樣的結果感謝
0418.rar (24.91 KB)

TOP

回復 19# 軒云熊
熊大好,
以下問題是用19樓的程式測試的:
1) MsgBox "選取依據資料檔案的位置"
因為我的檔案會有多個工作表,所以除了指定位置外,還必須要可以指定"依據"哪個工作表名稱來排序
2) 待排序的檔案,不一定與程式放在同一目錄下,且也沒有詢問要排序哪個檔,測試時放了2個檔案,都會打開,但只排序其中一個檔,應該要有選取檔案位置功能比較不會出錯
3) 這裡可以指定要排列的工作表的位置"整月統計" 或 "3",
應該是單一工作表排序,但會出現二次詢問,我測試2次輸入不同名稱,結果它只會排第2次輸入的工作表,單個工作表排序,應該只詢問一次就好
4) 多個工作表排序,
會出現1)起 & 2)迄的詢問,然後再出現詢問指定工作表名稱,我將它取消or確定,又會從頭再問一次,才開始執行排序,應該只問起 & 迄就可以了
5) 多個工作表排序,例如指定排2~8,但只會排2~7
6) 另一次測試指定排3~20,其第3個工作表名稱是1,第20個工作表是18,只排了18個,好像每次都不太一樣!
7) 雖然程式中有Application.Calculation = xlCalculationManual
但好像無法很快速排序,是因為排序都是比較慢的嗎?

TOP

回復 16# PJChen

這是有加入多個活頁簿循環和單一活頁簿看要用哪一個  看看這樣行不行 也許可以存成增益集
0415_1.rar (22.33 KB)

TOP

回復 16# PJChen

有空再幫我試試看 是不是你要的結果 感謝

R0415.rar (411.68 KB)

TOP

回復 16# PJChen

可以把要修改的 步驟寫出來

TOP

        靜思自在 : 【為善競爭】人生要為善競爭,分秒必爭。
返回列表 上一主題