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

§ì¨ú¿z¿ï±ø¥óªº­È¶×¤Jlistbox

§ì¨ú¿z¿ï±ø¥óªº­È¶×¤Jlistbox


½Ð°Ý§Ú¦p¦ó±N¨C­ÓÄæ¦ìªº¿z¿ï±ø¥ó©ñ¶iListBox¨Ó¿z¿ï
P1.zip (23.57 KB)

¥»©«³Ì«á¥Ñ s3526369 ©ó 2021-7-7 16:46 ½s¿è

¦^´_ 1# wang077
  1. Set D = CreateObject("Scripting.Dictionary")
  2. With Sheets("Sheet1")
  3.         .Activate
  4.    For Each a In .Range(.[a2], .[a2].End(xlDown))
  5.    D(a.Value) = ""
  6.    Next
  7. End With
  8. ComboBox1.List = D.keys
½Æ»s¥N½X
§Ú³o­Ó¬O¥Î¤U¦¡¿ï³æ
§A¥i¥H±HÀÉ®×µ¹§ÚÀ°§A¬Ý
[email protected]

TOP

¦^´_ 2# s3526369
·PÁÂÀ°¦£¡A¦³¿ìªkÅý¥¦±q¤p¨ì¤j±Æ§Ç¶Ü

TOP

¥»©«³Ì«á¥Ñ s3526369 ©ó 2021-7-8 08:20 ½s¿è

¦^´_ 3# wang077
  1.     Dim crr
  2.     Dim i As Long
  3. Set D = CreateObject("Scripting.Dictionary")
  4. With Sheets("Sheet1")
  5.         .Activate
  6.    For Each a In .Range(.[a2], .[a2].End(xlDown))
  7.    D(a.Value) = ""
  8.    Next
  9. End With
  10. crr = D.keys  
  11. '================================================================±Æ§Ç
  12. For i = 0 To UBound(crr) - 1
  13.      k = i
  14.        For j = i + 1 To UBound(crr)
  15.            If crr(k) > crr(j) Then k = j '¤É§Ç±Æ¦C¥Î">"¡A­°§Ç±Æ¦C¥Î"<"
  16.        Next
  17.        If k > i Then
  18.           X = crr(i)
  19.           crr(i) = crr(k)
  20.           crr(k) = X
  21.        End If
  22. Next
  23.             
  24. ComboBox1.List = crr
½Æ»s¥N½X

TOP

¦^´_ 4# s3526369
·PÁ¤j¤j¡A¸Ñ¨M§ÚªººÃ´b

TOP

¦^´_ 5# wang077
¤£¥Î«È®ð¦³¤°»ò°ÝÃD¥i¥H¦A°Ý

TOP

¦^´_ 6# s3526369

¦pªG¹³³o¼Ë¡AF¨ºÄæªÅ¥Õ´X®æ«á¡A¤U­±ªº§ì¤£¨ì¤F
½d¨ÒÀɮפw±H¨ì§Aªºmail

TOP

¥»©«³Ì«á¥Ñ s3526369 ©ó 2021-7-9 08:17 ½s¿è

¦^´_ 7# wang077 Dim crr
    Dim i As Long
Set D = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
        .Activate
   For Each a In .Range("A2", .[a2].End(xlDown))  '§â[a2]§ï¦¨[a1000]©ÎªÌ¬O[a2000] ®æ¼Æ¥i¥H¦Û¦æ³]©w
   D(a.Value) = ""
   Next
End With
crr = D.keys  
'================================================================±Æ§Ç
For i = 0 To UBound(crr) - 1
     k = i
       For j = i + 1 To UBound(crr)
           If crr(k) > crr(j) Then k = j '¤É§Ç±Æ¦C¥Î">"¡A­°§Ç±Æ¦C¥Î"<"
       Next
       If k > i Then
          X = crr(i)
          crr(i) = crr(k)
          crr(k) = X
       End If
Next
            
ComboBox1.List = crr

TOP

¦^´_ 8# s3526369
¦³¤F¡A·PÁ¤j¯«À°§U
¥t¥~§Ú·Q½Ð±Ð¤@¤U
¦pªG§Ú­n§ì¨úªº®æ¦¡¬O¤é´Á
¦pªG«ö·Ó³o¼Ë§ì¡A¦n¹³§ì¤£¨ì®æ¦¡­C

TOP

¥»©«³Ì«á¥Ñ wang077 ©ó 2021-7-9 08:40 ½s¿è

¦^´_ 8# s3526369
¤j¤j¡A­è­è¬Ý¤F¤@¤U
¥¦¦n¹³·|§ì¨ì­«½Æ­È­C
­«½Æ.JPG

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD