自动改变单元格颜色

lalitou

[hr]a          b            c

c列中是公式
a-b > 0.0015 就在列相应的单元格中显示红色
修改后<0.0015 自动还原成原单元格颜色
c列中的单元格中都是公式 ，条件格式无法实现此效果  

清风竹-

请看附件。

lalitou

清风竹- 发表于 2015-3-29 17:05
请看附件。

如果0.0015是变化的不却定的呢？

清风竹-

lalitou 发表于 2015-3-29 17:48
如果0.0015是变化的不却定的呢？

上附件，详细说明一下。

lalitou

下面的文件

lalitou

清风竹- 发表于 2015-3-29 18:15
上附件，详细说明一下。

下面的文件

清风竹-

lalitou 发表于 2015-3-29 18:29
下面的文件

请看附件。

清风竹-

lalitou 发表于 2015-3-29 18:29
下面的文件

请参考一下。

jpj123

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim a1, a2
   
3. a1 = Val(Mid([b1].Value, 6, 1)): a2 = Val(Mid([b1].Value, 11, 1))
   
4. If Target.Value < a1 Or Target.Value > a2 Then
   
5. Target.Font.ColorIndex = 3
   
6. Else
   
7. Target.Font.ColorIndex = xlAutomatic
   
8. End If
   
9. End Sub
   
10. 
    

复制代码

tianying

可以用条件格式实现，不必用代码。