Excel VBA條件排序問題 - VB 與 VB.Net

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

16^# 跳轉到 »

發表於 2017-12-26 10:51 | 只看該作者

回復 15# 蒼雪
可能要先了解2個問題：
1.排序索引欄是在那一欄？例如：本程式是以A欄做為排序條件。
2.各欄第1列有沒有抬頭？

本巨集是透過輔助欄來排序的，所以要先釐清欄位位置及數量，如能上傳檔案更好。

TOP

蒼雪

中學生 Rank: 2

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

15^#

發表於 2017-12-25 20:17 | 只看該作者

回復 14# Kubi

抱歉，看了一下，是我順序放錯了。
這個除了排序這個儲存格外，相同row可以一起移動嗎？

TOP

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

14^#

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

回復 1# 蒼雪
用VBA解如下：
Sub test()
arr = Array("L20", "L10", "L30")
Application.AddCustomList listArray:=arr
n = Application.CustomListCount
For r = 1 To 9
      Cells(r, 2).Value = Split(Cells(r, 1).Value, "[")(0)
      Cells(r, 3).Value = Split(Split(Cells(r, 1).Value, "/")(0), "[")(1)
      Cells(r, 4).Value = Split(Split(Cells(r, 1).Value, "/")(1), "]")(0)
Next r
[A1].CurrentRegion.Sort Key1:=[B1], OrderCustom:=n + 1, key2:=[C1], key3:=[D1]
Application.DeleteCustomList n
Columns("B:D").Delete
End Sub

另外底下順序是否反了？

L20[7.5/B.5]S
L20[7/C]N

應該是：
L20[7/C]N
L20[7.5/B.5]S

TOP

蒼雪

中學生 Rank: 2

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

13^#

發表於 2017-12-23 21:01 | 只看該作者

回復 12# hcm19522

經過嘗試，結果還是跟之前一樣...出來的結果只有一個
不會正常的排序... ...

TOP

hcm19522

大學生 Rank: 4

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

熱烈參與勳章

12^#

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

回復 11# hcm19522

55.png (143.08 KB)

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

TOP

hcm19522

大學生 Rank: 4

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

熱烈參與勳章

11^#

發表於 2017-12-20 17:55 | 只看該作者

回復 10# 蒼雪

從畫面裡常用改"公式" ,再手動改"自動"

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

TOP

蒼雪

中學生 Rank: 2

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

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))〕
來使用，結果得到的是圖片的結果...

TOP

hcm19522

大學生 Rank: 4

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

熱烈參與勳章

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/

TOP

蒼雪