s3526369

¦^´_ 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]

s3526369

¦^´_ 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

s3526369

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

s3526369

¦^´_ 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

s3526369

¦^´_ 9# wang077
¦^´_ 10# wang077
For Each a In .Range("A2", .[a2].End(xlDown)) 'End(xlDown)­n§ï¦¨End(xlUp)

s3526369

¦^´_ 12# wang077

1.     Dim crr
   
2.     Dim i As Long
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. With Sheets("Sheet1")
   
5.    For Each A In .Range("F2", .[f5000].End(xlUp))
   
6.    d(CDbl(A.Value)) = A.Value
   
7.   Next
   
8. 
   
9.     For i = 1 To d.Count
   
10.     ComboBox1.AddItem d(Application.Small(d.keys, i)) '±Æ§Ç
    
11.     Next

½Æ»s¥N½X

§A§ï¥Î³o­Ó¸Õ¬Ý¬Ý

s3526369

¦^´_ 14# wang077
§A±H­×§ïÀÉ®×µ¹§ÚÀ°§A¬Ý

s3526369

¦^´_ 14# wang077

1. Private Sub CommandButton2_Click()
   
2.     Dim crr
   
3.     Dim i As Long
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. With Sheets("Sheet1")
   
6.    For Each A In .Range("F2", .[f5000].End(xlUp))
   
7.    d(CDbl(A.Value)) = A.Value
   
8. 
   
9.   Next
   
10.     For i = 1 To d.Count
    
11.     ComboBox1.AddItem d(Application.Small(d.keys, i)) '±Æ§Ç
    
12.     Next
    
13. End With
    
14. 
    
15. End Sub

½Æ»s¥N½X

¤U¸ü (172.65 KB)
Åã¥Ü¤é´Á

2021-7-9 12:39

¤U¸ü (205.31 KB)
Åã¥Ü¼Æ¦r

2021-7-9 12:39

s3526369

¦^´_ 18# wang077
¨ä¥LÄæ§ì¨ú ´N¬O§ï
³o¥Ø«e¬OFÄæ For Each A In .Range("F2", .[f5000].End(xlUp))
§ï¦¨AÄ檺¸Ü´N§â¬õ¦â³¡¤À§ï¦¨A For Each A In .Range("A2", .[a5000].End(xlUp))