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

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

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

¦U¦ìª©¤W¤j¤j§A­Ì¦n:

¤p§Ì³z¹Lºô¸ô§ä¨ìªºÀÉ®×, ı±oÀɮפ¤¦³¤@¶µ¥\¯à¹ï©ó¾ã¦X¸ê®Æ¤Q¤À¤è«K,
¦³¥ý¥h¥¨¶°¸Ì­±¬Ýµ{¦¡½X
¦ý¥Ñ©ó¸ê½è·M¬N, ¬Ý¤F¤T¤Ñ«o¤´¥¼°Ñ³z
·Q­n½Ð°Ý§Ú­n¦p¦ó¤~¯à°÷°µ¥X¦¹¥\¯à©O¡H

ÁקK¿ù»~´y­z, ¥H¤U¥Î¹Ï¤åªí¹F, ÁٽШ£½Ì


1. ¤w§¹¦¨ ¡i¶×¤J¥~³¡¸ê®Æ¡j ©ó­¶ÅÒ¤¤¤ÀÃþ§¹¦¨
2. ²Ä4¦æ¾ã¦æ ¤À§O¥Î¤½¦¡®M¥Î¤£¦P­¶ÅÒªº¼Æ­È¥X¨Ó
3. ²ÄA¦C±qA6¶}©l¾ã¦C¤w¥ý¹w¥ý¿é¤J¤é´Á, ¨Ã®M¥Î ¡i®æ¦¡¤Æ±ø¥ó¡j ¨Ï¦P©ó "·í¤é¤é´Á(A4)"  ·|¥Î¤£¦P¦â¼Ð¼Ðµù
======================
½Ð°Ý¡G
¦p¦ó³]¸m¹Ï¤¤ªº¡i§ó·s¡j«ö¶s¡AÅý¥L¯à°÷¦P®É¦³
1. §ó·s¥~³¡¸ê®Æ
2. ±N²Ä¢³¦æ¾ã¦æ«ö·Ó¤é´Á¡A¶K©ó¤U¤è¬Û¹ïÀ³¤é´ÁªºÀx¦s®æ©O¡H

¥H¤U¬Oªþ¥ó¡G
´ÁÅv¤ÀªRªí.rar (40.54 KB)

Àµ½Ð½×¾Â¤j¤j¨ó§U¡AÁÂÁ¤F¡I

¦^´_ 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

¦nªº¡AÁÂÁÂHsieh¤j¡A°¨¤W§ó¥¿¤W¶Ç

TOP

Hsieh¤j¤j¡G
¥ýÁÂÁ±zªº¾\Äý¤ÎµªÂÐ

§Ú´«¤@­ÓÀɮסA¤£¹L¬O¬Û¦Pªº±¡§Î¡A
¤wºë²¤Æ¨ì¥i¥H¥¿±`¨Ï¥Î
¦A·Ð½Ð±z¬Ý¤@¤U


¥H¤U¬OÀɮתþ¥ó¡G
¤Q¤j.rar (51.57 KB)

¦A¦¸ÁÂÁ¡I

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

·PÁÂHsieh¤j, ¤Á¤¤®Ö¤ß!

TOP

µM«á¤]·PÁÂHsieh¤j¦b¤W¤À¨Éªº¤å³¹, ¦hª¦¤åÅý§Ú¦ê³s¤F§ó¦h°Ï¶ôªº¹B¥Î, «ÜÁÂÁ±zªº¤£Âèp !

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD