56种颜色和数字值对照表

ww0000

做得很好，留下记号

dnstwjc

好方法,我找了好多,才找到这个满意的.谢谢

dianadeng

非常感谢！

乾坤若木

辛苦了楼主，谢谢！

wangjwpx

谢谢佛山小老鼠。

lrh788

谢谢分享！！！

baihushan

seedweb 发表于 2013-11-21 22:12
在网上发现一个非常好用的工具，可以从屏幕上截取颜色并变成代码，但是忘记在哪里下的了，推荐给大家吧

感谢分享，学习一下

享受人生1

谢谢老鼠老师

ning84

谢谢你的实例，演化几个小程序。

1. Option Explicit
   
2. 
   
3. Sub 颜色与数字对照表()
   
4.     Dim i As Integer, MyColor As Variant, k As Integer, h As Integer
   
5.     Dim MyEColor
   
6.    
   
7.     MyColor = Array("黑色", "白色", "红色", "鲜绿色", "蓝色", "黄色", "粉红色", "青绿色", "深红色", "绿色", "深蓝色", "深黄色", "紫罗兰", "青色", "灰－25％", "灰－50％", "海螺色", "梅红色", "象牙色", "浅青绿", "深紫色", "珊瑚红", "海蓝色", "冰蓝", "深蓝色", "粉红色", "黄色", "青绿色", "紫罗兰", "深红色", "青色", "蓝色", "天蓝色", "浅青绿", "浅绿色", "浅黄色", "淡蓝色", "玫瑰红", "淡紫色", "茶色", "浅蓝色", "水绿色", "酸橙色", "金色", "浅橙色", "橙色", "蓝－灰", "灰－40％", "深青", "海绿", "深绿", "橄榄色", "褐色", "梅红色", "靛蓝", "灰－80％")
   
8.     MyEColor = Array("Black", "White", "Red", "Bright Green", "Blue", "Yellow", "Pink", "Turquoise", "Dark Red", "Green", "Dark Blue", "Dark Yellow", "Violet", "Teal", "Gray-25%", "Gray-50%", "Periwinkle", "Plum+", "Ivory", "Lite Turquoise", "Dark Purple", "Coral", "Ocean Blue", "Ice Blue", "Dark Blue+", "Pink+", "Yellow+", "Turquoise+", "Violet+", "Dark Red+", "Teal+", "Blue+", "Sky Blue", "Light Turquoise", "Light Green", "Light Yellow", "Pale Blue", "Rose", "Lavender", "Tan", "Light Blue", "Aqua", "Lime", "Gold", "Light Orange", "Orange", "Blue-Gray", "Gray-40%", "Dark Teal", "Sea Green", "Dark Green", "Olive Green", "Brown", "Plum", "Indigo", "Gray-80%")
   
9.     Range("A1:H30").Font.Size = 15
   
10.     Range("A1:H30").Font.Name = "方正姚体"
    
11.     Range("A2:H2").Font.Size = 17
    
12.     Range("A2:H2").Font.ColorIndex = 5
    
13.     '    Range("A2:H2").Font.Bold = True
    
14.     [D1].Font.Size = 26
    
15.     [D1].Font.Bold = True
    
16.     [D1].Font.ColorIndex = 3
    
17.     [A2：H2] = Array("颜色显示", "颜色名", "数字值", "英文名", "颜色显示", "颜色名", "数字值", "英文名")
    
18.     k = 3
    
19.     h = 0
    
20.     For i = 1 To 28
    
21.         Cells(k, 1).Interior.ColorIndex = i    '颜色
    
22.         Cells(k, 2) = MyColor(h)    '颜色名
    
23.         Cells(k, 3) = i    '颜色值
    
24.         Cells(k, 4) = MyEColor(h)    '英文名
    
25.         Cells(k, 5).Interior.ColorIndex = i + 28    '颜色
    
26.         Cells(k, 6) = MyColor(h + 28)    '颜色名
    
27.         Cells(k, 7) = i + 28    '颜色值
    
28.         Cells(k, 8) = MyEColor(h + 28)    '英文名
    
29.         k = k + 1
    
30.         h = h + 1
    
31.     Next i
    
32.     [D1] = "颜色值对照表"
    
33.     Range("D1:G1").HorizontalAlignment = xlCenterAcrossSelection
    
34.     Columns("A:H").EntireColumn.AutoFit
    
35. End Sub
    
36. 
    
37. Sub 清空()
    
38.     [A1:H30].Clear
    
39. End Sub
    
40. 
    
41. 
    
