在vba中一种颜色都对应着一个数字或者说序列吧. 比如红色. 它对应的序列是3. 即(ColorIndex =3)
一个单元格可能存在着很多属性
.比如单元格.height 表示的是这个单元格格的高度.
当设置为单元格.height =3 时. 我们就把单元格的高度设置为3了.
vba中单元格.Interior 表示这个单元格的背景.
比如 range("A1").Interior 指的就是单元格A1的背景.
用 range("A1").Interior.ColorIndex 表示的就是A1的背景的色彩序列.
假设有这样一个表格,我们要做的就是把 >11 的表格设置为红色
Public Sub diandian10()
For Each danyuan In Range(Range("A1"), Range("A100").End(xlUp))
If danyuan.Value > 11 Then
danyuan.Interior.ColorIndex = 3
End If
Next
End Sub
代码分析:
1, Range(Range("A1"), Range("A100").End(xlUp)): 这个表示的是单元格A1到A8这个范围. 至于为什么这句不是表示A1到A100呢?
因为后面有一个 end(xlup),这个表示的是a100往上的非空单元格,这里就是a8
2, If danyuan.Value > 11Then , 这句语句就是前面一节学到的 选择语句了, 我们还记得选择语句的结构是:
if 条件 then
do something
end if
这里的条件就是 danyuan.Value > 11 , 当满足条件时,就会执行do something
3, danyuan.Interior.ColorIndex = 3
单元格.背景.色彩序列=3.执行这个语句,就会把单元格变成红色.
改变单元格的背景色用: 单元格.Interior.ColorIndex= 0~56的数字
改变单元格的字体的颜色: 单元格.font.ColorIndex= 0~56的数字
下面给出所有的颜色对应的序列,用来查阅: