举例说明。
例如要做一个单元格求和的自定义函数，比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)。结果如图：
