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")           ' 各工作表 日期 範圍
   
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)                                           '處理每一日期範圍
   
9.             If Month(Rng(0) + E.Value - 1) = Month(Rng(0)) Then     '檢查 月份
   
10.                 E.Offset(1) = UCase(Format(Rng(0) + E - 1, "ddd"))       '參數 "ddd" 傳回 星期字母縮寫
    
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

複製代碼