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

¤W¦¸¿ù»~,­«·s¾ã²z, ¦p¦ó§â¸ê®Æ¦Û°Ê¶ñ¤J¤u§@ªí2

¤W¦¸¿ù»~,­«·s¾ã²z, ¦p¦ó§â¸ê®Æ¦Û°Ê¶ñ¤J¤u§@ªí2

¥»©«³Ì«á¥Ñ ©P¤j°¶ ©ó 2011-4-8 00:04 ½s¿è

¤j¤j¦n:
¤W¦¸¿ù»~,­«·s¾ã²z, ¦p¦ó§â¤u§@ªí3¸ê®Æ¶ñ¤J¤u§@ªí2,
¤u§@ªí3,¶À¦âÀx¦s®æ¬O¶ñ¼g¸ê®Æ,·í¶ñ¼g«á, ¥ÎªÌ«ö¤U«ö¶s, ¸ê®Æ«K¶ñ¤J¤u§@ªí2,
¦Ó¸ê®Æ¤£Â_¿é¤J, ¬G¤u§@ªí2¸ê®Æ¤£Â_¦V¤U¶ñ¼g·s¼W,
½Ð¤j¤j­Ì±Ð¾É, ªþ¥ó

bb.rar (5.44 KB)

  1. Private Sub CommandButton2_Click()
  2. Dim ar(10)
  3. For i = 6 To 24 Step 2
  4.   ar(s) = Cells(i, 5).Value
  5.   s = s + 1
  6. Next
  7. Sheets("sheet2").[A4].Resize(, 10) = ar
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¤j¤j, ¦­±á
ÁÂÁ¨ó§U, ¦³¤@°ÝÃD, ¸ê®Æ¥i¥H¿é¤J, ¦ý·í¿é¤J¸ê·s¸ê®Æ®É, ¬OÂл\­ì¦³¸ê®Æ, ¥i§_°µ¨ì¦b¤u§@ªí3¿é¤J·s¸ê®Æ, ¦Ó¦b¤u§@ªí2, ¸ê®Æ±µ¦í¤Wµ§¸ê®Æ©¹¤U¤S©µÄò, ÁÂÁÂ!
Private Sub CommandButton2_Click()
Dim ar(10)
For i = 6 To 24 Step 2
  ar(s) = Cells(i, 5).Value
  s = s + 1
Next
Sheets("sheet2").[A4].Resize(, 10) = ar
End Sub

TOP

Sheets("sheet2").[A4].Resize(, 10) = ar

Sheets("sheet2").[A65536].End(3).Offset(1, 0).Resize(, 10) = ar

TOP

¦^´_ 3# ©P¤j°¶
³oºØ°ÝÃD¤Ó¦h¤F¡A½Ð½T¹êÁA¸Ñµ{¦¡½X·N¸q
¥H«e¤]³£¦³¹L¸ÑÄÀ¡A½Ð¦hª¦¤å
¥H«á³o¼Ë°ÝÃD¤£¦A¦^ÂÐ

    Sheets("sheet2").[A65536].End(Xlup).Offset(1,0).Resize(, 10) = ar
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD