[已解决]特定条件空白格涂色问题

mathking77

已解决

最佳答案

月排行榜 / 总排行榜

爱疯

2016-6-27 15:01

Sub test2()
    Dim rng As Range
    Dim fc As FormatCondition

    Sheets(1).Select
    Cells.FormatConditions.Delete
    Set rng = Range("a1").CurrentRegion
    Range("a2").Activate
    Set fc = rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=countblank($e2:$f2)=1")
    fc.Interior.ColorIndex = 6
End Sub



这样应该可以了。原因还是需"A2是激活单元格"。

跳转到最佳答案楼层

爱疯

条件格式方便1点吧？
=countblank($e2:$f2)=1

爱疯

Sub test()
    Dim rng As Range
    Dim fc As FormatCondition

    Sheets(1).Select
    Cells.FormatConditions.Delete
    Set rng = Range("a1").CurrentRegion
    Set fc = rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=countblank($e2:$f2)=1")
    fc.Interior.ColorIndex = 6
End Sub

mathking77

爱疯 发表于 2016-6-27 10:49
Sub test()
    Dim rng As Range
    Dim fc As FormatCondition

好像不太对，下面有些同时有数据的行也会变黄

爱疯

mathking77 发表于 2016-6-27 11:00
好像不太对，如果第6列后我再增加数据的话 条件公式会扩展下去 然后发生干扰 产生错误

Sub test2()
    Dim rng As Range
    Dim fc As FormatCondition

    Sheets(1).Select
    Cells.FormatConditions.Delete
    Set rng = Range("a1").CurrentRegion.Offset(1, 0)
    Set fc = rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=countblank($e2:$f2)=1")
    fc.Interior.ColorIndex = 6
End Sub


配合条件格式的公式，要让A2是当前激活单元格。
不好意思，我又马虎了

mathking77

爱疯 发表于 2016-6-27 11:16
Sub test2()
    Dim rng As Range
    Dim fc As FormatCondition

貌似问题还是存在的，有些都有数据的行会变黄 难道是我用EXCEL2003对于=countblank（$E2:$F2)=1这个公式不识别？

爱疯

样件2.rar (34.17 KB, 下载次数: 8)

2016-6-27 11:42 上传

点击文件名下载附件

如果还有，是哪个？

mathking77

爱疯 发表于 2016-6-27 11:42
如果还有，是哪个？

难道是我用EXCEL2003对于=countblank（$E2:$F2)=1这个公式不识别？

爱疯

先看，是运行7楼的吗？

下班，不在了

mathking77

爱疯 发表于 2016-6-27 11:52
先看，是运行7楼的吗？

下班，不在了

是的 运行7楼的 我觉得问题不是在代码上 是这个函数公式 如果我只对EF列使用条件格式 输入COUNTBLANK（$E2:$F2）=1 也是会好多都有数据的变成黄色