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

cpuwjy

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

youliqi

是单元格填充红色
还是字符变为红色

youliqi

1. Sub test()
   
2.     For i = 1 To n
   
3.         If Cells(i, 2) > Cells(i, 1) Then
   
4.             Cells(i, 2).Font.ColorIndex = 3     '字符变为红色
   
5.        Cells(i, 2).Interior.ColorIndex = 3     '单元格填充红色
   
6.      End If
   
7.     Next
   
8. End Sub
   

复制代码

i=1    假定从第一行开始
n为A、B列的最后一行行号

[ 本帖最后由 youliqi 于 2010-7-7 12:47 编辑 ]

cpuwjy

因为B单元格的数字是由几周的销量相加而得，所以B单元格的数字是动态的，我希望得到的结果是，一旦B单元格的值变化，B单元格的颜色做出相应的变化

youliqi

原帖由 cpuwjy 于 2010-7-7 14:27 发表
因为B单元格的数字是由几周的销量相加而得，所以B单元格的数字是动态的，我希望得到的结果是，一旦B单元格的值变化，B单元格的颜色做出相应的变化

噢，那就试试以下代码：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     For i = 1 To n
   
3.         If Cells(i, 2) > Cells(i, 1) Then
   
4.             Cells(i, 2).Font.ColorIndex = 3
   
5.         Else
   
6.             Cells(i, 2).Font.ColorIndex = 1
   
7.         End If
   
8.     Next
   
9. End Sub
   

复制代码

zyhui1961

youliqi 发表于 2010-7-7 12:46
i=1    假定从第一行开始
n为A、B列的最后一行行号

这个挺好。就是如果B列改回来比A列小，已经填充的字体颜色不能自动改回来！

zyhui1961

youliqi 发表于 2010-7-7 12:46
i=1    假定从第一行开始
n为A、B列的最后一行行号

老师您好！
能给一个双击Sheet(您好)工作表的K8单元格,触发事件的代码吗？谢谢！