作者：乔山办公网日期：
返回目录：excel表格制作
举例说明。
例如要做一个单元格求和的自定义函数，比知sum函数增加一个条件，就是如果单元格有删除线标记，则道不计入该单元格的数值。如图：
第一步：在visual basic模式下插入模专块，并创建自定义函数。代码如下：
Public Function mysum(qu As Range)
Dim s As Double
Dim b
mysum = 0
For Each b In qu
If b.Font.Strikethrough = False Then
mysum = mysum + b.Value
End If
Next
End Function
第二步：在c15单元格属输入公式：=mysum(C4:C14)。结果如图：
建议你在输入公式时，zhidao凡输单元格名称最好用鼠标点击，这样就不至于误输空格，确保公式的准确无误。
我估计你的公式不随填专充柄的下拉而变化，就有可能是输入公式时误输了空格，或者在全角状态输入了字母或数字，使数字格式变成了文本格式，公式不能准属确计算。
要用zdvba写函数，使用function关键字，如以下函数做回加法运算
Function jia(a, b)
jia = a + b
End Function
'在使用时像答使用普通函数一样=jia(A1,A2)
自定义zd函数 只能在VBA中定义！
例如
Function 提取数字版(a)
m = ""
For i = 1 To Len(a)
t = Val(Mid(a, i, 1))
If t <> 0 Then
m = m & t
End If
Next i
提取数字 = m
End Function
这个函数可以用来提取一个文本字符串中的阿拉权伯数字！