Interior 对象

代表一个对象的内部

针对interior对象，我们用得最多的是它的颜色，下面就来讨论一下。

1.ColorIndex 索引颜色值

Sub 索引颜色值()
    For i = 1 To 56
        Cells(i, 1).Interior.ColorIndex = i
        Cells(i, 2) = i
    Next i
    
    For i = 1 To 56
        Cells(i, 3).Interior.ColorIndex = i
        Cells(i, 3).Interior.ColorIndex = xlNone
        Cells(i, 4) = i
    Next i
End Sub

 

作用：以ColorIndex 方式设置单元格底色，值和颜色对应关系可以参考如下的图片或者自行将本代码写到excel中运行看结果。3、4列验证设置无颜色时要使用xlNone

2.Color 结合QBColor早期颜色值

Sub 早期颜色值()
    For i = 0 To 15
        Cells(i + 1, 1).Interior.Color = QBColor(i)
        Cells(i + 1, 2) = i
    Next i
    
    For i = 0 To 15
        Cells(i + 1, 3).Interior.Color = QBColor(i)
        Cells(i + 1, 3).Interior.Color = xlNone
        Cells(i + 1, 4) = i
    Next i
End Sub

作用：以Color 结合QBColor(i)方式设置单元格底色，i的取值范围为[0,15]，超出范围运行程序会报错。值和颜色对应关系可以参考如下图片或者自行将本代码写到excel中运行看结果。3、4列验证设置无颜色时要使用xlNone

3.Color 结合RGB颜色值

Sub 三原色颜色值()
    Cells(2, 4).Interior.Color = RGB(255, 0, 0)
    
    Cells(3, 4).Interior.Color = RGB(255, 0, 0)
    Cells(3, 4).Interior.Color = xlNone
End Sub

作用：以Color 结合RGB方式设置单元格底色，RGB中值的范围为[0,255]，依次为颜色的R、G、B分量。

3行4列验证设置无颜色时要使用xlNone

4.Color 结合BGR颜色值

Sub 直接颜色值() '此颜色有255^3种颜色
    Cells(1, 1).Interior.Color = 255

    Cells(1, 2).Interior.Color = 255
    Cells(1, 2).Interior.Color = xlNone
End Sub

作用：以Color 结合BGR方式设置单元格底色，此处Interior.Color的值是一个十进制数，范围是0-16777215. 属于long长整形范围，颜色RGB分量顺序是BGR，所以纯蓝色是（255，000，000），纯绿色是（000，255,000），纯红色是（000,000,255）对应的十六进制分别是0xFF0000;0x00FF00;0x0000FF。把这三个十六进制化成十进制数就是16711680；65280；255。

1行2列验证设置无颜色时要使用xlNone