excel 宏 VBA 填充背景色

[intellectual1]

A B C D E F
1 Cc12 Cc13 Cc14 Cc15 Cc16
2 Cc13 背景色
3 Cc15 背景色 背景色 背景色

需要A列的所有单元格同B1，C1，D1，E1，F1比较。
例如B1单元格（数据是Cc12) 小于A2（Cc13），即12<13.
所以B2单元格填充背景色。
其它比较下来小于A列的所有单元格都填充上背景色。
请教高人！
excel 宏 VBA 填充背景色

[王向飞]

去 开发语言→office开发/VBA 版块

[intellectual1]

那里人太少了，这里应该有人会的。

[AcHerat]

/*
A B C D E F
1 Cc12 Cc13 Cc14 Cc15 Cc16
2 Cc13 背景色
3 Cc15 背景色 背景色 背景色 
*/

declare @b int    --字段的数据类型，用int为例！
declare @c int
declare @d int
declare @e int
declare @f int
declare @beijing int  --背景色
select @b = b,@c = c,@d = d,@e = e,@f = f from tb where a = 1

update tb
set b = (case when b < @b then @beijing else b end),
    c = (case when c < @c then @beijing else c end),
    d = (case when d < @d then @beijing else d end),
    e = (case when e < @e then @beijing else e end),
    f = (case when f < @f then @beijing else f end)
where a > 1

[快溜]

没看明白 A2为啥是CC13

[intellectual1]

excel 宏谁会写？谢谢！

[王向飞]

你是要宏还是要SQL？

[Rotel-刘志东]

发错地方了。

[intellectual1]

是一张excel 表
数据如下，直接复制到excle中。
谁会写宏？
CC12 CC13 CC14 CC15 CC16
CC13 背景色
CC15 背景色 背景色 背景色

[intellectual1]

我要写excel 宏，不是sql。
对不起，没有说清楚。

[AcHerat]

excel 宏 不会。。。

[王向飞]

据我观察没人会

或许高手懒得出手，多顶顶帖吧

[快溜]

[Quote=引用 11 楼 wxf163 的回复:]
据我观察没人会

或许高手懒得出手，多顶顶帖吧
[/Quote]
你是间谍啊，就在坛子里观察动向。。。

[王向飞]

http://topic.csdn.net/u/20070821/07/985327ac-ff56-40d8-adec-a45897317a36.html

http://office.microsoft.com/zh-cn/excel-help/HA001136627.aspx

我感觉这俩一结合就差不多了，你比我聪明你肯定能看懂

我觉得我都快看懂了

[王向飞]

 
主要还是几个函数的问题

If   Range( "h4 ").Value   >   0.01   And   Range( "h4 ").Value   <   0.02   Then 
          x   =   Range( "h4 ").Value   -   0.01 
          Range( "c4 ").Value   =   Int((1   -   Range(h4).Value   -   Range( "g4 ").Value)   *   Range( "b4 ").Value) 
Range("A1:A6").Interior.Color = RGB(200,160,35)