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

[µo°Ý] Listbox¸ê®ÆÅã¥Ü±Æ§Ç

[µo°Ý] Listbox¸ê®ÆÅã¥Ü±Æ§Ç

¤j¤j¦n¡A

¤p§Ì·Q§âsheet1ªº¸ê®Æ¨Ì§ÇÅã¥Ü¦blistbox1¤W

¡isheet1¸ê®Æ¬°¡j
¡@A1¡@A2
½s¸¹¡@1
²£¦a¡@¤é¥»
³W®æ¡@7S5G
¤Ø¤o¡@1.2
§å¸¹¡@3F094E
¡m®æ¦¡¤@ª½­«ÂФU¥h¡A¦ý¸ê®Æ¤£¤@¼Ë¡n

¡i¤p§Ì½s¼gªº½s½X¬°¡j
For i = 1 To 2000
¡@If Sheet1.Cells(5 * i, 2).Value = "" Then
¡@¡@Exit Sub
¡@Else
¡@¡@ListBox1.AddItem "³W®æ¡G" & Sheet1.Cells(-2+5 * i, 2) & "¡@¤Ø¤o¡G" & Sheet1.Cells(-1 + 5 * i, 2) & "¡@§å¸¹¡G" & Sheet1.Cells(5 * i, 2)   
¡@End If
Next


¦ý¬Oµo²{¦pªGsheet1¸ê®Æ¤£¤@¼Ëªø«hÅã¥Ü°_¨Ó·|¦³ªø¦³µu¡A

½Ð±Ð¦U°ª¤â¡A½Ð°Ý¸Ó«ç»ò³]©w¯à°÷¡A³W®æ¤@±Æ¡B¤Ø¤o¤@±Æ¡B§å¸¹¤@±Æ©O¡H

(°²³]¸ê®Æ³Ì¦h³£¬O10words¡C)

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-7-18 13:55 ½s¿è

¦^´_ 1# lifedidi
¥i°Ñ¦Ò http://forum.twbts.com/thread-9805-1-2.html
³]¸m¦hÄæ¦ìªºListbox¡A¦³§xÃø¦A´£°Ý¡C

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD