根據"料號欄"為依據,做排序 - Excel程式區

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

22^#

發表於 2021-4-18 11:23 | 只看該作者

本帖最後由 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

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

23^#

發表於 2021-4-18 13:53 | 只看該作者

回復 21# 軒云熊

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

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

24^#

發表於 2021-4-18 23:12 | 只看該作者

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

回復 23# PJChen

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

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

25^#

發表於 2021-4-18 23:31 | 只看該作者

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

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

26^#

發表於 2021-4-18 23:55 | 只看該作者

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

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

27^#

發表於 2021-4-19 21:22 | 只看該作者

回復 26# PJChen

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

0419.rar (26.75 KB)

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

28^#

發表於 2021-4-20 23:50 | 只看該作者

回復 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 & "") '可以指定"依據"哪個工作表來排序

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

29^#

發表於 2021-4-21 00:29 | 只看該作者

回復 28# PJChen

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

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

30^#

發表於 2021-4-25 15:23 | 只看該作者

回復 29# 軒云熊

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

0419.rar (24.49 KB)