VBA获取单元格填充颜色的RGB值，或，用RGB的到填充颜色

Excel2119 · 发表于 2024-1-30 15:47

VBA获取单元格填充颜色的RGB值，或，用RGB的到填充颜色，如下图：

GIF 2024-1-30 15-41-37.gif

Sub 颜色与RGB()
'【1.1】已知单元格颜色RGB值获取【填充颜色】
For i = 4 To 12
R = Range("B" & i).Value
G = Range("C" & i).Value
B = Range("D" & i).Value
Range("F" & i).Interior.Color = RGB(R, G, B)
Next
'【1.2】已知单元格【填充颜色】获取颜色RGB值
For i = 4 To 12
Range("H" & i) = Range("A" & i).Interior.Color Mod 256
Range("I" & i) = Range("A" & i).Interior.Color \ 256 Mod 256
Range("J" & i) = Range("A" & i).Interior.Color \ 256 \ 256 Mod 256
Next
'【2.1】已知单元格颜色RGB值获取【字体颜色】
For i = 20 To 28
R = Range("B" & i).Value
G = Range("C" & i).Value
B = Range("D" & i).Value
Range("F" & i).Font.Color = RGB(R, G, B)
Next
'【2.2】已知单元格【字体颜色】获取颜色RGB值
For i = 20 To 28
Range("H" & i) = Range("A" & i).Font.Color Mod 256
Range("I" & i) = Range("A" & i).Font.Color \ 256 Mod 256
Range("J" & i) = Range("A" & i).Font.Color \ 256 \ 256 Mod 256
Next
End Sub

复制代码

原文件如下：

VBA填充RGB.rar (39.08 KB, 下载次数: 87)

Excel2119 · 发表于 2024-1-30 16:20

本帖最后由 Excel2119 于 2024-1-30 16:21 编辑

RGB = 256^2 * Red + 256^1 * Green + 256^0 * Blue
= 65536 * Red + 256 * Green + Blue

注：红，绿，蓝是0～255之间的数，数值越小，亮度越低，数值越大，亮度越高。）

ykcbf1100 · 发表于 2024-1-30 19:23

感觉用Interior.Color更方便，用RGB的话，不容易记清楚颜色。

Excel2119 · 发表于 2024-1-31 09:22

ykcbf1100 发表于 2024-1-30 19:23
感觉用Interior.Color更方便，用RGB的话，不容易记清楚颜色。

为了配色美观，不得不考虑RGB，比如根据【中国色中国传统颜色http://zhongguose.com/】进行颜色搭配，做出的图表，那是杠杠的。

Excel2119 · 发表于 2024-1-31 09:31

在分享个取色器吧，方便参考：

【取色器】HTMLcolor v1.4.exe.7z (142.15 KB, 下载次数: 49)

大灰狼1976 · 发表于 2024-1-31 12:52

颜色值转换成16进制数，每两位就是一种三元色值

cidanji · 发表于 2024-1-31 12:58

截图软件 FSCapture 比较好用

Excel2119 · 发表于 2024-2-1 10:43

本帖最后由 Excel2119 于 2024-2-20 16:19 编辑

cidanji 发表于 2024-1-31 12:58
截图软件 FSCapture 比较好用

我的习惯：

在制作动态GIF图用GifCam，分享：

GifCam.zip (716.52 KB, 下载次数: 24)

录视频或截长图用FSCapture，分享：

FastStone Capture for Wingodws V8.7.part1.rar (2 MB, 下载次数: 19)

FastStone Capture for Wingodws V8.7.part2.rar (2 MB, 下载次数: 19)

FastStone Capture for Wingodws V8.7.part3.rar (591.1 KB, 下载次数: 23)

cidanji · 发表于 2024-2-1 13:41

Excel2119 发表于 2024-2-1 10:43
我的习惯：

在制作动态GIF图用 GifCam，分享

做GIF ScreenToGif 也不错

lizhipei78 · 发表于 2024-3-9 09:38

很好用，非常感谢分享

		自动登录	找回密码
密码			免费注册

[原创] VBA获取单元格填充颜色的RGB值，或，用RGB的到填充颜色

评分

评分