¤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) |