设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1936|回复: 0
打印 上一主题 下一主题

[其它] 求助:改变单元格颜色怎么能实现自定义函数自动更新?

[复制链接]
跳转到指定楼层
1#
发表于 2008-6-24 17:21:38 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
单位统计用,编了个简单的外置函数,来实现统计单元格颜色的个数,但是发现,改变单元格颜色,函数不能自动重新计算,而且我在选项里已经选择自动重新计算,每次得按F9键才能重新计算,请教各位高手,如何解决这一问题,谢谢! 自定义函数如下:
Function countcolor(col As Range, countrange As Range)
Dim icell As Range
Application.Volatile
For Each icell In countrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex And icell.Value <> "" Then
countcolor = countcolor + 1
End If
Next icell
End Function

[ 本帖最后由 tick0701 于 2008-6-24 17:24 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-3 03:32 , Processed in 0.094319 second(s), 24 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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