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

¤u§@ªí«OÅ@¤§«á¡A²M°£¸ê®Æªº¥¨¶°«ö¶sµLªk°Ê§@

¤u§@ªí«OÅ@¤§«á¡A²M°£¸ê®Æªº¥¨¶°«ö¶sµLªk°Ê§@

§Ú¨Ï¥ÎExcel 2010¡A¦b³]©w«OÅ@¤u§@ªí¤Î«OÅ@¬¡­¶Ã¯¤§«á¡A²M°£¸ê®Æªº¥¨¶°«ö¶s´NµLªk¨Ï¥Î¤F¡A¥¼«OÅ@«e³£¥i¥¿±`¨Ï¥Î¡C

¥X²{¿ù»~ 1004
±z­nÅܧóªºÀx¦s®æ©Î¹Ïªí¤w³Q«OÅ@¡AµLªk§ó§ï¡C

µ{¦¡½X¬O

Sub ¥X³f³æ_²M°£¸ê®Æ()
'
' ¥X³f³æ_²M°£¸ê®Æ ¥¨¶°
'

'
    Range("K3,C3:D3,B9:F22").Select
    Range("B9").Activate
    Selection.ClearContents
    Range("C3:D3").Select
   
    MsgBox ("¸ê®Æ¤w²M°£¦¨¥\!!")
   
End Sub

Selection.ClearContentsªº¦rÅ鬰¶À¦âªº¡A¦³¬d¤å»¡­n¦bµ{¦¡½X¤¤¦Û¤v¼g¤J±K½X¡A¦ý¤£ª¾¸Ó«ç»ò¼g¡A½Ð¤j®a¯à±Ð±Ð§Ú¡AÁÂÁ¡C

¥»©«³Ì«á¥Ñ owen06 ©ó 2014-3-24 10:55 ½s¿è
  1. Sub ¥X³f³æ_²M°£¸ê®Æ()
  2. sheets("XXX").Unprotect "12345" '¨ú®ø«OÅ@¡A±K½X¡G12345
  3. Range("K3,C3:D3,B9:F22").ClearContents
  4. Range("C3:D3").Select
  5. MsgBox "¸ê®Æ¤w²M°£¦¨¥\!!"
  6. sheets("XXX").Protect "12345" '­«¤W«OÅ@¡A±K½X¡G12345
  7.    
  8. End Sub
½Æ»s¥N½X
¦^´_ 1# §±æ¢

TOP

·PÁ§A¡A½Æ»s¹L¥h«á¡Axxx§ï¬°¤u§@ªí¦WºÙ¡A¥i¥¿±`°Ê§@¤F¡A§Úªº°ÝÃD¸Ñ¨M¤F
ÁÂÁÂ!!

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD