返回列表 上一主題 發帖

字典排序

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 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

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 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

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題