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

[µo°Ý] ¤U©Ô¿ï³æ¼Ò½k·j´M«á¬Û¦P¦WºÙ¤£¦P­È¤§§x´b...

¦^´_ 20# cypd

VBA¤½¦¡§@°Ê«á
­Y C Ä榳·s¼Æ¾Ú¿é¤J®É·|³y¦¨ C1 ©³¦â¤£¨£
­Y D Ä榳·s¼Æ¾Ú¿é¤J®É·|³y¦¨ D1 ©³¦â¤£¨£
>> §ï¥Ñ²Ä2¦C¶}©l¦p¤U
With Sheets("«È¤á°ò¥»¸ê®Æ")
    .Unprotect Password:="1234"  '¸Ñ«OÅ@¡A±K½X¦Û¦æ­×§ï
     Arr = .Range(.Cells(1, C), .Cells(Rows.Count, C).End(3))
     .Range(.Cells(2, C), .Cells(Rows.Count, C)).Font.ColorIndex = 0
     .Range(.Cells(2, C), .Cells(Rows.Count, C)).Interior.ColorIndex = 0


­ì«OÅ@¤u§@ªí¤º¤§³]©w¥¢®Ä
(¦Û¦æ³]©w¦C®æ¦¡¤Î¨Ï¥Î¦Û°Ê¿z¿ïµLªk¨Ï¥Î...«ì´_¹w³]­È)
>> ¨Ì±z­ì¨Óªº®æ¦¡­×§ï¦p¤U¡A½Ð¦A¸Õ¬Ý¬Ý¡AÁÂÁÂ
.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingRows:=True, AllowFiltering:=True
'«OÅ@¡A±K½X¦Û¦æ­×§ï

TOP

¦^´_ 21# samwang

«D±`·PÁ±z...samwang

°w¹ï¦h¦¸©Ò­z°ÝÃD§¡¯à¸Ô²Ó­@¤ß¸Ñ´b  ^^

Àò¯q¨}¦h...¤u±ýµ½¨ä¨Æ¡A¥²¥ý§Q¨ä¾¹(¤u§@¤W±a¨Ó«D±`«K§Q¬Ù®É©ö¥Î)¤ß¦s·P®¦

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD