RGB 与HSL 色彩空间的转换函数

zopey

Sub test()
Dim MyRGB As Colour
Dim H As Double, S As Double, L As Double

H = InputBox("输入色相(0-360度):") 'h=色相

For i = 0 To 10 's=饱和度
For j = 0 To 10 'l=亮度
    S = i / 10: L = j / 10
    MyRGB = HSL2RGB(NewHSL(H, S, L))
    r1 = Round(255 * MyRGB.r, 0): g1 = Round(255 * MyRGB.g, 0): b1 = Round(255 * MyRGB.b, 0)
    Cells(i + 1, j + 1).Interior.Color = RGB(r1, g1, b1)
    Cells(i + 1, j + 1).Value = "'" & r1 & "," & g1 & "," & b1

    MyRGB = HSL2RGB(NewHSL((H + 180) Mod 360, 1, 1 - L))
    r2 = Round(255 * MyRGB.r, 0): g2 = Round(255 * MyRGB.g, 0): b2 = Round(255 * MyRGB.b, 0)
    Cells(i + 1, j + 1).Font.Color = RGB(r2, g2, b2)
Next
Next

End Sub


单色渐变.zip (24.25 KB, 下载次数: 257)

2018-9-18 10:52 上传

点击文件名下载附件

zopey

单色渐变的效果图

zopey

'RGB2HSL 转换函数

Function RGB2HSL(ByRef c1 As Colour) As HSL

Dim themin As Double, themax As Double, delta As Double

Dim c2 As HSL

themin = MinD(c1.r, MinD(c1.g, c1.b))
themax = MaxD(c1.r, MaxD(c1.g, c1.b))
delta = themax - themin
c2.L = (themin + themax) / 2

If c2.L = 0 Then
   c2.S = 0
ElseIf c2.L <= 0.5 Then
   c2.S = delta / (2 * c2.L)
ElseIf c2.L < 1 Then
   c2.S = delta / (2 - 2 * c2.L)
End If

If delta > 0 Then
    If themax = c1.r Then
        If c1.g >= c1.b Then
           c2.H = 60 * (c1.g - c1.b) / delta + 0
        ElseIf c1.g < c1.b Then
           c2.H = 60 * (c1.g - c1.b) / delta + 360
        End If
    ElseIf themax = c1.g Then
        c2.H = 60 * (c1.b - c1.r) / delta + 120
    ElseIf themax = c1.b Then
        c2.H = 60 * (c1.r - c1.g) / delta + 240
    End If
ElseIf delta = 0 Then
    c2.H = 0
    c2.S = 0
End If

RGB2HSL = c2
End Function

zopey

'HSL2RGB 转换函数

Function HSL2RGB(ByRef c1 As HSL) As Colour

Dim c2 As Colour, sat As Colour, ctmp As Colour

Do While (c1.H < 0)

   c1.H = c1.H + 360

Loop


Do While (c1.H > 360)

   c1.H = c1.H - 360

Loop


If (c1.H < 120) Then

   sat.r = (120 - c1.H) / 60

   sat.g = c1.H / 60

   sat.b = 0

ElseIf (c1.H < 240) Then

   sat.r = 0

   sat.g = (240 - c1.H) / 60

   sat.b = (c1.H - 120) / 60

Else

   sat.r = (c1.H - 240) / 60

   sat.g = 0

   sat.b = (360 - c1.H) / 60

End If


sat.r = MinD(sat.r, 1)

sat.g = MinD(sat.g, 1)

sat.b = MinD(sat.b, 1)


ctmp.r = 2 * c1.S * sat.r + (1 - c1.S)

ctmp.g = 2 * c1.S * sat.g + (1 - c1.S)

ctmp.b = 2 * c1.S * sat.b + (1 - c1.S)


If (c1.L < 0.5) Then

   c2.r = c1.L * ctmp.r

   c2.g = c1.L * ctmp.g

   c2.b = c1.L * ctmp.b

Else

   c2.r = (1 - c1.L) * ctmp.r + 2 * c1.L - 1

   c2.g = (1 - c1.L) * ctmp.g + 2 * c1.L - 1

   c2.b = (1 - c1.L) * ctmp.b + 2 * c1.L - 1

End If

HSL2RGB = c2

End Function

zopey

RSB2HSL 转换函数 应用举例，
由波长 计算 RGB  再转换到 HSL ，发现 波长 与 H 的对应关系 很规律 。



可见光.zip (55.25 KB, 下载次数: 106)

2018-9-18 11:35 上传

点击文件名下载附件

zopey

RGB 如果理解为二进制数字（接近机器语言），HSL  相当于 十进制数字（接近人类语言）。

aman1516

之前试跑过将所有颜色在工作表上全部显示出来：255*255*255＝16581375色（单元格），基本死机，但可通过 Step 5 、Step 10 或 Step 25 等方法察看到颜色效果，至于选那个，就看你的电脑配置了

aman1516

EXCEL到底能显示多少颜色
http://club.excelhome.net/thread-1171613-1-1.html
(出处: ExcelHome技术论坛)

zopey

aman1516 发表于 2018-9-18 22:33
之前试跑过将所有颜色在工作表上全部显示出来：255*255*255＝16581375色（单元格），基本死机，但可通过 St ...

明度 L=0 时 只有黑色，明度 L=1 时 只有白色；
饱和度 s=0 时 只有 黑、白  、灰 色；

饱和度 s >0 且 明度 0<L<1时 ,才出现有 彩色（L=0.5 ，S=1 时色彩最鲜艳） 。

dongdonggege

大师请举例，通过添加一个矩形，用程序来显示图形色彩渐变色。有效果，没过程。