[µo°Ý] ¦³¨S¦³¤ñ¸û§Öªº¤èªk

adam2010

§Ú¦³¤@¬q¥¨¶°¬O§P©w¯¸§Oµ¹¤©¼e©ñ´Áªº¡A¦ý¬O¥Ñ©ó¦³®É­Ô¸ê®Æµ§¼ÆÃe¤j¥B¹q¸£³t«×¤£¬O«Ü§Ö¡A°õ¦æ°_¨Ó¥d¥dªº¡A©Ò¥H·Q½Ð±Ð¦U¦ì¤j®v¦p¦ó¼g°õ¦æ°_¨Ó¤~·|¤ñ¸û§Ö¡AÁÂÁ¡I
                Range("F2").Select
                Data1 = Range("a65535").End(xlUp).Row
                rec = 1
                For m = 1 To (Data1 - 1)
                 If Sheets("¥æ´Á").Cells(rec, 2) = "" Then
                Exit For
                 End If
                Cells(rec + m, 6).Select
                ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""NA"","""",IF(VALUE(RC[-3])>2950,RC[-1]-TODAY(),IF(VALUE(RC[-3])>2475,RC[-1]-TODAY()-5,RC[-1]-TODAY()-10)))"
                Next m
               
                '¦bFÄæ¥[¤J³Ñ¾l¤Ñ¼Æ,>2950ºâ¨ì·í¤é¡A>2475¦h¦©5¤Ñ¡A¨ä¾l¦h¦©10¤Ñ
ESOD_0327.rar (28.02 KB)

¤U¸ü¦¸¼Æ: 7

2013-3-27 23:13

sasho

¬°¤°»ò¤£ª½±µ¦bFÄæ¼g¦n¤½¦¡´N¦n?

GBKEE

¦^´_ 1# adam2010
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim Rng As Range
   
3.     With ActiveSheet  '¸ê®Æªí¬O§@¥Î¤¤ªº¤u§@ªí
   
4.         Set Rng = .Range(.[a2], .Range("a65535").End(xlUp)).Offset(, 5)  '.Offset(, 5)-> ¦ì²¾5Äæ(FÄæ)
   
5.     End With
   
6.     Rng = "=IF(RC[-1]=""NA"","""",IF(VALUE(RC[-3])>2950,RC[-1]-TODAY(),IF(VALUE(RC[-3])>2475,RC[-1]-TODAY()-5,RC[-1]-TODAY()-10)))"
   
7.     '¤½¦¡ : ¦bFÄæ¥[¤J³Ñ¾l¤Ñ¼Æ,(M30)>2950ºâ¨ì·í¤é¡A(M40)>2475¦h¦©5¤Ñ¡A¨ä¾l(M20)¦h¦©10¤Ñ
   
8.     '???? ½Ð°Ý  (M30)>2950 À³¬O (C30)>2950 ¤~¹ï!!!
   
9.    ' Rng.Value = Rng.Value    '±N½d³òªº­È=¤½¦¡
   
10. End Sub

½Æ»s¥N½X

adam2010

·PÁÂGBKEE¤jªº¨ó§U¡A¯u¬O¶WÆgªº!
Sorry~§Ñ°O»¡©ú¸Ì­±ªº(M30)¡B(M40)¡B(M20)¨ä¹ê¬O°Ï¬q§O¡A¨Ã¤£¬OÀx¦s®æ
ÁÂÁ¡I