Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 5251|回复: 8

设置颜色模板

[复制链接]
发表于 2010-9-28 17:19 | 显示全部楼层 |阅读模式

修改色彩到指定位置代码

Sub SetMyColor()
    ActiveWorkbook.Color(1) = RGB(0,0,0)
    ActiveWorkbook.Color(53) = RGB(0,0,0)
    ActiveWorkbook.Color(52) = RGB(0,0,0)
    ActiveWorkbook.Color(51) = RGB(0,0,0)
End Sub
VBA代码颜色表(填充单元格颜色语句:Range(“a1").Interior.ColorIndex = n  'n为下列代码号)

 

色彩位置
1
53
52
51
49
11
55
56



9
46
12
10
14
5
47
16
3
45
43
50
42
41
13
48
7
44
6
4
8
33
54
15
38
40
36
35
34
37
39
2
        
17
18
19
20
21
22
23
24
图表填充
25
26
27
28
29
30
31
32
图表线条

下面的图片时颜色与RGB的代码对应表,很喜欢收藏在这里啦

设置颜色模板

设置颜色模板

[此贴子已经被作者于2010-9-28 17:21:27编辑过]
发表于 2010-9-28 17:51 | 显示全部楼层
回复

使用道具 举报

发表于 2010-9-29 13:38 | 显示全部楼层
回复

使用道具 举报

发表于 2010-10-5 15:18 | 显示全部楼层

收藏备用了!谢谢楼主分享!
回复

使用道具 举报

发表于 2010-10-6 20:19 | 显示全部楼层

哦 有点难度。。不经常用
回复

使用道具 举报

发表于 2010-10-6 22:47 | 显示全部楼层

学习
回复

使用道具 举报

发表于 2011-3-12 11:10 | 显示全部楼层
要如何使用啊
回复

使用道具 举报

发表于 2011-11-7 22:49 | 显示全部楼层
楼主能否再详细点?
回复

使用道具 举报

发表于 2011-11-17 08:28 | 显示全部楼层
谢谢楼主分享
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-16 16:50 , Processed in 0.223215 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表