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

Ãö©ó¥¨¶°Âà¶K°ÝÃD!¤º®e¦p¤U..

Ãö©ó¥¨¶°Âà¶K°ÝÃD!¤º®e¦p¤U..

¤p§Ì³]©w¥Ñ¤º­¶Aªº¸ê®Æ¥Î¥¨¶°«öÁä°õ¦æ
¤º­¶Aªº¸ê®Æ·|½Æ»s>¶K¦b¤º­¶B
¦pªGµL«OÅ@­¶­±Âê¥i¥Hª½±µ¶K¤W
¦ý¬O¦³³]©w«OÅ@­¶­±Âê·|Åã¥ÜµLªk1004¿ù»~°T®§...
¤p§Ì¦³³]©w¸ÑÂꪺ¥¨¶°...·|µLªk°õ¦æ
³Â·Ð¤j¤jÀ°¦£..¸Ñ¨M....·P®¦!

Q1.rar (7.64 KB)

¦^´_ 1# ¤ÑÅ]¶Â¦Ð
°õ¦æ¨ÃµL°ÝÃD
¥i¯à¬O§A¦bvbe¤¤°õ¦æ
¦ýÁ`ªí¦¨¬°§@¥Î¤¤¤u§@ªí©Ò³y¦¨
«ü©ú¤u§@ªí¸Õ¸Õ
  1. Sub °õ¦æ()
  2. With Sheets("Á`ªí")
  3.     .Unprotect "0000"
  4.      Sheets("key").Range("A2:C5").Copy .[A2]
  5.     .Protect "0000"
  6. End With
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# ¤ÑÅ]¶Â¦Ð
§Aªº¿ù»~¬O¦]¬°¥ýcopy µM«á¸Ñ°£«OÅ@®É,¨t²ÎµLªk«O¦scopyªº¸ê®Æ¦Ó²£¥Íªº.
¥i°Ñ¦ÒHsiehª©¥Dªºµ{¦¡ ¨Ó°õ¦æ
¤U­±µ{¦¡½X¬O°w¹ï §A­ì¨Óµ{§Ç¨Ó­×§ï
  1. Sub °õ¦æ()
  2.     'Rows("2:5").Select
  3.     'Selection.Copy
  4.     Sheets("Á`ªí").Select
  5.     With ActiveSheet
  6.         .Unprotect "0000"
  7.         Sheets("key").Rows("2:5").Copy
  8.         .Rows("2:2").Select
  9.        ' ActiveSheet.Paste
  10.         .Paste
  11.         .Protect "0000"
  12.     End With
  13.     Sheets("key").Select
  14. End Sub
½Æ»s¥N½X

TOP

·PÁ GBKEE&Hsieh ¨â¦ì¤j¤jÀ°§U
¦ý¤p§Ì¬ÝGBKEE¤j¤jªº°õ¦æ½X;¬yµ{¬O³o¼Ë
¥ý½Æ»s>Á`ªí>¸Ñ¶}>½Æ»s°õ¦æ¶K¤W>Âê¤W>¦^KEY?
¦Ó¤p§Ì¥ý¥hÁ`ªí>¸Ñ¶}>KEY(½Æ»s)>Á`ªí(¶K¤W)>Âê¤W>¦^KEY
¥¼¤°»òµLªk°õ¦æ£»£»...¬O®t¦b­þÃä...!½Ð¤j¤j©ï±Ð

TOP

¦^´_ 4# ¤ÑÅ]¶Â¦Ð
¶Ç¤W§AªºÀɮ׬ݬÝ

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD