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

vba代码可以实现，但是比较繁琐（新手），可以用office的定义名称来实现。
要借助空白区域，在空白的任意一个单元格（我的是a8）插入——名称，
（2003版本的是插入——名称，2007版本的是公式——定义名称），名称写col，引用位置上写=GETCELL(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表示绝对引用需要做加运算的数字区域）
传布上来。。。。。。

可以你其他VBA代码一样调试，比如分步执行看各步的结果等等。
具体 *** 作：先在自定义函数代码中设置断点，然后在表格公式中双击进入编辑状态，回车后这个函数会重新计算而运行代码，运行到你设置的断点处会停下来，你就可以分步调试了。

vb函数分sub（无返回值）以及function（有返回值）
简单范例
Public
Function
ss()
As
String
ss
=
"我是"
End
Function
注意，想定义的函数能够在窗体或别的模块调用，该函数必须是public的，也就是第一个关键字必须为public
function的调用很简单，直接写函数名和参数
如
msgbox
ss
而sub的调用直接call，如：
Public
Sub
ss()
ss
=
"我是"
End
Sub
调用call
ss
另外一点需要注意，调用模块定义的函数，直接写函数名。但如果调用窗体的函数，就得把窗体加上。比如，我要调用sheet1下的bb函数，则该写成
call
sheet1bb

---