[發問] 使用者定義的字串排序

各位好:

我的問題是我整張工作列表中"F"欄位要做字串的排序(由使用者定義條件)

例如:
麻辣
麻麻
天天
開開
欣欣

以上字串"麻辣"排為1,"麻麻"排為2,"天天"排為3

依此類推不是只有字串排序字串排序時也會使其他欄位連動排序

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2016-12-11 08:21 | 只看該作者

本帖最後由 c_c_lai 於 2016-12-11 08:25 編輯

回復 5# 爆肝達人

Sub Ex()
Dim ct As Long
With 工作表1
ct = .[A65536].End(3).Row
.Range("A9:C" & ct).Copy .[F9]
.Range("F9:H" & ct).Sort Key1:=.[F9], Order1:=xlAscending
End With
End Sub

複製代碼

TOP

Kubi

中學生 Rank: 2

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

6^#

發表於 2016-12-8 22:10 | 只看該作者

回復 5# 爆肝達人

Sub test()
Dim arr
arr = Array("麻辣", "麻麻", "天天", "開開", "欣欣")
Application.AddCustomList listArray:=arr
n = Application.CustomListCount
er = [A65536].End(3).Row
Range("A9:C" & er).Sort Key1:=[B9], OrderCustom:=n + 1
Application.DeleteCustomList n
Set arr = Nothing
End Sub

複製代碼

TOP

爆肝達人

中學生 Rank: 2

帖子: 30
主題: 12
精華: 0
積分: 147
點名: 0
作業系統: WIN 11
軟體版本: OFFICE365
閱讀權限: 20
性別: 女
註冊時間: 2010-5-7
最後登錄: 2023-12-4

5^#

發表於 2016-12-7 22:12 | 只看該作者

不好意思我好像沒講清楚

如下表要使用 VBA方式

感謝

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章