42. 
    
43. Sub ll()
    
44.    Dim Sht As Worksheet, Rng As Range
    
45.    Dim ii
    
46.        Set Sht = Sheet2
    
47.        Sht.Cells.Clear
    
48.    Dim ColorArr
    
49.       ColorArr = Array("Black", "White", "Red", "Bright Green", "Blue", "Yellow", "Pink", "Turquoise", "Dark Red", "Green", "Dark Blue", "Dark Yellow", "Violet", "Teal", "Gray-25%", "Gray-50%", "Periwinkle", "Plum+", "Ivory", "Lite Turquoise", "Dark Purple", "Coral", "Ocean Blue", "Ice Blue", "Dark Blue+", "Pink+", "Yellow+", "Turquoise+", "Violet+", "Dark Red+", "Teal+", "Blue+", "Sky Blue", "Light Turquoise", "Light Green", "Light Yellow", "Pale Blue", "Rose", "Lavender", "Tan", "Light Blue", "Aqua", "Lime", "Gold", "Light Orange", "Orange", "Blue-Gray", "Gray-40%", "Dark Teal", "Sea Green", "Dark Green", "Olive Green", "Brown", "Plum", "Indigo", "Gray-80%")
    
50.       For ii = 0 To UBound(ColorArr)
    
51.            Set Rng = Sht.Cells(ii + 5, 1)
    
52.            Rng.Interior.ColorIndex = ii + 1
    
53.            Rng(, 2) = ii + 1
    
54.            Rng(, 3) = ColorArr(ii)
    
55.            Rng(, 4) = Rng.Interior.Color
    
56.            Rng(, 5) = Rng(, 4) Mod 256
    
57.            Rng(, 6) = Rng(, 4) \ 256 Mod 256
    
58.            Rng(, 7) = Rng(, 4) \ 65536 Mod 256
    
59.       Next ii
    
60.       
    
61. End Sub
    
62. 
    
63. Sub l2()
    
64.    Dim Sht As Worksheet, Rng As Range
    
65.    Dim ii
    
66.        Set Sht = Sheet3
    
67.        Sht.Cells.Clear
    
68.    Dim ColorArr
    
69.       ColorArr = Array("Black", "White", "Red", "Bright Green", "Blue", "Yellow", "Pink", "Turquoise", "Dark Red", "Green", "Dark Blue", "Dark Yellow", "Violet", "Teal", "Gray-25%", "Gray-50%", "Periwinkle", "Plum+", "Ivory", "Lite Turquoise", "Dark Purple", "Coral", "Ocean Blue", "Ice Blue", "Dark Blue+", "Pink+", "Yellow+", "Turquoise+", "Violet+", "Dark Red+", "Teal+", "Blue+", "Sky Blue", "Light Turquoise", "Light Green", "Light Yellow", "Pale Blue", "Rose", "Lavender", "Tan", "Light Blue", "Aqua", "Lime", "Gold", "Light Orange", "Orange", "Blue-Gray", "Gray-40%", "Dark Teal", "Sea Green", "Dark Green", "Olive Green", "Brown", "Plum", "Indigo", "Gray-80%")
    
70.       For ii = 0 To UBound(ColorArr)
    
71.            Set Rng = Sht.Cells(ii + 5, 1)
    
72.            Rng.Interior.ColorIndex = ii + 1
    
73.            Rng(, 2) = ii + 1
    
74.            Rng(, 2) = ColorArr(ii)
    
75.            Rng(, 3) = Rng.Interior.Color
    
76.            Rng(, 5) = Rng(, 4) Mod 256
    
77.            Rng(, 6) = Rng(, 4) \ 256 Mod 256
    
78.            Rng(, 7) = Rng(, 4) \ 65536 Mod 256
    
79.       Next ii
    
80.       
    
81. End Sub
    
82. 
    
83. Sub l3()
    
84.     Dim Rng As Range
    
85.     Dim ii, Str, Str1
    
86.         Str = "eArr=array("
    
87.         Str1 = "numArr=array("
    
88.         Set Rng = Selection
    
89.         Set Rng = Rng.CurrentRegion
    
90.         Debug.Print Rng.Address
    
91.         For ii = 1 To Rng.Rows.Count
    
92.             If Rng(ii, 1) <> "" Then
    
93.                  Str = Str & """" & Rng(ii, 1) & ""","
    
94.                  Str1 = Str1 & Rng(ii, 2) & ","
    
95.             End If
    
96.         Next ii
    
97.         Str = Left(Str, Len(Str) - 1) & ")"
    
