下面通过一个例子来学习简单的编写自定义函数

例：下面表格中需要计算一些三角形的面积

B列是底边长，C列是高，要求在D列通过公式计算三角形面积。

（通常我们会在D3单元格用公式 =B3*C3/2 来计算，然后把这个公式向D列下方拖动复制，得到其他公式。这只是一个简单的例子，通过它来学习编写简单的自定义函数）
1.1、打开VBA窗口
按ALT+F11调出VBA窗口，插入一个用户模块。
2.2、编写代码
通常自定义函数是用function命令开始的，在这个命令后面给它指定一个名字和参数
把下面这个自定义函数代码粘贴到刚插入的用户模块中就可以使用了。

Function sjxmj(di, gao)
sjxmj = di * gao / 2
End Function
这段代码非常简单只有三行，先看第一行，其中sjxmj是自己取的函数名字，括号中的是参数，也就是变量，di表示“底边长”，gao表示“高”，两个参数用逗号隔开。
再看第二行，这是计算过程，将di*gao/2这个公式赋值给sjxmj，即自定义函数的名字。
再看第三行，它是与第一行成对出现的，当你手工输入第一行的时候，第三行的end function就会自动出现，表示自定义函数的结束。
1.3、使用自定义函数
回到EXCEL窗口，我们在D3单元格中输入公式 =sjxmj(b3,c3) ，就会得到这一行的三角形面积了，它的使用方法同内置函数完全一样。
2.通过上面例子可以了解自定义函数的编写和使用方法，下面再介绍一个稍微复杂点的自定义函数。
经常对数据进行处理的朋友可以会遇到多条件查某一个数据，一般这种情况需要编写“数组公式”来解决，公式较长，也不易理解。

比如下面统计成绩的表格，需要根据A1:D7的成绩表，统计出两门功能都在90分以上的学生人数。

通常这种时候需要在H3单元格使用数组公式 =SUM(IF(($B$2:$B$7=G3)*($D$2:$D$7>=90)*($E$2:$E$7>=90),1,0))

大家可以看到在H3单元格中的公式比较长，理解起来也有一定难度。
我们通过自定义函数也可以得到正确结果，函数代码如下：
excel函数数组公式编辑方法Function 统计(a, b, c, d, e)
  For i = 1 To a.Rows.Count
    If b = a.Cells(i, 1) And a.Cells(i, c) >= e And a.Cells(i, d) >= e Then
        统计 = 统计 + 1
    End If
  Next
End Function

这个函数用了五个参数（因为涉及到一个区域和四个条件）
参数a表示要统计的区域，在此例中为B2:E7
参数b表示要统计的是哪一个班级，在此例中为G3单元格
参数c表示数学成绩相对于区域第一列向右的列数，在此例中为3
参数d表示数学成绩相对于区域第一列向右的列数，在此例中为4
参数e表示分数，在此例中为90分
提示：要注意参数c和d“相对”于“区域”的列数，并非是从A列开始向右的列数。
把上面这段代码也粘贴到用户模块中就可以使用了

回到EXCEL窗口，在H3单元格中输入公式 =统计($B$2:$E$7,G3,3,4,90) 就可以显示正确结果了。

提示：
如果我们的成绩表格式是固定的，各科目成绩位置相对于区域也是固定的，而且要统计的分数也是固定的90分，就可以在自定义函数中将参数的数量减少到两个，如下：
Function 统计2(a, b)
For i = 1 To a.Rows.Count
If b = a.Cells(i, 1) And a.Cells(i, 3) >= 90 And a.Cells(i, 4) >= 90 Then
统计 = 统计 + 1
End If
Next
End Function

在表格中的H3单元格中输入公式 =统计2（$B$2:$E$7,G3） 就可以了。

从上面可以看出，自定义函数可以使用“汉字”做为函数的名字，方便记忆，也可以根据实际情况对参数进行简化。
我要求的是台数的和，公式中总是以金额×台数来表示，单台的话无×号
举例:50×3+40+30×4            台数为3+1+4=8
        50+40×3+30×4+45      台数为1+3+4+1=9
希望高手来帮忙啊，分不多，全献上了
问题补充：
分别放在不同的单元格里是可行的，不过我想采用自定函数的形式来求和，就像SUM()一样
2010-9-16 17:22
最佳答案
Public Function getn(s)
Dim c
c = Split(Replace(s.FormulaR1C1, "=", ""), "+")
For Each i In c
  If InStr(i, "*") <> 0 Then
    getn = getn + Val(Mid(i, InStr(i, "*") + 1, 10))
  Else
    getn = getn + 1
  End If
Next
End Function

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。