返回列表 上一主題 發帖

字典排序

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
但是我想要排序，請問要怎麼寫??
收藏 分享

modelcrazyer

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

TOP

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