軒云熊

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

下載次數: 2

2021-4-18 00:26

PJChen

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

0418.rar (24.71 KB)

下載次數: 6

2021-4-18 11:23

PJChen

回復 21# 軒云熊

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

軒云熊

回復 23# PJChen

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

軒云熊

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

PJChen

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

軒云熊

回復 26# PJChen

有空再幫我試試看 是不是這樣的結果感謝

0419.rar (26.75 KB)

下載次數: 3

2021-4-19 21:22

PJChen

回復 27# 軒云熊
熊大好,
我想將依據的工作表改為名稱,才不用一直算第幾個工作表,
但修改後不能運作,停在紅字這一行,請幫忙看下哪裡要再修改?
    wO = xS.[設定!Z2].Value
    If Sh.Name$(wO) Then MsgBox "沒有指定工作表": Ex.Quit: Set Ex = Nothing: Set Sh = Nothing: Exit Sub
    MsgBox """" & "依據" & wO & "工作表排序"
    Set Sh = Ex.Sheets(wO & "") '可以指定"依據"哪個工作表來排序

軒云熊

回復 28# PJChen


    If IsNumeric(wO) Then MsgBox "沒有指定第幾個工作表": Ex.Quit: Set Ex = Nothing: Set Sh = Nothing: Exit Sub
    MsgBox """" & "依據" & """第" & wO & "個工作表排序"
    Set Sh = Ex.Sheets(wO) '可以指定"依據"哪個工作表來排序

PJChen

回復 29# 軒云熊

熊大好,
修改完後,無法執行,說沒有指定工作表,但儲存格明明有工作表名稱
另外,我把程式移到其他工作表內,跟其他程式放一起,也無法執行,
說是沒有定義,能否也麻煩幫忙看下定莪的部份?
0419.rar (24.49 KB)

下載次數: 2

2021-4-25 15:23