返回列表 上一主題 發帖

字典排序

modelcrazyer

帖子
66 
主題
28 
精華
0 
積分
95 
點名
0  
作業系統
Win7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2012-10-1 
最後登錄
2018-6-26 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-12-26 23:25 | 只看該作者

字典排序

以下是我用字典的一段程式
arr1 = Array(UserForm5.ComboBox1)
Set dic1 = CreateObject("scripting.dictionary")
For I = 1 To UBound(arr1)
  dic1(arr1(I)) = ""
Next
  arr1 = UserForm5.ComboBox1.List
  For I = 1 To UBound(arr1)
    dic1(arr1(I, 0)) = ""
    'arr1(I) = Application.Small(UBound(arr1), I)
  Next
  UserForm5.ComboBox1.List = dic1.keys
但是我想要排序，請問要怎麼寫??
收藏 分享

准提部林

帖子
2842 
主題
10 
精華
0 
積分
2898 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-4-28 
4#
發表於 2015-12-29 20:57 | 只看該作者
回復 3# modelcrazyer


做再次處理，繞圈子是必要，若是〔純數值〕，可利用函數：
ReDim Brr(1 To Dic1.Count)
For i = 1 To Dic1.Count
　　Brr(i) = Application.Small(Dic1.keys, i)
Next i
UserForm5.ComboBox1.List = Brr

TOP

modelcrazyer

帖子
66 
主題
28 
精華
0 
積分
95 
點名
0  
作業系統
Win7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2012-10-1 
最後登錄
2018-6-26 
3#
發表於 2015-12-29 20:31 | 只看該作者
感謝!!看來還是得繞個圈子!!謝謝!!

TOP

准提部林

帖子
2842 
主題
10 
精華
0 
積分
2898 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-4-28 
2#
發表於 2015-12-28 09:56 | 只看該作者
使用〔陣列排序〕是可以，程式碼也不多，但對不熟VBA者不太容易理解，尤其是〔多欄式〕的陣列～～

建議利用一張閒置的工作表中欄位來排序後再取回：
With [Sheet1!A1].Resize(dic1.Count, 1)
　　　.Value = Application.Transpose(dic1.keys)
　　　.Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
　　　UserForm5.ComboBox1.List = .Value　　
　　　.ClearContents
End With

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題