求VBA代码:excel单元格的数据会实时更新,实现如果新数据比原数据大,单元格字体变为红色,小则变为蓝色

程序发送至:[email protected]

Private DiffVar As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If DiffVar < Target.Value Then
Target.Font.Color = RGB(255, 0, 0)
Else
Target.Font.Color = RGB(0, 0, 255)
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
DiffVar = Target.Value
End If
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-12-07
你这样比较 无论怎样做 都是需要吧更新过的数据进行一个备份的,然后用这个副本来与新的数据进行比对的!
所以我想如果你的表格 结构是不变的,仅仅是里边的数据有变化的话,你是否可以这样哪,就是在你这个表中使用条件格式……条件 如前述……
不过你每次更新完 要复制 选择性粘贴 数值到那个 比对备份表中!这个可以通过一个录制宏来完成……追问

这样太麻烦,依赖性太强啦

追答

哈哈!你所最求的简单 其实做起来更麻烦!即使你有能力写一大堆的代码,但是那些代码读起来还是会很抽象!并且我相信,他也会建立一个这样的备份……
我的方案 就是 需要你录制一个 宏而已 然后 下一次 就只要运行这个宏可以了!你也可以自己编制一个这样的宏 代码 让它在后台自动运行 比如 关闭时进行复制备份表的操作……

第2个回答  2011-12-07
我晕了,百度给我这么多问题,要我回答追问

哥,耐心点,帮帮小弟呀

追答

比数值大就是错误数值,表示错误

第3个回答  2011-12-07
目的不清楚,表达不清晰,你要更新哪里的数据?总不会是让它自动加减吧?追问

嗯,例子:单元格A1数值为12.1,之后A1的数值变为13.1,那么使13.1的字体颜色变为红色。如何使用VBA实现?

追答

用工作表事件宏吧

追问

怎么弄?大侠可否把vba代码发给我

第4个回答  2011-12-10
单元格设置问题。
相似回答