返回列表 上一主題 發帖

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

回復 1# yangjie

資料是文字或是數值?
要通用就要以字元碼排序
  1. Sub ex()
  2. Set d = CreateObject("Scripting.dictionary")
  3. For Each a In Range([A1], [A1].End(xlDown))
  4.   k = 0
  5.   For i = 1 To Len(a)
  6.      k = k + Asc(Mid(a, Len(a) - i + 1, 1)) * 10 ^ i
  7.   Next
  8.   d(k) = a.Value
  9. Next
  10. ComboBox1.Clear
  11. For i = 1 To d.Count
  12.    ComboBox1.AddItem d(Application.Small(d.keys, i))
  13. Next
  14. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 我們要做好社會的環保,也要做好內心的環保。
返回列表 上一主題