首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

一道Excel的算术题-符合条件同变色,否则不同色.解决方案

2012-02-17 
一道Excel的算术题-符合条件同变色,否则不同色.数据规则A20B30C50目标需求Range(A3)A+B+C,单元格Range(

一道Excel的算术题-符合条件同变色,否则不同色.
数据规则
A 20
B 30
C 50
目标需求

Range("A3")=A+B+C,单元格Range(A3:B3)变相同色

Range("A4")<>A+B,单元格Range(A4:B4)字体颜色附件不同
附件详见:
http://club.excelhome.net/viewthread.php?tid=496509&extra=&frombbs=1

[解决办法]
Range("A3")=A+B+C,单元格Range(A3:B3)变相同色 

VB code
Sub test()    Dim A As Integer    Dim B As Integer    Dim C As Integer        Range("A3").Interior.Color = vbGreen        If Range("A3") = A + B + C Then        Range("B3").Interior.Color = vbGreen    Else        Range("B3").Interior.Color = vbRed    End If        End Sub 

热点排行