EXCEL-VBA:根据单元格字体、背景颜色计数、求和

VBA 同时被 2 个专栏收录
40 篇文章 2 订阅
51 篇文章 1 订阅

1、EXCEL-开发工具中Visual Basic


2、Sheet1上右键插入模块



3、代码粘贴

Function CountByBGColor(Col As Range, CountRange As Range) '根据背景颜色计数
Application.Volatile
'用于将用户自定义函数标记为易失性函数,无论何时在工作表的任意单元格中进行计算时,易失性函数都必须重新进行计算。
'非易失性函数只在输入变量改变时才重新计算,若不用于计算工作表单元格的用户自定义函数中,则此方法无效。

Dim iCell As Range
CountByBGColor = 0
For Each iCell In CountRange
    If iCell.Interior.Color = Col.Interior.Color Then
        CountByBGColor = CountByBGColor + 1
    End If
Next

End Function

Function SumByBGColor(Col As Range, SumRange As Range) '根据背景颜色求和
Application.Volatile

Dim iCell As Range
SumByBGColor = 0
For Each iCell In SumRange
    If iCell.Interior.Color = Col.Interior.Color Then
        SumByBGColor = SumByBGColor + Application.WorksheetFunction.Sum(iCell)
    End If
Next

End Function

Function CountByFontColor(Col As Range, CountRange As Range) '根据字体颜色色计数
Application.Volatile

Dim iCell As Range
CountByFontColor = 0
For Each iCell In CountRange
    If iCell.Font.Color = Col.Font.Color Then
        CountByFontColor = CountByFontColor + 1
    End If
Next

End Function

Function SumByFontColor(Col As Range, SumRange As Range) '根据字体颜色求和
Application.Volatile

Dim iCell As Range
SumByFontColor = 0
For Each iCell In SumRange
    If iCell.Font.Color = Col.Font.Color Then
        SumByFontColor = SumByFontColor + Application.WorksheetFunction.Sum(iCell)
    End If
Next

End Function

5、四个函数的,第一个参数是格式参照的单元格,第二个参数是求和或计数的区域。

   例:=SumByFontColor(J45,M35:P41)

  • 2
    点赞
  • 1
    评论
  • 7
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

完整清晰版 PDF ,有目录。共 270MB,分为 2 个分卷 中文版Excel 2007 高级VBA编程 宝典 OFFICE2007 中文版Excel 2007高级VBA编程宝典 原价:99.99元 作者:(美)沃肯巴赫(Walkenbach,J) 著;冯飞,焦瑜净 译 出版社:清华大学出版社 出版日期:2009-2-1 ISBN:9787302194675 字数:1294000 页码:872 编辑推荐 -------------------------------------------------------------------------------- “电子表格先生”潜心力作,世界级Excel畅销书。   “千锤百炼”的Excel畅销书    没有人比“电子表格先生”更了解Excel 2007。本书涵盖了使用VBA 扩展Excel 功能的方法、提示和思想。Excel 2007 还有一些绝秘的新技巧,John Walkenbach 将帮助您掌握它们。 本书的作者John Walkenbach 是享有国际美誉的“电子表格先生”。他在书中分享了自己15 年来使用Excel 的经验,毫无保留地传授了学习和使用Excel 的所有知识,为读者掌握Excel 提供了绝佳的途径。本书的前两个版本均已获得巨大成功,在前两版的基础上,本书升华了已有的精华,并结合Excel 2007 的全新特性,是一部技术含量高、实践性强的经典著作。 本书将介绍如何定制Excel 用户窗体、开发新实用程序、用VBA 处理图表及数据透视表,以及创建事件处理应用程序。还将介绍如何使用VBA 子过程和函数过程、与其他应用程序轻松交互、构建用户友好的工具栏、菜单和帮助系统等。 内容提要 -------------------------------------------------------------------------------- 这本全能的手册适合对Excel感兴趣的所有人群,不但内容丰富、权威,且条理清晰、结构合理。本书的作者是当之无愧的世界级Excel电子表格专家,他为读者倾心打造了这本专著,书中汇聚他15年来使用Excel的所有经验,涵盖Excel应用和VBA编程涉及的方方面面,是经典著作Excel 2003 Power Programming with VBA的全新升级版。 目录 -------------------------------------------------------------------------------- 第Ⅰ部分 Excel基础知识  第1章 Excel 2007的起源   1.1 电子表格软件的简史    1.1.1 最初的起源:VisiCalc    1.1.2 Lotus 1-2-3     1.1.3 Quattro Pro   1.1.4 Microsoft Excel   1.2 Excel 对开发人员的重要性   1.3 Excel在Microsoft 战略中的角色  第2章 Excel概述   2.1 关于对象   2.2 工作簿    2.2.1 工作表    2.2.2 图表工作表    2.2.3 XLM宏工作表    2.2.4 Excel 5/95对话框编辑表   2.3 Excel的用户界面    2.3.1 功能区的引入    2.3.2 快捷菜单    2.3.3 对话框    2.3.4 键盘快捷键    2.3.5 智能标记    2.3.6 任务窗格   2.4 自定义屏幕显示   2.5 数据录入   2.6 公式、函数和名称   2.7 选择对象   2.8 格式    2.8.1 数字格式    2.8.2 样式格式   2.9 保护选项    2.9.1 保护公式以防被重写    2.9.2 保护工作簿的结构    2.9.3 运用密码来保护工作簿    2.9.4 使用密码来保护VBA代码   2.10 图表   2.11 形状和SmartArt   2.12 数据库访问    2.12.1 工作表数据库    2.12.2 外部数据库   2.13 Internet特性   2.14 分析工具    2.14.1 分级显示    2.14.2 分析工具库    2.14.3 数据透视表    2.14.4 Solver    2.14.5 XML特性   2.15 加载项   2.16 宏和编程   2.17 文件格式   2.18 Excel的帮助系统  第3章 公式的使用技巧   3.1 公式概述   3.2 计算公式   3.3 单元格单元格区域引用    3.3.1 为什么使用不是相对的引用    3.3.2 R1C1表示
©️2021 CSDN 皮肤主题: 深蓝海洋 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值