Office中国论坛/Access中国论坛

标题: [求助]如何实现修改单元格数据而底色随之变化？ [打印本页]

作者: buhaijun 时间: 2005-1-3 07:19
标题: [求助]如何实现修改单元格数据而底色随之变化？
如何实现修改单元格数据后而底色自动随之变化？

作者: juyouhh 时间: 2005-1-3 08:05
执行这个代码可以使修改过的单元格底色变为黄色Private Sub Worksheet_Change(ByVal Target As Range)

Target.Interior.ColorIndex = 6

End Sub

作者: buhaijun 时间: 2005-1-4 04:49
非常感谢但是我想实现的是每次修改后的颜色不一样请高手指点！！！

作者: 情比金坚 时间: 2005-1-4 05:38
条件格式

作者: juyouhh 时间: 2005-1-4 07:53

以下是引用buhaijun在2005-1-3 20:48:43的发言：

非常感谢但是我想实现的是每次修改后的颜色不一样请高手指点！！！

你应该把你的要求说得具体一点，这样没法帮你。

作者: 老鬼 时间: 2005-1-5 02:21
Private Sub Worksheet_Change(ByVal Target As Range)

With Target.Interior

If .ColorIndex = 6 Then

.ColorIndex = 7

Else

.ColorIndex = 6

End If

End With

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)