[求助]如何用vba获取单元格字体颜色上显示的中文字符

lirong

如何用vba获取单元格字体颜色上显示的中文字符。附图

 

Long_III

搜索一下，看有没有现成对应汉字的

northwolves

	LightPink	浅粉红	#FFB6C1	255,182,193
	Pink	粉红	#FFC0CB	255,192,203
	Crimson	猩红	#DC143C	220,20,60
	LavenderBlush	脸红的淡紫色	#FFF0F5	255,240,245
	PaleVioletRed	苍白的紫罗兰红色	#DB7093	219,112,147
	HotPink	热情的粉红	#FF69B4	255,105,180
	DeepPink	深粉色	#FF1493	255,20,147
	MediumVioletRed	适中的紫罗兰红色	#C71585	199,21,133
	Orchid	兰花的紫色	#DA70D6	218,112,214
	Thistle	蓟	#D8BFD8	216,191,216
	plum	李子	#DDA0DD	221,160,221
	Violet	紫罗兰	#EE82EE	238,130,238
	Magenta	洋红	#FF00FF	255,0,255
	Fuchsia	灯笼海棠(紫红色)	#FF00FF	255,0,255
	DarkMagenta	深洋红色	#8B008B	139,0,139
	Purple	紫色	#800080	128,0,128
	MediumOrchid	适中的兰花紫	#BA55D3	186,85,211
	DarkVoilet	深紫罗兰色	#9400D3	148,0,211
	DarkOrchid	深兰花紫	#9932CC	153,50,204
	Indigo	靛青	#4B0082	75,0,130

northwolves

	BlueViolet	深紫罗兰的蓝色	#8A2BE2	138,43,226
	MediumPurple	适中的紫色	#9370DB	147,112,219
	MediumSlateBlue	适中的板岩暗蓝灰色	#7B68EE	123,104,238
	SlateBlue	板岩暗蓝灰色	#6A5ACD	106,90,205
	DarkSlateBlue	深岩暗蓝灰色	#483D8B	72,61,139
	Lavender	熏衣草花的淡紫色	#E6E6FA	230,230,250
	GhostWhite	幽灵的白色	#F8F8FF	248,248,255
	Blue	纯蓝	#0000FF	0,0,255
	MediumBlue	适中的蓝色	#0000CD	0,0,205
	MidnightBlue	午夜的蓝色	#191970	25,25,112
	DarkBlue	深蓝色	#00008B	0,0,139
	Navy	海军蓝	#000080	0,0,128
	RoyalBlue	皇军蓝	#4169E1	65,105,225
	CornflowerBlue	矢车菊的蓝色	#6495ED	100,149,237
	LightSteelBlue	淡钢蓝	#B0C4DE	176,196,222
	LightSlateGray	浅石板灰	#778899	119,136,153
	SlateGray	石板灰	#708090	112,128,144
	DoderBlue	道奇蓝	#1E90FF	30,144,255

northwolves

http://100055.myabc.cn/home/Blog/view/6931.htm

northwolves

字体颜色代码

字体颜色	Hex值
青铜色2	A67D3D
暗金黄色	CFB53B
暗木色	855E42
白色	FFFFFF
半甜巧克力色	6B4226
长石色	D19275
橙红色	FF2400
橙色	FF7F00
春绿色	00FF7F
淡灰色	545454
淡浅灰色	CDCDCD
淡紫色	DB70DB
粉红色	BC8F8F
钢蓝色	236B8E
鲑鱼色	6F4242
海军蓝	23238E
海蓝	70DB93
海绿色	238E68
褐红色	8E236B
黑色	000000
红色	FF0000
黄绿色	99CC32
黄色	FFFF00
黄铜色	B5A642
灰色	C0C0C0
火砖色	8E2323
金色	CD7F32
桔黄色	E47833
蓝色	0000FF
蓝紫色	9F5F9F
冷铜色	D98719
李子色	EAADEA
亮金色	D9D919
亮天蓝色	38B0DE
猎人绿	215E21
绿色	00FF00
麦黄色	D8D8BF
牡丹红	FF00FF
霓虹粉红	FF6EC7
霓虹篮	4D4DFF
浓深棕色	5C4033
浅钢蓝色	8F8FBD
浅灰色	A8A8A8
浅蓝色	C0D9D9
浅绿色	8FBC8F
浅木色	E9C2A6
巧克力色	5C3317
青黄色	93DB70
青色	00FFFF
青铜色	8C7853
森林绿	238E23
珊瑚红	FF7F00
深藏青色	2F2F4F
深橄榄绿	4F4F2F
深兰花色	9932CD
深绿	2F4F2F
深绿松石色	7093DB
深铅灰色	2F4F4F
深石板蓝	6B238E
深铜绿色	4A766E
深紫色	871F78
深棕	5C4033
深棕褐色	97694F
石板蓝	007FFF
石板蓝色	ADEAEA
石灰绿色	32CD32
石英色	D9D9F3
士官服蓝色	5F9F9F
天蓝	3299CC
铜绿色	527F76
铜色	B87333
土黄色	9F9F5F
土灰玫瑰红色	856363
鲜黄色	DBDB70
新深藏青色	00009C
新棕褐色	EBC79E
猩红色	BC1717
艳粉红色	FF1CAE
艳蓝色	5959AB
银色	E6E8FA
印度红	4E2F2F
赭色	8E6B23
中春绿色	7FFF00
中海蓝色	32CD99
中海绿色	426F42
中兰花色	9370DB
中蓝色	3232CD
中绿松石色	70DBDB
中木色	A68064
中森林绿	6B8E23
中石板蓝色	7F00FF
中鲜黄色	EAEAAE
中紫红色	DB7093
紫红色	D8BFD8
紫蓝色	42426F
紫罗兰红色	CC3299
紫罗兰色	4F2F4F
棕褐色	DB9370
棕色	A67D3D

[此贴子已经被作者于2007-5-11 11:58:35编辑过]

shizx98

谢谢狼版主！

lirong

northwolves

我得到的只是一个索引值哦，如果要得到hex值怎么办？？？

northwolves

Sub macro1()
MsgBox Hex([a1].Font.Color)
End Sub

http://www.cndevx.com/Article/ShowArticle.asp?ArticleID=3798