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

[µo°Ý] ·s²£¥Xªº¤u§@ªíªº³¡¤ÀÀx¦s®æ¥u¯à­­©w­×§ï¤@¦¸

[µo°Ý] ·s²£¥Xªº¤u§@ªíªº³¡¤ÀÀx¦s®æ¥u¯à­­©w­×§ï¤@¦¸

¦bA¤u§@ªíªº¦U­ÓÀx¦s®æ¶ñ¼g¤º®e¡A¤§«á«ö¤U"²£¥Xªí³æ"«ö¶s¡A
µM«áVBAµ{¦¡·|COPY B¤u§@ªíªº®æ¦¡¡A²£¥X¤@­Ó·sªº¤u§@ªí
¨Ã¥B©R¦W¬°A¤u§@ªí¬Y­ÓÀx¦s®æªº­È¡C
¥H¤W¬O§Ú¤w¸g§¹¦¨ªº³¡¤À¡C

¦ý±µ¤U¨Óªº³¡¤À§Ú´N¨S¿ìªk¤F~
§Ú§Æ±æ¡G³o·s²£¥Xªº¤u§@ªí(°²³]¥s°µPL¤u§@ªí)²£¥X«á¡A
¨äD4 ~ D9 Àx¦s®æªº­È»Ý­­©w¤£¯à³Q­×§ï¡A¨ä¥LÀx¦s®æ«h¤£­­©w¡C
¥Ñ©óPL¤u§@ªí¬O±qB¤u§@ªíCOPY¨Óªº¡A©Ò¥H°ò¥»¤WD4 ~ D9 Àx¦s®æ´N¤w¸g³Q­×§ï¹L¤@¦¸¤F
(¦]¬°D4~D9ªº­È·|¶K¤JA¤u§@ªíªº¬Y¨ÇÀx¦s®æªº­È)
¤]´N¬O»¡D4 ~ D9 Àx¦s®æ¬O¥i¥H¤¹³\³Q­×§ï¤@¦¸ªº¡A¦ý¤£¯à¦A­×§ï¡A§_«h´N¸õ¥Xĵ»yµøµ¡¡C

