[µo°Ý] ¦p¦ó¥i¨Ï d.keys ¦U¶µ­«§@±Æ§Ç°Ê§@?

yangjie

½Ð±Ð½Ñ¦ì¤j¤j
    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
½Ð±Ð
    ¦p¦ó¥i¨Ï d.keys ¦U¶µ­«§@±Æ§Ç°Ê§@ (µ²ªG¨Ïa(0),a(1),a(2)-----¬O»¼¼W±Æ§Ç)?
                                                           ÁÂÁ«ü¾É

yangjie

¦^´_ 2# GBKEE
ÁÂÁÂGBKEE
§¹¥þ¤F¸Ñ

yangjie

¦^´_ 3# Hsieh
ÁÂÁÂHeish ª©¤j
For i = 1 To Len(a)
     k = k + Asc(Mid(a, Len(a) - i + 1, 1)) * 10 ^ i
Next
¦³·N«ä
"08"  "10"  "11"  "01" "02"¥i±Æ§Ç¦¨ "01"<"02"<"08" <"10"<"11"  ¶Ü?
   "01"<"1"¶Ü?

yangjie

¦^´_ 6# GBKEE
ÁÂÁÂGBKEE
¬O§Ú§â©Ò»Ýªºµ²ªG ¨S»¡²M·¡
ªí³æ¸Ì
TextBox1="05"       TextBox2   
TextBox3="01"       TextBox4  
TextBox5=""            TextBox6  
TextBox7="12"       TextBox8   
TextBox9="08"       TextBox10   
TextBox11="02"      TextBox12   
TextBox13="11"      TextBox14
¦p¦ó¤U»yªk  ¨Ï   TextBox2.value =3  TextBox4.value =1  TextBox6.value =""  TextBox8.value =6
                             value¬O¥¦ªº±Æ§Ç