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

Question

程序发送至：[email protected]

Answer 1

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

Answer 2

你这样比较 无论怎样做 都是需要吧更新过的数据进行一个备份的，然后用这个副本来与新的数据进行比对的！
所以我想如果你的表格 结构是不变的，仅仅是里边的数据有变化的话，你是否可以这样哪，就是在你这个表中使用条件格式……条件 如前述……
不过你每次更新完 要复制 选择性粘贴 数值到那个 比对备份表中！这个可以通过一个录制宏来完成……追问

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

追答

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

Answer 3

我晕了，百度给我这么多问题，要我回答追问

哥，耐心点，帮帮小弟呀

追答

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

Answer 4

目的不清楚，表达不清晰，你要更新哪里的数据？总不会是让它自动加减吧？追问

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

追答

用工作表事件宏吧

追问

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

Answer 5

单元格设置问题。