测试我写的求单元格底色和单元格字体颜色的自定义函数

Long_III · 发表于 2005-12-31 09:36

帮我测试一下，看有没啥漏洞，代码：

vuEUrVaw.rar (7.11 KB, 下载次数: 1035) Public Function Xcolor(rng As Range, Optional x%) '计算单元格的底色和字体颜色，0为底色，其他为字体颜色 Application.Volatile If rng.Count = 1 Then If IsMissing(x) Or x = 0 Then '在工作表里输入0，或不输入参数时，显示单元格的底色 Xcolor = IIf(rng.Interior.ColorIndex = xlNone, "", rng.Interior.ColorIndex) Else Xcolor = IIf(rng.Font.Color = vbBlack, "", rng.Font.ColorIndex) End If Else Xcolor = "请选择一个单元格" End If End Function

oobird · 发表于 2005-12-31 10:00

试了，没发现任何问题，想不到这个函数可以写得那么精简，收下学习。

另有关条件格式颜色的取得，不知龙三哥有没有妙方？

Long_III · 发表于 2005-12-31 10:12

条件格式的，emily斑竹不是有一个吗，代码很复杂的，我可不会，呵呵

一会找找做个链接过来

plxmm · 发表于 2005-12-31 10:17

先瞧瞧了。

oobird · 发表于 2005-12-31 10:21

哈，emily斑竹做的我看过了，老实说…以我的水平还看不懂。所以想看看龙三哥有没有精简易懂的呀！

Long_III · 发表于 2005-12-31 10:27

给出Emliy斑竹的，没找到链接，直接给附件吧

j4A8Oh5F.rar (10.65 KB, 下载次数: 452) 我写上面的自定义函数，不需要考虑这个条件格式的，所以简化了很多。斑竹的太复杂，我也看不懂后面条件格式部分。

Long_III · 发表于 2006-1-4 09:27

帮助里有一句”IsMissing 对简单数据类型（例如 Integer或Double）不起作用，因为与Variants不同，它们没有“丢失”标志位的前提。“，照这个说，本例（一楼的）中，应该这个定义没有什么用啊？但是，如果我改这个定义为

Public Function Xcolor(rng As Range, Optional x As Variant)

反倒会出现错误，请各位朋友帮忙解解疑！谢谢

UNARTHUR · 发表于 2006-1-4 10:02

以下是引用[I]plxmm[/I]在2005-12-31 10:17:23的发言：[BR]先瞧瞧了。

chenhuafu · 发表于 2006-1-4 10:37

学习Long_III的精品，谢谢了。

yzxiongvip · 发表于 2009-5-24 16:43

又一精品，学学学学。

		自动登录	找回密码
密码			免费注册

测试 我写的求单元格底色和单元格字体颜色的自定义函数

测试我写的求单元格底色和单元格字体颜色的自定义函数