|
Sub 标示()
Dim x, y, t As Integer
Dim mrg As Range
Range("g4:g34").Interior.ColorIndex = xlNone
For x = 1 To 3
Set va = Sheets("轮休表").Cells(2, x)
m = va.Column
tva = va.Value
i = Application.CountIf(Range("b:b"), tva)
Set mrg = Range("b4")
For y = 1 To i
Set mrg = Range("b:b").Find(tva, mrg)
For t = 3 To 16
If mrg.Offset(0, 5) = Sheets("轮休表").Cells(t, m).Value And mrg.Offset(0, 5) <> "" Then
mrg.Offset(0, 5).Interior.ColorIndex = 3
End If
Next t
Next y
Next x
End Sub
值班顺序工作表.zip
(10.53 KB, 下载次数: 5)
|
|