Excel VBA 之Interior 对象设置底色

逃离我推掉我的手 2023-10-09 18:17 53阅读 0赞

## 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

![87fc73149e4344cdb3e99593031a665f.png][]

## **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

![b9846ab511f04833b61894597c7048d7.png][]

## **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

[87fc73149e4344cdb3e99593031a665f.png]: https://img-blog.csdnimg.cn/87fc73149e4344cdb3e99593031a665f.png
[b9846ab511f04833b61894597c7048d7.png]: https://img-blog.csdnimg.cn/b9846ab511f04833b61894597c7048d7.png