§ì¨ú¿z¿ï±ø¥óªºÈ¶×¤Jlistbox
- ©«¤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:58 ½s¿è
¦^´_ 9# wang077
¦^´_ 10# wang077
For Each a In .Range("A2", .[a2].End(xlDown)) 'End(xlDown)n§ï¦¨End(xlUp) |
|
|
|
|
|
|
- ©«¤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
|
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 12# wang077 - Dim crr
- Dim i As Long
- Set d = CreateObject("Scripting.Dictionary")
- With Sheets("Sheet1")
- For Each A In .Range("F2", .[f5000].End(xlUp))
- d(CDbl(A.Value)) = A.Value
- Next
- For i = 1 To d.Count
- ComboBox1.AddItem d(Application.Small(d.keys, i)) '±Æ§Ç
- Next
½Æ»s¥N½X §A§ï¥Î³oÓ¸Õ¬Ý¬Ý |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 13# s3526369
¤@¼Ë¤£¦æ¡Aª½±µ¤¤Â_µ{¦¡ |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 14# wang077
§A±HקïÀÉ®×µ¹§ÚÀ°§A¬Ý |
|
|
|
|
|
|
- ©«¤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
|
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 16# s3526369
¸Ñ¨M¤F¡Aè褣¤p¤ß«½Æµ¹combobox=crr¤F
ÁÂÁ¤j¤j |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 16# s3526369
¤j¤j¡A¦pªG¦³¨ä¥LÄæ¦ì¤]n§ì¨ú©O
¬O¤£¬O¥un§âd§ï±¼?
¦]¬°§Ú§âd§ï±¼¡A¥L«o§ì¤£¨ì«¬ºA |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 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)) |
|
|
|
|
|
|