§ì¨ú¿z¿ï±ø¥óªºÈ¶×¤Jlistbox
- ©«¤l
- 104
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2021-6-21
- ³Ì«áµn¿ý
- 2021-8-24
|
§ì¨ú¿z¿ï±ø¥óªºÈ¶×¤Jlistbox
½Ð°Ý§Ú¦p¦ó±N¨CÓÄæ¦ìªº¿z¿ï±ø¥ó©ñ¶iListBox¨Ó¿z¿ï
P1.zip (23.57 KB)
|
|
|
|
|
|
|
- ©«¤l
- 45
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 72
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-2-12
- ³Ì«áµn¿ý
- 2024-7-15
|
¥»©«³Ì«á¥Ñ s3526369 ©ó 2021-7-7 16:46 ½s¿è
¦^´_ 1# wang077 - Set D = CreateObject("Scripting.Dictionary")
- With Sheets("Sheet1")
- .Activate
- For Each a In .Range(.[a2], .[a2].End(xlDown))
- D(a.Value) = ""
- Next
- End With
- ComboBox1.List = D.keys
½Æ»s¥N½X §Ú³oÓ¬O¥Î¤U¦¡¿ï³æ
§A¥i¥H±HÀÉ®×µ¹§ÚÀ°§A¬Ý
[email protected] |
|
|
|
|
|
|
- ©«¤l
- 104
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2021-6-21
- ³Ì«áµn¿ý
- 2021-8-24
|
¦^´_ 2# s3526369
·PÁÂÀ°¦£¡A¦³¿ìªkÅý¥¦±q¤p¨ì¤j±Æ§Ç¶Ü |
|
|
|
|
|
|
- ©«¤l
- 45
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 72
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-2-12
- ³Ì«áµn¿ý
- 2024-7-15
|
¥»©«³Ì«á¥Ñ s3526369 ©ó 2021-7-8 08:20 ½s¿è
¦^´_ 3# 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))
- 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
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 104
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2021-6-21
- ³Ì«áµn¿ý
- 2021-8-24
|
¦^´_ 4# s3526369
·PÁ¤j¤j¡A¸Ñ¨M§ÚªººÃ´b |
|
|
|
|
|
|
- ©«¤l
- 45
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 72
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-2-12
- ³Ì«áµn¿ý
- 2024-7-15
|
¦^´_ 5# wang077
¤£¥Î«È®ð¦³¤°»ò°ÝÃD¥i¥H¦A°Ý |
|
|
|
|
|
|
- ©«¤l
- 104
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2021-6-21
- ³Ì«áµn¿ý
- 2021-8-24
|
¦^´_ 6# s3526369
¦pªG¹³³o¼Ë¡AF¨ºÄæªÅ¥Õ´X®æ«á¡A¤U±ªº§ì¤£¨ì¤F
½d¨ÒÀɮפw±H¨ì§Aªºmail |
|
|
|
|
|
|
- ©«¤l
- 45
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 72
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-2-12
- ³Ì«áµn¿ý
- 2024-7-15
|
¥»©«³Ì«á¥Ñ 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 |
|
|
|
|
|
|
- ©«¤l
- 104
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2021-6-21
- ³Ì«áµn¿ý
- 2021-8-24
|
¦^´_ 8# s3526369
¦³¤F¡A·PÁ¤j¯«À°§U
¥t¥~§Ú·Q½Ð±Ð¤@¤U
¦pªG§Ún§ì¨úªº®æ¦¡¬O¤é´Á
¦pªG«ö·Ó³o¼Ë§ì¡A¦n¹³§ì¤£¨ì®æ¦¡C |
|
|
|
|
|
|
- ©«¤l
- 104
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2021-6-21
- ³Ì«áµn¿ý
- 2021-8-24
|
¥»©«³Ì«á¥Ñ wang077 ©ó 2021-7-9 08:40 ½s¿è
¦^´_ 8# s3526369
¤j¤j¡Aèè¬Ý¤F¤@¤U
¥¦¦n¹³·|§ì¨ì«½ÆÈC
|
|
|
|
|
|
|