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

[µo°Ý] [´£°Ý] ¶×¤J¥~³¡¸ê®Æ«á, ¦p¦ó¨Ì¤é´Á¦Û°Ê¶ñ¤J·sÀx¦s®æ©O?

¦^´_ 1# miketwbts

¥Ø«e§A¤W¶ÇªºÀɮפ¤
¿ï¾ÜÅv¶R½æÅv¤À­p¡B¤T¤jªk¤H´Á«ü¨â¤u§@ªí¤º³z¹LWEB¬d¸ß±o¨ì¸ê®Æ
¤T¤jªk¤H¿ï¾ÜÅv²Î­pªí¤u§@ªí­t³d³sµ²¸Ó¨â­Ó¤u§@ªí¯S©wÀx¦s®æ
¤£¹L³o¨Ç°Ñ·ÓÅãµM¥X²{¿ù»~¡A±o¨ìªºµª®×³£·|¥X²{¿ù»~­È
§A¥²¶·Åý¤T¤jªk¤H¿ï¾ÜÅv²Î­pªí¤u§@ªíªº¤½¦¡­pºâ¥¿½T«á¤~¯à°õ¦æ§ó·s«ö¶s
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# miketwbts

¤£¬O«Ü¤F¸Ñ§Aªº¥Î·N
§Ú²q·Q¬O­n§â«ö¶s©³¤U¨º¦Cªº¸ê®Æ´¡¤J¤w¸gÀx¦sªº¸ê®Æ©³³¡
  1. Private Sub CommandButton1_Click()
  2. r = Range("A5").CurrentRegion.Rows.Count
  3. If Range("B" & r + 4) = Range("B" & r + 7) Then Exit Sub
  4. Rows(r + 5).Insert
  5. Range("B" & r + 5).Resize(, 17).Value = Range("B" & r + 8).Resize(, 17).Value
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

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