Excel VBA更改单元格颜色
Excel VBA更改单元格颜色
提问于 2018-12-18 03:21:06
我正在尝试让U列中不等于2.04或3.59的所有单元格都改变单元格颜色。
代码如下：
Private Sub Cell_Color_Change()
For Each cell In Range("U2:U19004")
If cell.Value <> 2.04 Or 3.59 Then cell.Interior.ColorIndex = 3
Next cell
End Sub由于某些原因，代码将整个列变为红色。我试过使用条件格式，同样的事情也发生了。请帮帮忙。谢谢!
回答 1
Stack Overflow用户
发布于 2018-12-18 03:38:05
使用VBA设置条件格式。
Option Explicit
Private Sub set_Cell_Color_Change()
With Range("U2:U19004")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=and(round($u2, 2)<>2.04, round($u2, 2)<>3.59)"
.FormatConditions(.FormatConditions.Count).Font.Color = vbRed
End With
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/53821752
复制相关文章
相似问题
腾讯云开发者
