设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12
返回列表 发新帖
楼主: karoly
打印 上一主题 下一主题

如何让EXCEL表中的单元格,根据不同的文本值,自动显示成不同的颜色

[复制链接]

点击这里给我发消息

11#
发表于 2007-7-21 07:07:00 | 只看该作者
4种以上的,用VBA啊



<TABLE 669pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=892 border=0 x:str>

<COLGROUP>

<COL style="WIDTH: 669pt; mso-width-source: userset; mso-width-alt: 28544" width=892>





    If Target.Column = 1 Then



        Select Case Target.Value



            Case "蓝"



                Target.Font.Color = RGB(255, 255, 255)



                Target.Interior.Color = RGB(0, 0, 255)



            Case "红"



                Target.Font.Color = RGB(255, 255, 255)



                Target.Interior.Color = RGB(255, 0, 0)



            Case "黄"



                Target.Font.Color = RGB(0, 0, 0)



                Target.Interior.Color = RGB(255, 255, 0)



            



            Case "绿"



                Target.Font.Color = RGB(0, 0, 0)

<TR 15.75pt" height=21>

<TD class=xl28 #dadce4
12#
发表于 2007-8-31 20:51:19 | 只看该作者
我正想要的东西,不错
13#
发表于 2007-9-1 13:46:33 | 只看该作者

good

good,very good
14#
发表于 2008-5-6 11:03:38 | 只看该作者
把文件压缩成RAR就可以上传了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-22 16:58 , Processed in 0.086880 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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