如何编写条件判断的函数实现单元格变色？

作者：绿色风分类：时间：2022-08-17 浏览：116

楼主 amulee	Q：如何编写条件判断的函数实现单元格变色？ A：利用函数使单元格变色这个功能似乎不太可能实现，因为函数调用过程时，一旦遇到对象就会有问题。但可以利用事件强制执行。本例例举了一个函数 =ifcolor(Expr,ColorTrue,Cololse) 此函数类似于IF函数，当Expr成立时，当前单元格显示ColorTrue的颜色，反之显示Cololse的颜色。ColorTrue,Cololse为颜色序列号，即ColorIndex属性的值。添加一个类模块MyCls，代码如下： Public WithEvents Sht As Worksheet Public Rng As Range Public Color As Long Private Sub Sht_Calculate() On Error Resume Next Rng.Interior.ColorIndex = Color End Sub 标准模块中添加以下代码： Public FColor As MyCls Function IfColor(Expr, ColorTrue As Long, Optional Cololse) If IsMissing(Cololse) Then Cololse = xlNone Set FColor = New MyCls Set FColor.Sht = Application.Caller.Parent Set FColor.Rng = Application.Caller If Application.Evaluate(Expr) Then FColor.Color = ColorTrue Else FColor.Color = Colo*lse End If IfColor = Application.Evaluate(Expr) End Function 汗。rf被打了，请下载附件 IfColor.rar
2楼 zzmxy	原来还真可以实现啊~~阿木太厉害了，跟着学习咯
3楼清华
4楼 avel	嗯不错学习一下
5楼 bluecat2000	谢谢，学习了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表