98.         Debug.Print Str
    
99.         Debug.Print Str1
    
100. End Sub
     
101. 
     
102. 
     
103. Sub l4()
     
104.    Dim eArr, numArr, ii
     
105.       eArr = Array("Red", "Bright Green", "Blue", "Yellow", "Pink", "Turquoise", "Green", "Violet", "Teal", "Gray-25%", "Gray-50%", "Periwinkle", "Plum+", "Ivory", "Lite Turquoise", "Dark Purple", "Coral", "Ocean Blue", "Ice Blue", "Dark Blue+", "Pink+", "Yellow+", "Turquoise+", "Blue+", "Sky Blue", "Light Turquoise", "Light Green", "Light Yellow", "Pale Blue", "Rose", "Lavender", "Tan", "Light Blue", "Aqua", "Lime", "Gold", "Light Orange", "Orange", "Blue-Gray", "Gray-40%", "Sea Green", "Brown", "Plum", "Indigo")
     
106.       numArr = Array(255, 65280, 16711680, 65535, 16711935, 16776960, 32768, 8388736, 8421376, 12632256, 8421504, 16751001, 6697881, 13434879, 16777164, 6684774, 8421631, 13395456, 16764108, 8388608, 16711935, 65535, 16776960, 16711680, 16763904, 16777164, 13434828, 10092543, 16764057, 13408767, 16751052, 10079487, 16737843, 13421619, 52377, 52479, 39423, 26367, 10053222, 9868950, 6723891, 13209, 6697881, 10040115)
     
107.    Dim Sht As Worksheet, Rng As Range
     
108.        Set Sht = Sheet2
     
109.        For ii = 0 To UBound(eArr)
     
110.             Set Rng = Sht.Cells(ii + 6, 10)
     
111.             Rng = numArr(ii)
     
112.                  Rng(, 5) = Rng Mod 256
     
113.            Rng(, 6) = Rng \ 256 Mod 256
     
114.            Rng(, 7) = Rng \ 65536 Mod 256
     
115.       
     
116.             
     
117.             Rng.Interior.Color = RGB(Rng Mod 256, Rng \ 256 Mod 256, Rng \ 65536 Mod 256)
     
118.             'Stop
     
119.        Next ii
     
120. End Sub
     

复制代码

ning84

Ppt应用

1. Sub l4()
   
2.    Dim eArr, numArr, ii
   
3.       eArr = Array("Red", "Bright Green", "Blue", "Yellow", "Pink", "Turquoise", "Green", "Violet", "Teal", "Gray-25%", "Gray-50%", "Periwinkle", "Plum+", "Ivory", "Lite Turquoise", "Dark Purple", "Coral", "Ocean Blue", "Ice Blue", "Dark Blue+", "Pink+", "Yellow+", "Turquoise+", "Blue+", "Sky Blue", "Light Turquoise", "Light Green", "Light Yellow", "Pale Blue", "Rose", "Lavender", "Tan", "Light Blue", "Aqua", "Lime", "Gold", "Light Orange", "Orange", "Blue-Gray", "Gray-40%", "Sea Green", "Brown", "Plum", "Indigo")
   
4.       numArr = Array(255, 65280, 16711680, 65535, 16711935, 16776960, 32768, 8388736, 8421376, 12632256, 8421504, 16751001, 6697881, 13434879, 16777164, 6684774, 8421631, 13395456, 16764108, 8388608, 16711935, 65535, 16776960, 16711680, 16763904, 16777164, 13434828, 10092543, 16764057, 13408767, 16751052, 10079487, 16737843, 13421619, 52377, 52479, 39423, 26367, 10053222, 9868950, 6723891, 13209, 6697881, 10040115)
   
5.    Dim Pres As Presentation, Sld As Slide, Shp As Shape
   
6.        Set Pres = Application.ActivePresentation
   
7.        Set Sld = Pres.Slides(3)
   
8.        For ii = 1 To Sld.Shapes.Count
   
9.              Set Shp = Sld.Shapes(ii)
   
10.              Shp.Fill.ForeColor.RGB = 16777164
    
11.        Next ii
    
12.        Stop
    
13.       
    
14.        For ii = 0 To UBound(numArr)
    
15.             Set Shp = Sld.Shapes(ii + 1)
    
16.             Shp.Fill.ForeColor.RGB = numArr(ii)
    
17.             Shp.TextFrame.TextRange.Text = eArr(ii)
    
18.        Next ii
    
19. End Sub
    
20. 
    

复制代码