³o­Ó°ÝÃD§xÂZ«Ü¤[¤F¡A½Ð¨D°ª¤â¨ó§U¡A«ô°U«ô°U¡C

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-8-28 22:47 ½s¿è
TO  starry1314 ¤j¡G
³o­Ó¤è¦¡¦æ¤£³q³á¡C
³o±iexcelªí®æ¬Oµ¹«Ü¦h¤H¥Îªº¡A¤£¯à¥s¨Ï¥ÎªÌ²£¥X·sªí³æ«á¦A°µ¥ô ...
ccdder µoªí©ó 2015-8-28 09:59


¦pªG¬O»¡
¦ý¨º¼Ë·|³y¦¨·s²£¥Xªí³æªºD4~D9Àx¦s®æµLªk¶K¤J¤u§@ªíAªº¬Y¨ÇÀx¦s®æªº­È¡A
¬O¨S¦³«ö¤U«ö¶s«á¥ý¦Û°Ê¸ÑÂê§a
1.©|¥¼«ö¤U"²£¥Xªí³æ"«ö¶s¡A¤u§@ªíB¥H«OÅ@¬¡­¶Âê©w
2.«ö¤U"²£¥Xªí³æ"«ö¶s«á,1.¥ý¦Û°Ê¸ÑÂê«á¨ÃÄ~Äò°õ¦æ 2.±N¤u§@ªíA¸ê®Æªº­È¶K§¹«á 3.¦Û°Ê±N¤u§@ªíB¬¡­¶Âê©w

TOP

¥»©«³Ì«á¥Ñ owen06 ©ó 2015-8-28 11:50 ½s¿è

¦^´_ 4# ccdder


   ¡i ¦ý Sheets("PL").Protect "6"¡A³o­ÓProtect "6" ¬O¬Æ»ò·N«ä©O¡H ¡j

    ´N¬O¦b³]©w§¹¤¹³\½s¿è½d³ò«á¡A¦A§âPL³o­Ó¤u§@ªí¥[±K«OÅ@¡A±K½X¬O¡G6

    §Ú¦Û¤v¸Õ¹L¨º­Óµ{¦¡¬Ookªº¡A¦ý¨º¥u¬O¤@­Ó·§©Àªº¼gªk¦Ó¤w¡A¸ò§Aªºµ{¦¡­n·f°tªº¸Ü¤@©w­n¦A­×§ï¡A
    ¦ý¬Ý¤£¨ì§Aªºµ{¦¡½X¡A©Ò¥H¨S¿ìªkÀ°§A½Õ¾ã¡C

TOP

½Ð°ÝÁÙ¦³¤H¥i¥HÀ°¦£¸Ñ¨M¶Ü¡H

TOP

TO  starry1314 ¤j¡G
³o­Ó¤è¦¡¦æ¤£³q³á¡C
³o±iexcelªí®æ¬Oµ¹«Ü¦h¤H¥Îªº¡A¤£¯à¥s¨Ï¥ÎªÌ²£¥X·sªí³æ«á¦A°µ¥ô¦óªº°Ê§@¡C
¦]¦¹¡A¦b«ö¤U"²£¥Xªí³æ"«ö¶s¤§«á¡A´N­n­­¨î·s²£¥X¤u§@ªíªºD4~D9Àx¦s®æ¤£¯à­×§ï¡C
§Ú´¿¸g¸Õ¹L¦b©|¥¼«ö¤U"²£¥Xªí³æ"«ö¶s¤§«e¡A´N¥ý±N¤u§@ªíB¥H«OÅ@¬¡­¶Ã¯Âê©w¡A
¦ý¨º¼Ë·|³y¦¨·s²£¥Xªí³æªºD4~D9Àx¦s®æµLªk¶K¤J¤u§@ªíAªº¬Y¨ÇÀx¦s®æªº­È¡A
©Ò¥H¤~»Ý­nÅýD4~D9Àx¦s®æ¥i¥H¤¹³\­×§ï¤@¦¸¡C
§Ú·QÀ³¸ÓÁÙ¬O»Ý­n¥HVBA¼¶¼g¨Ó¸Ñ¨M¡C
¦ý¤´ÁÂÁ§Aªº¦^ÂСC

TOP

ÁÂÁÂOWEN06 ¤j¤jªº¦^ÂСC
¦ý³o­ÓVBA¦æ¤£³q­C¡A²Ä4¦æ·|¥X²{¿ù»~½s¿è¿ù»~(»yªk¿ù»~)¡C
¬Ý°_¨Ó¦ü¥G¬O¥Î"¤¹³\D4~D9¥H¥~"ªºÀx¦s®æ¥i¥H­×§ï ³o¼Ëªº·§©À¡A
¦ý Sheets("PL").Protect "6"¡A³o­ÓProtect "6" ¬O¬Æ»ò·N«ä©O¡H

TOP

¦^´_ 1# ccdder
§Ú¥Ø«eªº°µªk
1.·s²£¥Xªºªí®æ¬°½d¥»ÀÉ®×,¨ÃÀɮרϥΫOÅ@¬¡­¶Ã¯Âê©w
2.²£¥Xªí®æ³~¤¤¸Ñ±K,²£¥X§¹²¦«á¦A«×¥[±K

¹F¨ì¸ê®Æ«Ø¥ß§¹¦¨¤§«á¤£±o§ó§ïªº®ÄªG

TOP

¦^´_ 1# ccdder


    Ãþ¦ü³o¼Ë¤lªº·§©À¶Ü¡H
  1. Sub test()
  2. Sheets.Add After:=Sheets("¤u§@ªí1")
  3. ActiveSheet.Name = "PL"
  4. Sheets("PL").Protection.AllowEditRanges.Add Title:="½d³ò1", Range:=Range( _
  5.         "=$A$1:$B$65536,$C$1:$C$3,$C$10:$IV$65536")
  6. Sheets("PL").Protect "6"
  7. End Sub
½Æ»s¥N½X

TOP

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