¤u§@ªí«OÅ@¤§«á¡A²M°£¸ê®Æªº¥¨¶°«ö¶sµLªk°Ê§@
- ©«¤l
- 28
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 35
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-3-13
- ³Ì«áµn¿ý
- 2014-4-18
|
¤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
±znÅܧóªºÀ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 |
|
|
|
|
|
|
- ©«¤l
- 396
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 425
- ÂI¦W
- 1
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-7-2
- ³Ì«áµn¿ý
- 2024-8-23
|
¥»©«³Ì«á¥Ñ owen06 ©ó 2014-3-24 10:55 ½s¿è
- Sub ¥X³f³æ_²M°£¸ê®Æ()
- sheets("XXX").Unprotect "12345" '¨ú®ø«OÅ@¡A±K½X¡G12345
- Range("K3,C3:D3,B9:F22").ClearContents
- Range("C3:D3").Select
- MsgBox "¸ê®Æ¤w²M°£¦¨¥\!!"
- sheets("XXX").Protect "12345" '«¤W«OÅ@¡A±K½X¡G12345
-
- End Sub
½Æ»s¥N½X ¦^´_ 1# §±æ¢ |
|
|
|
|
|
|
- ©«¤l
- 28
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 35
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-3-13
- ³Ì«áµn¿ý
- 2014-4-18
|
·PÁ§A¡A½Æ»s¹L¥h«á¡Axxx§ï¬°¤u§@ªí¦WºÙ¡A¥i¥¿±`°Ê§@¤F¡A§Úªº°ÝÃD¸Ñ¨M¤F
ÁÂÁÂ!! |
|
|
|
|
|
|