[已解决]求红色单元格数目

喜欢电子表格 · 发表于 2011-9-23 20:54

本帖最后由喜欢电子表格于 2011-9-23 20:57 编辑

标号=2.zip (91.99 KB, 下载次数: 1)

无聊的疯子 · 发表于 2011-9-23 21:11

回复喜欢电子表格的帖子

自定义函数是用VBA编写的,你的表中没有编写代码,所以不能用

打开帅哥附件,按 Alt + F11 在模块1里有如下代码

Function 颜色计数(RNG As Range, A As Integer) As Long
For Each RNG1 In RNG
If RNG1.Interior.ColorIndex = A Then S = S + 1
Next
颜色计数 = S
End Function

只要把这个代码复制到你想用的工作薄的模块中,然后启用宏就能使用这个自定义函数了

喜欢电子表格 · 发表于 2011-9-23 21:23

回复无聊的疯子的帖子

什么是模块，怎样在表中运用？多谢你的解答

无聊的疯子 · 发表于 2011-9-23 21:29

回复喜欢电子表格的帖子

看图操作,先启用宏,然后按ALT +F11就可以看到代码了

07的是在编辑框处有一个"选项">点一下>选择"启用该宏"就可以了

喜欢电子表格 · 发表于 2011-9-23 21:48

回复那么的帅的帖子

结果是对的，但不会运用

喜欢电子表格 · 发表于 2011-9-23 21:51

回复无聊的疯子的帖子

你的耐心讲解，我对vba一窍不通，多谢你

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