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

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

¥»©«³Ì«á¥Ñ 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)

TOP

¦^´_ 11# s3526369
­«½Æ.JPG
µ{¦¡½X.JPG
ÁÙ¬O¤@¼Ë­C

TOP

¦^´_ 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.     For i = 1 To d.Count
  9.     ComboBox1.AddItem d(Application.Small(d.keys, i)) '±Æ§Ç
  10.     Next
½Æ»s¥N½X
§A§ï¥Î³o­Ó¸Õ¬Ý¬Ý

TOP

¦^´_ 13# s3526369
¤@¼Ë¤£¦æ¡Aª½±µ¤¤Â_µ{¦¡

TOP

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

TOP

¦^´_ 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.   Next
  9.     For i = 1 To d.Count
  10.     ComboBox1.AddItem d(Application.Small(d.keys, i)) '±Æ§Ç
  11.     Next
  12. End With

  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 16# s3526369
¸Ñ¨M¤F¡A­è­è¤£¤p¤ß­«½Æµ¹combobox=crr¤F
ÁÂÁ¤j¤j

TOP

¦^´_ 16# s3526369
¤j¤j¡A¦pªG¦³¨ä¥LÄæ¦ì¤]­n§ì¨ú©O
¬O¤£¬O¥u­n§âd§ï±¼?
¦]¬°§Ú§âd§ï±¼¡A¥L«o§ì¤£¨ì«¬ºA

TOP

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

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD