Excel完美工具箱(更新到9.7.1版,兼容07,10,13,16)多功能插件

佛山小老鼠

lpzxhjp 发表于 2012-10-3 18:43
1、56色值中，加入RGB值的代码在你代码的基础上我给你改好了，你看是否需要！
2、你的flash制作的日历工 ...

这是56色原贴的代码
http://club.excelhome.net/thread-927286-1-1.html

lpzxhjp

佛山小老鼠 发表于 2012-10-3 19:10
这是56色原贴的代码
http://club.excelhome.net/thread-927286-1-1.html

1. Sub 颜色与数字对照表()
   
2.     [A1:J30].Clear
   
3.     Dim i As Integer, MyColor As Variant, k As Integer, h As Integer
   
4.     MyColor = Array("黑色", "白色", "红色", "鲜绿色", "蓝色", "黄色", "粉红色", "青绿色", "深红色", "绿色", "深蓝色", "深黄色", "紫罗兰", "青色", "灰－25％", "灰－50％", "海螺色", "梅红色", "象牙色", "浅青绿", "深紫色", "珊瑚红", "海蓝色", "冰蓝", "深蓝色", "粉红色", "黄色", "青绿色", "紫罗兰", "深红色", "青色", "蓝色", "天蓝色", "浅青绿", "浅绿色", "浅黄色", "淡蓝色", "玫瑰红", "淡紫色", "茶色", "浅蓝色", "水绿色", "酸橙色", "金色", "浅橙色", "橙色", "蓝－灰", "灰－40％", "深青", "海绿", "深绿", "橄榄色", "褐色", "梅红色", "靛蓝", "灰－80％")
   
5.     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%")
   
6.     Range("A1:J30").Font.Size = 14
   
7.     Range("A1:J30").Font.Name = "楷体_GB2312"
   
8.     Range("A2:J2").Font.Size = 14
   
9.     Range("A2:J2").Font.ColorIndex = 5
   
10.     '    Range("A2:J2").Font.Bold = True
    
11.     [A1].Font.Size = 26
    
12.     [A1].Font.Bold = True
    
13.     [A1].Font.ColorIndex = 3
    
14.     [A2：J2] = Array("颜色显示", "颜色名", "数字值", "英文名", "RGB值", "颜色显示", "颜色名", "数字值", "英文名", "RGB值")
    
15.     k = 3
    
16.     h = 0
    
17.     For i = 1 To 28
    
18.         Cells(k, 1).Interior.ColorIndex = i    '颜色
    
19.         Cells(k, 2) = MyColor(h)    '颜色名
    
20.         Cells(k, 3) = i    '颜色值
    
21.         Cells(k, 4) = MyEColor(h)    '英文名
    
22.         c1 = Cells(k, 1).Interior.Color
    
23.         r1 = c1 Mod 256
    
24.         g1 = (c1 - r1) / 256 Mod 256
    
25.         b1 = (c1 - r1 - g1 * 256) / 256 ^ 2
    
26.         Cells(k, 5) = r1 & "," & g1 & "," & b1
    
27.         Cells(k, 6).Interior.ColorIndex = i + 28    '颜色
    
28.         Cells(k, 7) = MyColor(h + 28)    '颜色名
    
29.         Cells(k, 8) = i + 28    '颜色值
    
30.         Cells(k, 9) = MyEColor(h + 28)    '英文名
    
31.         c2 = Cells(k, 6).Interior.Color
    
32.         r2 = c2 Mod 256
    
33.         g2 = (c2 - r2) / 256 Mod 256
    
34.         b2 = (c2 - r2 - g2 * 256) / 256 ^ 2
    
35.         Cells(k, 10) = r2 & "," & g2 & "," & b2
    
36.         k = k + 1
    
37.         h = h + 1
    
38.     Next i
    
39.     [A1] = "颜色值对照表"
    
40.     Columns("A:J").HorizontalAlignment = xlLeft
    
41.     Range("A1:J1").HorizontalAlignment = xlCenterAcrossSelection
    
42.     Columns("A:J").EntireColumn.AutoFit
    
43. End Sub

复制代码

lpzxhjp

佛山小老鼠 发表于 2012-10-3 19:10
这是56色原贴的代码
http://club.excelhome.net/thread-927286-1-1.html

这是万年历，你看看，挺不错的！

佛山小老鼠

lpzxhjp 发表于 2012-10-3 19:57

56值里的RGB颜色加进去了，下一个版里就有了，万年历不好看，且上面的名字我改不了，暂时没有加，辛苦你了

liuhu2005129

重复值标识，相同的用不同颜色标识不完全。

18763964277

谢谢无私奉献

朱莉叶

楼主,播放视频的格式能不能增加mp4,flv等格式的!

qwqw8899

谢谢分享。

佛山小老鼠

Excel完美工具箱（更新到9.2.0版）------Excel多功能插件适合03，07，2010版的Excel
Excel完美工具箱2012年10月5日23:40分更新到9.2.0版
更新的内容：1.添加了56颜色值表里RGB，在单元格工具里；2.把防止看错行和列又改回单击单元格着色行和列；3.修改了多工作表合并；修改了按列拆分工作表。

375268527

下载了
谢谢分享