设值Execl单元格颜色,以及字体颜色

在vba中一种颜色都对应着一个数字或者说序列吧. 比如红色. 它对应的序列是3. 即(ColorIndex =3)
一个单元格可能存在着很多属性
.比如单元格.height   表示的是这个单元格格的高度. 
当设置为单元格.height =3 时. 我们就把单元格的高度设置为3了.

      vba中单元格.Interior                    表示这个单元格的背景.
比如 range("A1").Interior                    指的就是单元格A1的背景.
   用 range("A1").Interior.ColorIndex  表示的就是A1的背景的色彩序列.

假设有这样一个表格,我们要做的就是把 >11 的表格设置为红色

设值Execl单元格颜色,以及字体颜色

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的数字

下面给出所有的颜色对应的序列,用来查阅:

设值Execl单元格颜色,以及字体颜色

 

上一篇:使用RandomAccessFile操作对象,实现在文件中的增加、删除、修改


下一篇:JUC并发