excel按指定的单元格颜色进行计数或求和

office教程网 2024-07-24 19:25:14

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要： 如果Excel工作表的某区域中包含不同的底纹颜色，我们可以用一个自定义函数对该区域按指定的单元格颜色进行计数或求和。方法是：
1.按Alt F11，打开VB...

如果Excel工作表的某区域中包含不同的底纹颜色，我们可以用一个自定义函数对该区域按指定的单元格颜色进行计数或求和。方法是：

1.按Alt F11，打开VBA编辑器。

2.单击菜单“插入→模块”，将插入名称为“模块1”的模块，在右侧的代码窗口中输入下列代码：

Function SumByColor(Ref_color As Range, Sum_range As Range)
Application.Volatile
Dim iCol As Integer
Dim rCell As Range
iCol = Ref_color.Interior.ColorIndex
For Each rCell In Sum_range
If iCol = rCell.Interior.ColorIndex Then
SumByColor = SumByColor rCell.Value
End If
Next rCell
End Function

Function CountByColor(Ref_color As Range, CountRange As Range)
Application.Volatile
Dim iCol As Integer
Dim rCell As Range
iCol = Ref_color.Interior.ColorIndex
For Each rCell In CountRange
If iCol = rCell.Interior.ColorIndex Then
CountByColor = CountByColor 1
End If
Next rCell
End Function

上述两个自定义函数，一个是SumByColor，可以对区域按指定单元格的颜色求和。另一个是CountByColor，可以统计区域中某种颜色的个数。这两个自定义函数都有两个参数，前一个参数指定包含某种颜色的单元格，后一个参数为求和或计数区域。

excel利用VBA设置或取消打印区域
如果需要用VBA代码在Excel工作表中设置打印区域，可以用下面的方法。一、设置打印区域方法一：用PageSetup.PrintArea属性。代码如下：SubSetPrintArea()Sheet1.PageSetup.PrintArea=A1:F15EndSub上述代码

3.关闭VBA编辑器。

使用方法：假如要求和或计数的区域在A1:B10区域中。