RGB函数返回单元格底色和字体颜色值

bb75308973

一、题目：要求编写一段代码，使用 RGB 函数返回A1单元格的底色和字体的 RGB 色彩值。二、代码：

1. Sub 示例_1_032()
   
2.     Dim hs, I, RGBValue
   
3.     hs = RGB(255, 255, 0)   
   
4.     I = 35   
   
5.     RGBValue = RGB(I, 64 + I, 128 + I)
   
6.     Cells(5, 1).Interior.Color = RGBValue
   
7.     Cells(5, 1).Font.Color = hs
   
8. End Sub

复制代码

三、代码详解1、Sub 示例_1_032()：宏程序的开始语句。宏名为示例_1_032。2、Dim hs, I, RGBValue   ：声明变量均为可变型变量。3、hs = RGB(255, 255, 0)  ：把红绿蓝色彩空间的色彩值赋给变量hs（黄色）。4、I = 35  ：把35赋给变量I。5、RGBValue = RGB(I, 64 + I, 128 + I) ：把不变量I作为偏移量计算得到的红绿蓝色彩空间中的RGB(35, 99, 163)颜色赋给变量RGBValue。6、Cells(5, 1).Interior.Color = RGBValue ：把颜色赋给单元格A5的底色。7、Cells(5, 1).Font.Color = hs ：把黄色赋给单元格A5的字体。RGB函数用来表示一个RGB颜色值。RGB(red, green, blue)RGB函数的参数red 必要的参数，Variant (Integer)，数值范围从0～255，表示颜色的红色成分green 必要的参数，Variant (Integer)，数值范围从0～255，表示颜色的绿色成分Blue  必要的参数，Variant (Integer)，数值范围从0～255，表示颜色的蓝色成分 注意：使用RGB函数设置颜色受系统限制，如果系统只能显示16色，那么RGB函数就不能设置出更多的颜色。

hopine

收藏了