EXCEL到底能显示多少颜色

aman1516

如题：EXCEL用VBA到底能显示多少颜色？当然，这首先与电脑设置有关。
系统常规56色，以潘通色卡，不过900多种颜色。
若以RGB值为0~255计，理论上是否存在255*255*255＝16581375种颜色？

下面是以5为步进，只想显示51*51*51＝132651种颜色，但程序执行不下去，耗时？更不用说，死机ing...
Private Sub CommandButton1_Click()
On Error Resume Next
Dim i, j, k, m, n, r
For i = 0 To 255 Step 5
    m = m + 1
    For j = 0 To 255 Step 5
        m = m + 1
        n = 0
        For k = 0 To 255 Step 5
            n = n + 1
            Cells(m, n) = i & "," & j & "," & k
            Cells(m, n).Interior.Color = RGB(i, j, k)
        Next
    Next
Next
End Sub
请教高手，看通过RGB函数在EXCEL中能测试显示出多少颜色。

EXCEL到底能显示多少颜色（或电脑设置）.rar (13.61 KB, 下载次数: 41)

2014-12-9 22:10 上传

点击文件名下载附件

jsxjd

1. Private Sub CommandButton1_Click()
   
2. Dim i, j, k, m, n, r
   
3. Application.ScreenUpdating = False
   
4. For i = 0 To 255 Step 5
   
5.     m = m + 1
   
6.     For j = 0 To 255 Step 5
   
7.         m = m + 1
   
8.         n = 0
   
9.         For k = 0 To 255 Step 5
   
10.             n = n + 1
    
11.             Cells(m, n) = i & "," & j & "," & k
    
12.             Cells(m, n).Interior.Color = RGB(i, j, k)
    
13.         Next
    
14.     Next
    
15. Next
    
16. Application.ScreenUpdating = True
    
17. End Sub
    

复制代码

jsxjd

EXCEL到底能显示多少颜色（或电脑设置）.rar (386.38 KB, 下载次数: 51)

2014-12-9 22:32 上传

点击文件名下载附件

aman1516

jsxjd 发表于 2014-12-9 22:32

本机上还是不行，错误提示“不同的单元格格式太多”。
不知版主运行时间是多少？
另外，运行时显示的是均匀过渡的颜色，但保存后再打开，则很多不同值的颜色都同一色了（是否系统颜色限制了）。
所以，更别说255*255*255种颜色了（天文数字）

aman1516

显示结果：

aman1516

常用配色的RGB值，可产生900多种颜色：

900种颜色.rar (37.09 KB, 下载次数: 39)

2014-12-9 23:33 上传

点击文件名下载附件

却不知能否验证下理论颜色种类极限

jsxjd

aman1516 发表于 2014-12-9 23:16
本机上还是不行，错误提示“不同的单元格格式太多”。
不知版主运行时间是多少？
另外，运行时显示的是 ...

我这边正常
可能楼主已经设置了好多格式

aoe1981

jsxjd 发表于 2014-12-9 22:32

现在有点明白为什么要STEP 5了……16777216……到现在还没有运行完了……

香川群子

aoe1981 发表于 2014-12-10 09:50
现在有点明白为什么要STEP 5了……16777216……到现在还没有运行完了……

吃饱了撑的……

香川群子

aoe1981 发表于 2014-12-10 09:50
现在有点明白为什么要STEP 5了……16777216……到现在还没有运行完了……

吃饱了撑的……