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

½Ð°Ý¤@¤U­n«ç»ò§@

½Ð°Ý¤@¤U­n«ç»ò§@

¥»©«³Ì«á¥Ñ brabus ©ó 2011-6-26 20:39 ½s¿è

¦pªþ¥ó
»¡©ú:SHEETªºJ2¨ìJ200¬O¦s©ñ¦W¦rªº¦a¤è
¦W¦r·|±q§Oªº¤u§@ªí½Æ¨î¹L¨Ó,¤H¼Æ¤£¤@©w¬O¦h¤Ö
·í§Ú¦b¤u§@ªí1ªºF9Àx¦s®æ¿é¤J¼Æ¦r®É
¥L·|§ä¨ì¬Û¹ïÀ³ªº¤H¦W¤ñ¤è
§Ú¿é¤J5,·|¦bJ2¨ìJ200¤¤§ä¨ì½s¸¹5ªº¦W¦r°ªrr
§e²{¦bF10Àx¦s®æ
·í§Ú«ö¤U®ÇÃ䪺ÅV¥Ü®æ¦¡«á
§Æ±æ¦b¤u§@ªí2ªºE4Àx¦s®æ¥X²{¤u§@ªí1,F10ªº¤H¦W(¦p°ªrr)
±µµÛ­n§â¸Ó¤H­ûªº¦W¦r±qJ2¨ìJ200¤¤²¾°£
(¨Ï±o¥L­ì¨Ó¦bªº¦ì¸m§e²{ªÅ¥Õ,¤U¤èªºÀx¦s®æ¤£¥Î²¾°Ê)
¨Ã«ö¶¶§Ç¦b¤u§@ªí3ªºA1¶}©l
¨Ì¶¶§ÇÅã¥Ü¦p²Ä¤@¦¸¾Þ§@¿ïªº¬O°ªrr,²Ä¤G¦¸¬O¹ùrg
........
§Ú¤v¸g¦n³¡¥÷ªºªF¦è¤F
ÁÙ®t¤H¦Wªº¦ì¸mÅܪťթM¤H¦W¨Ì¶¶§Ç±Æ¦C¦b¤u§@ªí3
½Ð°ª¤â­ÌÀ°¦£
ÁÂÁÂ

´ú¸Õ¤H¦W-1.rar (29.01 KB)

jeason

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-6-27 23:24 ½s¿è

¦^´_ 1# brabus
­n½T»{Á`¤H¼Æ¥i¥H¨Ï¥Î
Sheets("Sheet1").Cells(Rows.Count, 10).End(xlUp).Row
¨ú±o

¦]¬°§A¨Ò¤l¤¤ªº§Ç¸¹»P¦C¸¹¦³¬Û¹ïÀ³Ãö«Y,©Ò¥H¥i¥Hª½±µ¥Î
Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .Column = 6 And .Row = 9 Then
      .Cells(10, 6) = .Cells(.Cells(9, 6) + 1, 10)
      .Cells(.Cells(9, 6) + 1, 10) = ""
    End If
  End With
End Sub

¦Ü©ó Sheet3 ¤¤ªº¦Cªí,
«h¥u­n³z¹L¤@­ÓÀx¦s¦C¸¹ªºÅܼÆ,
´N¥i¥H½T©w¤U¤@­Ó­n©ñ¦W¦rªºÀx¦s®æ¤F.

¥t¥~¤£ª¾¬°¦ó§Úªº¹q¸£¶]§A¨º­ÓÀÉ®×,
·|¤@ª½¥X²{¨t²Î¸ê·½¤£¨¬ªºÄµ§i°T®§?

TOP

·PÁ§Aªº¦^ÂÐ
¤£¹L³o­ÓÀÉ¥u¦³¤£¨ì200k
«ç·|¨t²Î¸ê·½¤£¨¬??
§Ú¤]¤£ª¾¹D©O
jeason

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD