VBA完善代码

成日比

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.Cells.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.Color = RGB(255, 255, 255)'选中单元格颜色
End With
Target.Parent.Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.Color = RGB(253, 233, 217) '行颜色
Target.EntireColumn.Interior.Color = RGB(253, 233, 217)'列颜色
End Sub

以上代码是选中行、列自定义变色，选中单元格 自定义颜色
只有行、列变色不影响条件格式，但是加入【选中单元格自定义颜色】 代码后，原先的条件格式全部失效。
大神完善代码。使其满足【选中行、列、单元格 分别自定义颜色且条件格式依然有效】

爱疯

建议先上传附件
http://www.excelpx.com/thread-149787-1-1.html

成日比

爱疯 发表于 2019-4-10 15:52
建议先上传附件
http://www.excelpx.com/thread-149787-1-1.html

附件已传，这是举例。与实际需要设置的条件格式有出入

爱疯

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.FormatConditions.Delete
    Call fc_exp(Target.EntireRow)
    Call fc_exp(Target.EntireColumn)
    Target.FormatConditions.Delete
End Sub

'条件格式-表达式
Sub fc_exp(rng As Range)
    Dim fc As FormatCondition
    Set fc = rng.FormatConditions.Add(Type:=xlExpression, Formula1:=True)
    fc.Interior.Color = RGB(253, 233, 217)
End Sub




1楼附件，默认字体红色。
现在改成默认字体黑色。不知你的需求是什么
1.rar (15.58 KB, 下载次数: 2)

2019-4-10 16:50 上传

点击文件名下载附件

成日比

爱疯 发表于 2019-4-10 16:51
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.FormatConditions.Delete
    ...

表格设置很多个条件格式，后期还会增加。

要求：选中行、列变自定义色且选中单元格保持原有颜色    的vba代码，且该代码不会影响条件格式。（样本里代码是我网上找的，它运行后会删除原先设置的所有条件格式）。比如：选择了 【C3】那么  第C列第3行变色，但是C3单元格保持原有颜色。

爱疯

1楼附件已设置了很多条件格式，是吗？
如果是，比如在哪儿有设置。

成日比

爱疯 发表于 2019-4-10 18:18
1楼附件已设置了很多条件格式，是吗？
如果是，比如在哪儿有设置。

源模板
谢谢老师！！

lxchk0001

太好了，正需要

淡淡的邪

我就想知道怎么得到学分，小萌新想发个求助帖都发不了