ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦r¨å±Æ§Ç

¦r¨å±Æ§Ç

¥H¤U¬O§Ú¥Î¦r¨åªº¤@¬qµ{¦¡
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
¦ý¬O§Ú·Q­n±Æ§Ç¡A½Ð°Ý­n«ç»ò¼g??

¨Ï¥Î¡e°}¦C±Æ§Ç¡f¬O¥i¥H¡Aµ{¦¡½X¤]¤£¦h¡A¦ý¹ï¤£¼ôVBAªÌ¤£¤Ó®e©ö²z¸Ñ¡A¤×¨ä¬O¡e¦hÄ榡¡fªº°}¦C¡ã¡ã

«Øij§Q¥Î¤@±i¶¢¸mªº¤u§@ªí¤¤Äæ¦ì¨Ó±Æ§Ç«á¦A¨ú¦^¡G
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

·PÁÂ!!¬Ý¨ÓÁÙ¬O±o¶­Ó°é¤l!!ÁÂÁÂ!!

TOP

¦^´_ 3# modelcrazyer


°µ¦A¦¸³B²z¡A¶°é¤l¬O¥²­n¡A­Y¬O¡e¯Â¼Æ­È¡f¡A¥i§Q¥Î¨ç¼Æ¡G
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

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD