返回列表 上一主題 發帖

[發問] 如何可使 d.keys 各項重作排序動作?

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-6-19 10:38 | 顯示全部帖子

[發問] 如何可使 d.keys 各項重作排序動作?

請教諸位大大
    Dim d As Object , a
    Dim r As Range
    Sheets("學生資料").Activate
    Set d = CreateObject("Scripting.Dictionary")
            With Sheets("學生資料")
                For Each r In .Range(.Cells(2, 1), .Cells(65536, 1).End(xlUp))
                    d(r.Value) = r.Value
                Next
            End With
     a=d.keys
     ComboBox1.List = d.keys
   End Sub
請教
    如何可使 d.keys 各項重作排序動作 (結果使a(0),a(1),a(2)-----是遞增排序)?
                                                           謝謝指導
收藏 分享

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
2#
發表於 2014-6-20 02:47 | 顯示全部帖子
回復 2# GBKEE
謝謝GBKEE
完全了解

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 2014-6-20 02:56 | 顯示全部帖子
回復 3# Hsieh
謝謝Heish 版大
For i = 1 To Len(a)
     k = k + Asc(Mid(a, Len(a) - i + 1, 1)) * 10 ^ i
Next
有意思
"08"  "10"  "11"  "01" "02"可排序成 "01"<"02"<"08" <"10"<"11"  嗎?
   "01"<"1"嗎?

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
4#
發表於 2014-6-21 14:53 | 顯示全部帖子
回復 6# GBKEE
謝謝GBKEE
是我把所需的結果 沒說清楚
表單裡
TextBox1="05"       TextBox2   
TextBox3="01"       TextBox4  
TextBox5=""            TextBox6  
TextBox7="12"       TextBox8   
TextBox9="08"       TextBox10   
TextBox11="02"      TextBox12   
TextBox13="11"      TextBox14
如何下語法  使   TextBox2.value =3  TextBox4.value =1  TextBox6.value =""  TextBox8.value =6
                             value是它的排序

TOP

        靜思自在 : 要用心，不要操心、煩心。
返回列表 上一主題