Option Explicit
Sub Auto_Open()
Sheets("S1").Select: Dim SoNg As Integer
Dim Jj As Long, eRw As Long
Dim Dat1 As Date, Dat2 As Date, Dat As Date
Dat1 = Date - 30.25 * 3: Dat2 = Date - 30.25 * 6
With Columns("F:F")
.Interior.ColorIndex = 0: .Font.ColorIndex = 0
.NumberFormat = "MM/DD/YYYY"
End With
eRw = [f65500].End(xlUp).Row
For Jj = eRw To 7 Step -1
With Cells(Jj, "G")
Dat = IIf(.Value = "SCL", Dat2, Dat1)
SoNg = Dat - .Offset(, -1).Value
.Offset(, 2).Value = SoNg
Select Case SoNg
Case Is < 4
.Offset(, -1).Interior.ColorIndex = 3
.Offset(, -1).Font.ColorIndex = 6
Case Is < 8
.Offset(, -1).Interior.ColorIndex = 39
Case Is < 31
.Offset(, -1).Interior.ColorIndex = 35
Case Is > 31
End Select
End With
Next Jj
Columns("F:F").NumberFormat = "DD/MM/YYYY"
End Sub
pen()
||
|
