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

°j°éªº°ÝÃD

°j°éªº°ÝÃD

¤p§Ì·Q°µ¤@­Ó«ü¥O «ö¤U¥h«á·|±qsheets("a")§ì¨ú¸ê®Æ
µM«á¸õ¥X§Ú©Ò³]ªºUserForm1 §Ú¦bUserForm1¸Ì³]¤F¤@­ÓListBox
µM«á§â©Ò¦³¸ê®Æ¤º®e·s¼W¦ÜListBoxªí³æ¸Ì
¦Ó¥B·s¼Wªº¤º®e ¦pªG§Ú«ö²Ä¤@­Ó ¥L¥i¥H¸õ¨ì§Ú¥t¤@¥÷¸ê®Æªí³æ ·j´M¨ì¬Û¦Pªº¸ê®Æ
¥t¤@¥÷¸ê®Æªí³æ ¥u­n±q"C1"¶}©l§PÂ_ ¦pªG¤£¬Û¦P ´N©¹¤U15®æ¦A§PÂ_¤]´N¬O"C16"
¤@ª½§PÂ_¨ì¤@¼ËªºµM«á¨Ï¨º­ÓÀx¦s®æ¬°¿ï¨ú¤¤


©ñ¸ê®Æªºsheet ±qÀx¦s®æA1¶}©l©¹¤UªºÀx¦s®æ³£¬O¸ê®Æ
¦ý¦³®É§Ú¸Ì­±ªº¸ê®Æ·|°µ§R´î
©Ò¥H¤£¯à«ü©w¿ï¨ú("a1:a100")·s¼W¦ÜListBox
§Ú¸ÕµÛ¥ÎDo Loop Until IsEmpty(ActiveCell.Value) = True
¨Ï¥L°»´ú¨ì¨S¸ê®Æ«á¸õ¥X ¦ý§Ú¤£ª¾¹D«ç»ò·s¼W¦ÜListBox
¦³¨S¦³¤°»ò¤èªk¥i¥Hº¡¨¬²Ä1-6¥yªº«ü¥O

¤p§Ì¤u§@»Ý­n «ô°U¤j¤j­ÌÀ°À°¦£¤F!!

¦pªG¥i¥H¨Ï§Ú¿ï¨ú¤¤ªºÀx¦s®æ ©¹¤W¤@®æ µM«á±N¦¹®æ¨ì¤W­±ªºÀx¦s®æ¿ï¨ú
¨Ò¦p¿ï¨ú¤¤"A100" ©¹¤W¤@®æ¨ìA99 µM«á±NA99¨ìA1ªº¸ê®Æ¿ï¨ú)
¨Ã·s¼W¦ÜListBoxªí³æ¨º1-3¥yªº³¡¤À´N¤£¥Î¤F
¥B§Ú§Æ±æListBoxªí³æ·s¼W¸ê®Æªº±Æ§Ç¬°A1¨ìA99
¦Ó¤£¬OA99-A1

TOP

¥»©«³Ì«á¥Ñ §d¼ÝÁ¾ ©ó 2013-8-25 11:18 ½s¿è

¤£¦n·N«ä!! ¶W¹L3¤ÀÄÁªº©«¤l¦n¹³¤£¯à½s¿è
¤p§Ì¤w¸g¦¨¥\§âListBoxªº¸ê®Æ§Ë¥X¨Ó¤F
§Æ±æ¤j¤j­ÌÀ°§Ú§Ë¥X4-6¥y
¤w¤U¬O§Ú1-3¥y©Ò¼gªºµ{¦¡½X
½Ð¤j¤j°Ñ¦Ò!!
  1. Sheets("³æ»ù¤ÀªR¯Á¤Þ").Select
  2. j = Worksheets("³æ»ù¤ÀªR¯Á¤Þ").UsedRange.Rows.Count      
  3. Application.ScreenUpdating = False
  4. ActiveSheet.Range("a1").Activate
  5. For k = 1 To j
  6. With UserForm3.ListBox1
  7. .AddItem Selection
  8. End With
  9. ActiveCell.Offset(1, 0).Range("A1").Select
  10. Next k
  11. UserForm3.Show
½Æ»s¥N½X

TOP

¦^´_ 3# §d¼ÝÁ¾
­nªþ¤W½d¨ÒÀÉ®×,¤~©ú¾é§A»¡ªº¬O¤°»ò.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD