excel中如何用VBA使单元格值变化的同时单元格颜色改变

Question

A列单元格的值和B列同行单元格值比较，如果B列单元格的值大于A列同行单元格，该B单元格的颜色自动变为红色，注B列单元格的值是由公式将几个单元格的值的加和

Answer 1

选中B列，格式-条件格式，设置条件为大于A1（注意默认$A$1改为A1）,格式为红色

Answer 2

Sub compare()
For i = 1 To Worksheets("sheet1").UsedRange.Rows.Count
If Range("a" & i).Value < Range("b" & i).Value Then
Range("B" & i).Select
Selection.Interior.ColorIndex = 3
End If
Next
End Sub

Answer 3

Private Sub Worksheet_Change(ByVal Target As Range)
该函数段来设置哪些单元格变动就执行命令
如
if target.column=2 then
'代码
endif

代表如果B列数据发生变动，就执行代码

.Interior.ColorIndex 可改变单元格的背景色

如
worksheets(1).cells(1,1).Interior.ColorIndex = 6