[發問] Excel VBA條件排序問題

http://blog.xuite.net/hcm19522/twblog/552829288

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-22

熱烈參與勳章

2^#

發表於 2017-12-17 18:33 | 只看該作者

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

帖子: 43
主題: 9
精華: 0
積分: 79
點名: 1
作業系統: windows 7
軟體版本: office 2016
閱讀權限: 20
註冊時間: 2017-7-23
最後登錄: 2024-9-15

3^#

發表於 2017-12-18 00:00 | 只看該作者

回復 2# hcm19522

E2:E10{=INDEX(A:A,RIGHT(SMALL(MID(A$2:A$10,2,2)*10^9+MID(A$2:A$10,5,FIND("/",A$2:A$10)-5)*10^6+CODE(MID(A$2:A$10,FIND("/",A$2:A$10)+1,1))/1%+ROW(A$2:A$10),ROW(A1)),2))

抱歉，可以問一下
這判斷的流程是？而紅字部份，是怎麼判斷的？

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-22

熱烈參與勳章

4^#

發表於 2017-12-18 09:59 | 只看該作者

本帖最後由 hcm19522 於 2017-12-18 10:06 編輯

回復 3# 蒼雪

程式中10^9 .10^6與*1%三數的設定為第一二不超過99 (9與6次方與小數點一位差別) , 第二三用 CODE應差2次即可 ,最後2位給ROW空間 ,若數據大於99 ,空間須留3次方 ,如此往前推 ,大者*幾次方 "恆大" ,再擷取ROW空間的位置進行排序
幾次方沒固定重點不可重疊

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

joblyc017

　暱稱:

帖子: 111
主題: 3
精華: 0
積分: 156
點名: 0
作業系統: Window
軟體版本: office 365
閱讀權限: 20
性別: 女
註冊時間: 2017-8-14
最後登錄: 2023-6-26

5^#

發表於 2017-12-18 11:07 | 只看該作者

回復 1# 蒼雪

輔助欄+自訂排序之方式，請參考：https://goo.gl/38zBPM

帖子: 43
主題: 9
精華: 0
積分: 79
點名: 1
作業系統: windows 7
軟體版本: office 2016
閱讀權限: 20
註冊時間: 2017-7-23
最後登錄: 2024-9-15

6^#

發表於 2017-12-18 20:28 | 只看該作者

回復 4# hcm19522

今天實際使用了一下，結果整條的排序都只有L20[2/E]S....
不知道是在哪一個環節出錯了

-----------------------------------------------------------------
若在這個條件可以完成下，可以也將相鄰的儲存格整列移動嗎？
L20[2/E]S 這個是在B欄，還有A、C欄的資料也可以一同移動嗎？

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-22

熱烈參與勳章

7^#

發表於 2017-12-19 09:41 | 只看該作者

回復 6# 蒼雪

複製公式不含 "=" ,貼上後加 "=" ;最前 "{" 代表 shift+ctrl+enter 三鍵一起按所產生 ,非程式裡面

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

帖子: 43
主題: 9
精華: 0
積分: 79
點名: 1
作業系統: windows 7
軟體版本: office 2016
閱讀權限: 20
註冊時間: 2017-7-23
最後登錄: 2024-9-15

8^#

發表於 2017-12-19 19:24 | 只看該作者

回復 7# hcm19522

有喔，我知道Ctrl+Shift+Enter
今天反覆的再試了幾次，都還是一樣的情況

結果出來會是 E2:10 都是 L20[2/E]S

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-22

熱烈參與勳章

9^#

發表於 2017-12-20 09:48 | 只看該作者

回復 8# 蒼雪

原稿E2:E10{=INDEX(A:A,RIGHT(SMALL(MID(A$2:A$10,2,2)*10^9+MID(A$2:A$10,5,FIND("/",A$2:A$10)-5)*10^6+CODE(MID(A$2:A$10,FIND("/",A$2:A$10)+1,1))/1%+ROW(A$2:A$10),ROW(A1)),2))

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

帖子: 43
主題: 9
精華: 0
積分: 79
點名: 1
作業系統: windows 7
軟體版本: office 2016
閱讀權限: 20
註冊時間: 2017-7-23
最後登錄: 2024-9-15

10^#

發表於 2017-12-20 16:13 | 只看該作者

回復 9# hcm19522

我取下〔INDEX(A:A,RIGHT(SMALL(MID(A$2:A$10,2,2)*10^9+MID(A$2:A$10,5,FIND("/",A$2:A$10)-5)*10^6+CODE(MID(A$2:A$10,FIND("/",A$2:A$10)+1,1))/1%+ROW(A$2:A$10),ROW(A1)),2))〕
來使用，結果得到的是圖片的結果...