第1.32例 RGB函数
一、题目：
要求编写一段代码，使用 RGB 函数返回A1单元格的底色和字体的 RGB 色彩值。
二、代码：
Sub 示例_1_032()
Dim hs, I, RGBValue
hs = RGB(255, 255, 0)
I = 35
RGBValue = RGB(I, 64 + I, 128 + I)
Cells(5, 1).Interior.Color = RGBValue
Cells(5, 1).Font.Color = hs
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函数就不能设置出更多的颜色。