条件格式宏
Macro For Conditional Formatting
任何人都可以告诉宏进行条件格式设置,比如我有一个包含 2 个工作表的 excel,我需要格式化 M 列中的数据,该列以 % 作为宠物另一个工作表中给出的标准说目标(E、F 列)。
例如。如果 M5 的值小于 E3,则 M5 的背景色应为红色,如果大于 F3,则 M5 应为绿色,如果 M5 的值介于 E3 和 F3 之间,则 M5 的颜色应为琥珀色。
请帮忙解决这个问题。
如果Sheet2
中的E3
是50,F3
是60,
Sub highlightcol()
Dim i As Long
For i = 1 To Cells(Rows.Count, "M").End(xlUp).Row
If Cells(i, "M") < Sheets("Sheet2").Range("E3") Then
Cells(i, "M").Interior.Color = vbRed
ElseIf Cells(i, "M") > Sheets("Sheet2").Range("F3") Then
Cells(i, "M").Interior.Color = vbGreen
Else
Cells(i, "M").Interior.Color = vbYellow
End If
Next i
End Sub
这个简单的代码根据条件突出显示 Column M
中的所有值。
任何人都可以告诉宏进行条件格式设置,比如我有一个包含 2 个工作表的 excel,我需要格式化 M 列中的数据,该列以 % 作为宠物另一个工作表中给出的标准说目标(E、F 列)。
例如。如果 M5 的值小于 E3,则 M5 的背景色应为红色,如果大于 F3,则 M5 应为绿色,如果 M5 的值介于 E3 和 F3 之间,则 M5 的颜色应为琥珀色。
请帮忙解决这个问题。
如果Sheet2
中的E3
是50,F3
是60,
Sub highlightcol()
Dim i As Long
For i = 1 To Cells(Rows.Count, "M").End(xlUp).Row
If Cells(i, "M") < Sheets("Sheet2").Range("E3") Then
Cells(i, "M").Interior.Color = vbRed
ElseIf Cells(i, "M") > Sheets("Sheet2").Range("F3") Then
Cells(i, "M").Interior.Color = vbGreen
Else
Cells(i, "M").Interior.Color = vbYellow
End If
Next i
End Sub
这个简单的代码根据条件突出显示 Column M
中的所有值。