EXCEL到底能显示多少颜色

aman1516

香川群子 发表于 2014-12-10 11:31
吃饱了撑的……

印刷、配色都是对比颜色而查取RGB值，再调色，否则何必还要个国际通用的潘通色卡？，只不过想通过EXCEL表体现而已。不过，正如6楼的900多种颜色一样，已基本满足一般的需要了。
EXCEL菜单中的自定义颜色，也是RGB格式255*255*255，在EXCL平常使用中谁又何尝用得了这么多，看来连微软也是“吃饱了撑的”……呵呵

aman1516

将 Cells(m, n) = i & "," & j & "," & k 先写入数组，不知是否会快一点儿，自己的机子上对比不出来。

coby001

2013
工作簿中的颜色数        1600 万种颜色（32 位，具有到 24 位色谱的完整通道）

2003
工作簿中的颜色数        56

---------
Excel 规范与限制
2013 比 2003 强大多了 ~

。

coby001

aman1516 发表于 2014-12-10 19:43
将 Cells(m, n) = i & "," & j & "," & k 先写入数组，不知是否会快一点儿，自己的机子上对比不出来。

这个应该取消，写rgb值毫无意义
实在想看颜色值，可以定义个Worksheet_SelectionChange事件
单击单元格的时候显示单元格的color 就可以了

coby001

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    MsgBox "蓝绿红" & vbCrLf & Right("000000" & Hex(Target(1).Interior.Color), 6)
End Sub


双击单元格显示颜色值

aman1516

coby001 发表于 2014-12-10 20:29
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True ...

谢谢，好方法，学习了。
检测RGB值：蓝150，绿180，红00，对应的结果是：96B400；蓝60，绿90，红00，对应的结果是：3C5A00；制式不同。
借用EH中一位老师的自定义函数转换了一下（在此谢谢原创作者）：

Public Function Color2RGB(ByVal myColor As Long) As String
    Dim r%, G%, B%
    r = myColor Mod 256
    G = myColor \ 256 Mod 256
    B = myColor \ 256 \ 256
    Color2RGB = "RGB(" & CStr(r) & "," & CStr(G) & "," & CStr(B) & ")"
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     Cancel = True
     'MsgBox "蓝绿红" & vbCrLf & Right("000000" & Hex(Target(1).Interior.Color), 6)
     MsgBox Color2RGB(Target(1).Interior.Color)
End Sub

一切OK啦。（大家要测试，将代码中的 step 5 改为 step 15 吧，大量数据运算，伤不起啊）

coby001

颜色值一般用十六进制表示，会比较方便。
我之所以写 "蓝绿红" ，而不是 RGB，因为 红 在低位，蓝 在高位。
三色一一对应，很直观。十进制不太直观。
蓝绿红
3C5A00