c_c_lai

¦^´_ 1# hkyan

1. Option Explicit
   
2. 
   
3. Sub Ex()
   
4.     Dim dt As Long, sh As Range
   
5.    
   
6.     With ¤u§@ªí1
   
7.         For Each sh In .Range("A2", "A" & .Range("A65536").End(xlUp).Row)
   
8.             ' sh ¥»¨­«üªº¬O A Äæ¦ì¡A sh.Offset(, 1) «üªº¬O B Äæ¦ì¡A sh.Offset(, 2) «üªº¬O C Äæ¦ì
   
9.             sh.Offset(, 2) = DateDiff("d", sh, Now)
   
10.             If (sh.Offset(, 1) = 2 And sh.Offset(, 2) > 210) Then sh.EntireRow.Interior.ColorIndex = 6
    
11.         Next
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

¤U¸ü (6.74 KB)

2013-12-9 13:25

³]©w®æ¦¡¤Æ±ø¥ó.rar (8.94 KB)

¤U¸ü¦¸¼Æ: 1

2013-12-9 13:25