RGB颜色分类

13631632978

谢谢，学习了！

13631632978

如附件正是我提问的方法，也是转载的，但有点问题，那位高手再看看问题出现在哪里，就是出来的数字好多颜色相关很远，但数字是一样的，所以无法排序。

13631632978

13631632978 发表于 2018-9-13 09:39
如附件正是我提问的方法，也是转载的，但有点问题，那位高手再看看问题出现在哪里，就是出来的数字好多颜色 ...

大家可以用我前发的RGB颜色显示来实验看看，谢谢！

zopey

Sub 按钮3_Click()
Rows("2:65535").ClearContents
Dim x, ys
Cells.Interior.ColorIndex = xlNone

K = 2
For x = 380 To 780 Step 0.5

If x >= 380 And x < 430 Then '/*x为可见光波长，ys为颜色值*/
   R = 255: G = 0: B = 2.1 * (x - 380) + 150
ElseIf x >= 430 And x < 460 Then
  R = 255 - 8.5 * (x - 430): G = 0: B = 255
ElseIf x >= 460 And x < 480 Then
   R = 0: G = 12.8 * (x - 460): B = 255
ElseIf x >= 480 And x < 540 Then
   R = 0: G = 255: B = 255 - 4.25 * (x - 480)
ElseIf x >= 540 And x < 580 Then
   R = 6.375 * (x - 540): G = 255: B = 0
ElseIf x >= 580 And x < 660 Then
   R = 255: G = 255 - 3.1875 * (x - 580): B = 0
ElseIf x >= 660 And x < 780 Then
   R = 255: G = 0: B = 0.833 * (x - 660)
Else
   R = 255: G = 255: B = 255
End If

    R = Round(R, 0): Cells(K, 1) = R
    G = Round(G, 0): Cells(K, 2) = G
    B = Round(B, 0): Cells(K, 3) = B

    ys = R + G * 256 + B * 65536
    ys = "&H" & Hex(CLng(ys))
    Cells(K, 5).Interior.Color = ys
    Cells(K, 4) = Cells(K, 5).Interior.Color
    Cells(K, 6) = Cells(K, 5).Interior.ColorIndex
    Cells(K, 7) = x
    K = K + 1
Next
End Sub

RGB色谱.zip (48.92 KB, 下载次数: 38)

2018-9-13 14:39 上传

点击文件名下载附件

13631632978

zopey 发表于 2018-9-13 14:39
Sub 按钮3_Click()
Rows("2:65535").ClearContents
Dim x, ys

非常谢谢！很有用的分享，收藏了。

13631632978

Zopey，不过我们产品通过色差仪已生成了RGB值，如何用你的方法进行产品的颜色进行排序呢，搞了半天不知从何下手，因我对VBA只是个新手，正在学习，能否帮忙在我的附件里面整理一下，谢谢！

zopey

RGB 转换为hls ，再排序。

颜色排序.zip (2 MB, 下载次数: 26)

2018-9-14 17:57 上传

点击文件名下载附件

13631632978

13631632978 发表于 2018-9-14 10:35
Zopey，不过我们产品通过色差仪已生成了RGB值，如何用你的方法进行产品的颜色进行排序呢，搞了半天不知从何 ...

感谢帮助，这种方法是可以排序，但颜色排序没有规律，我是想如你上面附件一样，把我现有的RGB值转换成波长，这样的排序颜色是由浅到深或由深到浅，如按这相规律生产进行排程，会方便很多，目前关键是将我附件的RBG值如何转换成波长？

zopey

13631632978 发表于 2018-9-18 10:42
感谢帮助，这种方法是可以排序，但颜色排序没有规律，我是想如你上面附件一样，把我现有的RGB值转换成波 ...

HSL 色彩空间中的 H 即代表人眼观察到色调，可作为排序主打。

zopey

我调试、整理好的 相关色彩转换函数 ，在链接处已公开vba代码。

http://club.excelhome.net/thread-1436451-1-1.html