|
- Sub Greenhand()
- Dim i&
- With Sheet1
- For i = 3 To .Cells(Rows.Count, 3).End(3).Row
- If .Cells(i, 4) = "男" Then
- If .Cells(i, "j") <> "" And .Cells(i, "j") < Sheet3.[b3] Then
- .Cells(i, "j").Interior.ColorIndex = 3
- End If
- ElseIf .Cells(i, 4) = "女" Then
- If .Cells(i, "j") <> "" And .Cells(i, "j") < Sheet3.[c3] Then
- .Cells(i, "j").Interior.ColorIndex = 3
- End If
- End If
- Next
- End With
- End Sub
复制代码 只会简单循环判断 |
|