GBKEE

¦^´_ 1# pcwh3

1. Sub Ex()
   
2.     Dim Rng(4) As Range, xi As Integer, E As Range
   
3.     Set Rng(0) = Sheets("ABC").Range("A6")                              '¤é´Á
   
4.     Set Rng(1) = Sheets("ABC").Range("B7:P7,B16:Q16")           ' ¦U¤u§@ªí ¤é´Á ½d³ò
   
5.     Set Rng(2) = Sheets("XYZ").Range("B7:P7,B16:Q16")
   
6.     Set Rng(3) = Sheets("123").Range("B7:P7,B15:Q15")
   
7.     For xi = 1 To 3
   
8.         For Each E In Rng(xi)                                           '³B²z¨C¤@¤é´Á½d³ò
   
9.             If Month(Rng(0) + E.Value - 1) = Month(Rng(0)) Then     'Àˬd ¤ë¥÷
   
10.                 E.Offset(1) = UCase(Format(Rng(0) + E - 1, "ddd"))       '°Ñ¼Æ "ddd" ¶Ç¦^ ¬P´Á¦r¥ÀÁY¼g
    
11.                 E.Resize(IIf(xi = 3, 8, 9)).Interior.ColorIndex = IIf(E.Offset(1) = "MON", 36, xlNone)
    
12.             Else                                                                                             
    
13.                 E.Offset(1).Resize(IIf(xi = 3, 8, 9)) = ""
    
14.                 E.Resize(IIf(xi = 3, 8, 9)).Interior.ColorIndex = xlNone
    
15.             End If
    
16.        Next
    
17.     Next
    
18. End Sub

½Æ»s¥N½X