设为首页收藏本站|繁體中文

Excel 技巧网

 找回密码
 注册

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 6173|回复: 5

[Excel VBA] 如何按字体颜色求和

[复制链接]
发表于 2010-9-16 14:00:44 | 显示全部楼层 |阅读模式

免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

您需要 登录 才可以下载或查看,没有帐号?注册

x
请看图
如附件

如何按字体颜色求和

如何按字体颜色求和

按字体颜色求和.rar

7.03 KB, 下载次数: 59

如何按字体颜色求和

发表于 2010-9-16 14:20:43 | 显示全部楼层
用的V,其他的不会,看看是不是你要的结果! 按字体颜色求和.rar (15.61 KB, 下载次数: 56)

评分

参与人数 1魅力值 +5 收起 理由
灵鹤 + 5

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2010-9-16 14:33:44 | 显示全部楼层
  1. Function ColorSum(Area As Range, FontColorIndex As Range)
  2.     Dim Color As Variant
  3.     Dim Rng As Range
  4.     Color = FontColorIndex.Font.ColorIndex
  5.     For Each Rng In Area
  6.         If Rng.Font.ColorIndex = Color Then
  7.             ColorSum = ColorSum + Rng
  8.         End If
  9.     Next Rng
  10. End Function
复制代码

自定义函数 按字体颜色求和.rar (17.09 KB, 下载次数: 61)

评分

参与人数 1魅力值 +5 收起 理由
灵鹤 + 5 好样的

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2010-9-16 14:45:43 | 显示全部楼层
使用宏表函数求得字体颜色的代码。
增加辅助列,定义名称YS=GET.CELL(24,SHEET1!$A1)



按字体颜色求和.rar (7.74 KB, 下载次数: 34)

评分

参与人数 1魅力值 +5 收起 理由
wjc2090742 + 5 补充方法的回复。

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2012-5-16 21:35:26 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2018-4-17 08:09:40 | 显示全部楼层
怎样用
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

Excel技巧网的会员探讨问题仅代表其个人意见,与网站的立场无关。任何违反国家和地方相关法律法规的言论,本站有义务协助政府相关部门追究发言者的责任!
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者,本站之外任何单位或个人未经允许,不得将其用于商业用途。
若非原文作者,任何形式的非商业性转载必须获得Excel技巧网或作者允许,并注明作者和出处。
会员发表的帖子如涉及版权纠纷,须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问:沈学律师

Archiver|手机版|Excel技巧网 ( 闽ICP备08107682号-2 ) | 闽公网安备 35020302032608号  

GMT+8, 2018-7-23 11:53

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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