Excel VBA实现单元格背景颜色与RGB值互转

创作时间:

作者:

@小白创作中心

Excel VBA实现单元格背景颜色与RGB值互转

引用

CSDN

https://blog.csdn.net/fsyuheduo/article/details/144522284

在Excel中，我们经常需要设置单元格的背景颜色，有时也需要获取单元格的RGB值。本文将介绍如何使用VBA实现单元格背景颜色与RGB值的互转，包括RGB颜色模型的基本介绍、手工操作步骤以及具体的VBA代码实现。

基本介绍

在Excel中，我们通常用手工操作，设置单元格的背景颜色。而在电脑编程中，单元格的背景颜色由RGB（Red - 红、Green - 绿、Blue - 蓝）颜色模型是一种通过混合不同比例的红、绿、蓝三种颜色分量来表示颜色的方式。每个颜色分量的值范围是0到255。例如，(255, 0, 0)表示纯红色，(0, 255, 0)表示纯绿色，(0, 0, 255)表示纯蓝色，而(0, 0, 0)表示黑色，(255, 255, 255)表示白色。

颜色分量的意义

红色分量（Red）：决定了颜色中红色的强度。当红色分量的值越高时，颜色就越偏向红色。
绿色分量（Green）：控制颜色中绿色的含量。较高的绿色分量值使颜色更倾向于绿色。
蓝色分量（Blue）：确定颜色中蓝色的比重。大的蓝色分量值会让颜色更接近蓝色。

通过调整这三个分量的不同组合，可以创建出各种各样的颜色。

手工操作：设置单元格背景颜色并查看RGB值

鼠标右键已填充颜色的单元格->>点击打开“设置单元格格式”->>点击“填充”选项下的“其他颜色”->>点击“自定义”，选择颜色模式为RGB->>

下面进行ExcelVBA编程设计，我先设计了这样子的一个测试场景

在工作表“ 色彩”中，两个区域，

由RGB取色：从K25单元格开始

由色取RGB:从E25单元格开始

在VBA中：由RGB值设置单元格背景颜色

示例代码

Sub 由RGB取色()
    Dim Rng As Range
    With Worksheets("色彩")
        lastRow = .Range("K25").End(xlDown).Row
        For i = 26 To lastRow
            Set Rng = .Range("k" & i)
            rN = CInt(Rng.Offset(0, 1).Value)
            Gn = CInt(Rng.Offset(0, 2).Value)
            Bn = CInt(Rng.Offset(0, 3).Value)
            Rng.Offset(0, 4).Interior.Color = RGB(rN, Gn, Bn)
        Next
    End With
End Sub

代码解析：

从K25到K25最后的一行循环
RN=L列的值，GN=M列的值，BN=M列的值
Range.Interior.Color=RGB(RN,GN,BN)的值

在VBA中：由单元格背景颜色提取RGB值

示例代码

Sub 由色取RGB()
    Dim Rng As Range
    With Worksheets("色彩")
        lastRow = .Range("E25").End(xlDown).Row
        For i = 26 To lastRow
            Set Rng = .Range("F" & i)
            Rng.Offset(0, 1) = Rng.Interior.Color Mod 256
            Rng.Offset(0, 2) = Rng.Interior.Color \ 256 Mod 256
            Rng.Offset(0, 3) = Rng.Interior.Color \ 256 \ 256 Mod 256
        Next
    End With
End Sub

代码解析：