軒云熊

回復 10# PJChen

我有修改過了  有空再幫我試試看 行不行 感謝

RR0412.rar (300.22 KB)

下載次數: 2

2021-4-12 22:19

PJChen

回復 11# 軒云熊
熊大好,
我將目前可能會需要排序的工作表都放入一併測試,如下:
1) 所有工作表,排序的資料下半部不正確
2) 工作表更改過表頭(把表頭範圍加大),排序就更不正確

R0412.rar (393.09 KB)

下載次數: 3

2021-4-12 23:13

軒云熊

回復 12# PJChen

改好了 有空再看看是不是你要的結果 感謝
R0413.rar (401.45 KB)

下載次數: 4

2021-4-13 01:13

PJChen

回復 13# 軒云熊

熊大好,

1) 印盤點表...這個工作表完全無法排序,我想是因為第一欄是空白,在第一欄key入某些數字後,就可以正常排序,不知這個能夠克服嗎?如果不行,就不改程式了！
2) 另外,無意中發現若在程式中按F5,則程式也不能排序,但按"sorting"鍵時則可排序,不知原因？

軒云熊

回復 14# PJChen
我也不知道 F5 的問題 >"<     有空在幫我試試看 還有沒有問題 感謝

R0413_1.rar (402.34 KB)

下載次數: 3

2021-4-13 22:08

PJChen

回復 15# 軒云熊
熊大好,
我把程式稍作修改,以便順應我平日正式檔,程式與執行報表是分開的,但修改後程式就停在
b = xB.Sheets(a3).[a1].SpecialCells(xlCellTypeConstants, 23).Column
無法執行,請幫忙看看！
R0413_1.rar (414.14 KB)

下載次數: 3

2021-4-14 23:08

軒云熊

回復 16# PJChen

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

軒云熊

回復 16# PJChen

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

R0415.rar (411.68 KB)

下載次數: 2

2021-4-15 17:07

軒云熊

回復 16# PJChen

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

下載次數: 2

2021-4-15 22:20

PJChen

回復 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
但好像無法很快速排序,是因為排序都是比較慢的嗎?