RGB颜色分类

13631632978

各位高手，
      我是做粉料的，生产计划需要根据产品颜色对应排单给不同机台，所以颜色分类很有必要，我想通过RGB值或L值（明暗色相）对颜色进行分类，比如分成：红色、黄色、白色（浅色）、灰色、深色（黑色）几大类，这个要如何进行分类，目前无好的方法，如附件：

13631632978

附件怎么上传不了

liulang0808

Sub 填充()
'
'填充 Macro

For i = 2 To Range("b65536").End(xlUp).Row
On Error Resume Next 'RGB=NA时程序仍然运行'
Cells(i, 6).Interior.Color = RGB(Cells(i, 2).Value, Cells(i, 3).Value, Cells(i, 4))
If Cells(i, 2).Value = Empty And Cells(i, 3).Value = Empty And Cells(i, 4).Value = Empty Then Cells(i, 6).Interior.Color = RGB(255, 255, 255)
Next

End Sub

注意红色字体地方
另外清楚，可以整理处理吗，录制宏看下

hzruziniu

13631632978 发表于 2018-9-11 11:42
附件怎么上传不了

看看这个色谱 色谱.rar (12.3 KB, 下载次数: 108)

2018-9-11 12:46 上传

点击文件名下载附件

13631632978

谢谢，又收集了一些可用的资料，不过与我的RGB分类有点不好操作。

13631632978

hzruziniu 发表于 2018-9-11 12:47
看看这个色谱

大师，我问一下，1、颜色对应的”数字值“是怎么来的，是随意编的流水号还是根据颜色生成的？2、另外你这个颜色是怎么生成的？

hzruziniu

13631632978 发表于 2018-9-11 14:02
大师，我问一下，1、颜色对应的”数字值“是怎么来的，是随意编的流水号还是根据颜色生成的？2、另外你这 ...

1. Private Sub CommandButton1_Click()
   
2.     r = Range("A500").End(3).Row
   
3.     For i = 2 To r
   
4.         Cells(i, 2).Interior.ColorIndex = Cells(i, 1)    '颜色
   
5.     Next
   
6. End Sub

复制代码

说明：在A列输入数据，点击按扭在B列就生成颜色。
Cells(i, 2).Interior.ColorIndex = Cells(i, 1)    '颜色

zopey

13631632978 发表于 2018-9-11 14:02
大师，我问一下，1、颜色对应的”数字值“是怎么来的，是随意编的流水号还是根据颜色生成的？2、另外你这 ...

excel 单元格的默认背景色 有56种。

zopey

网上资料 供参考：

描述色彩的还有色度图，色度图能把选定的三基色与它们混合后得到的各种彩色之间的关系简单而方便地描述出来。

图1 表示一个以三基色顶点的等边三角形。三角形内任意一点 P到三边的距离分别为r、g、b。
若规定顶点到对应边的垂线长度为1，则不难证明关系r+g+b=1成立，因此r、 g、 b就是这一色三角形的色度座标。

显然，白色色度对应于色三角形的重心，记为 W，因为该点 r=1/3，g=1/3，b=1/3
沿 RG边表示由红色和绿色合成的彩色，此边的正中点为黄色，其色度座标为 r=1/2, g=1/2, b=0．橙色在黄色与红色之间(r=3/4，g=1/4，b=O)。
同样，品红色(也称紫色)在RB边的中点(r=1/2，g=0，b=1/2)，青色在 BG边的中点 (r=0,g=1/2,b=1/2)。

穿过W点的任一条直线连接三角形上的两点，该两点所代表的颜色相加均得到白色。通常把相加后形成白色的两种颜色称为互补色。
例如图中的红与青、绿与品红、蓝与黄皆为互补色。

从三角形边线上任一点(如R点)沿着此点与W的连线 (如RW)移向 W点，则其颜色(如100%饱和度的纯红色)逐渐变淡，到达W点后颜色就完全消失。
上述色三角形称为 Maxwell色三角形。

13631632978

谢谢！学习了。