如何在VBA中编写一个自定义函数，来求出满足条件的和

vba代码可以实现，但是比较繁琐（新手），可以用office的定义名称来实现。

要借助空白区域，在空白的任意一个单元格（我的是a8）插入——名称，
（2003版本的是插入——名称，2007版本的是公式——定义名称），名称写col，引用位置上写=GET.CELL(63,Sheet2!A2:E3)，，（a2：e3表示是有颜色的区域，图中456行的颜色是我后面加的确定，）关闭，在a8处写=col，回车得到一个数字55（这个数字就是当前a2单元格的背景颜色代码），然后拖动单元格到和元数据单元格区域大小，2003版的按f9刷新，2007版的不用。然后在f2那些写=sumif（a8：e8,55,$a$1:$e$1),回车，向下拖动公式就可以了。（$a$1:$e$1表示绝对引用需要做加运算的数字区域）
图片传布上来。。。。。。

Function ac(x As Range, y As Range)
ac = 0
If x.Columns.Count <> y.Columns.Count Then
ac = "error"
End If
For i = 1 To x.Column
If x.Cells(1, i).Interior.Color = 12611584 Then
ac = ac + y.Cells(1, i)
End If
Next i
End Function
给你。 在任意单元格输入 =ac(x,y)就行了，x是带颜色的单元格区域（单行区域），y是带值的单元格区域（单行区域）

定义 累加变量
对当前行左侧的单元格进行判断，如果为蓝色，累加变量=累加变量+单元格
最后返回 累加变量

在模块中定义一个函数，不妨取名为sum_blue，rag作为Range类型的参数，函数内的代码如下：
Function sum_blue(rag As Range) As Double
Dim rag1 As Range, a As Double
a = 0
For Each rag1 In rag
If rag1.Interior.Color = vbBlue Then
a = a + Cells(5, rag1.Column)
End If
Next
sum_blue = a
End Function
返回工作表，在F2输入公式：
=sum_blue(A2:E2)
下拉至F3
则F2、F3分别求得16和6