代码如下:PublicFunctionMySumDimSasdoubleDimbmysum=0foreachbinquifb.font.strikethrough=falsethenmysum=mysum b.valueendifnextendfunction第二步:在单元格c15中输入公式:=mysum,为例,例如，对定义函数中的某个单元格求和，在sum函数中添加一个条件，即如果该单元格有删除线，则不会计入该单元格的值中,如图:第一步:在visualbasic模式下插入模块，从定义函数创建。
为例。例如，对定义 函数中的某个单元格求和，在sum 函数中添加一个条件，即如果该单元格有删除线，则不会计入该单元格的值中。如图:第一步:在visualbasic模式下插入模块，从定义 函数创建。代码如下:PublicFunctionMySumDimSasdoubleDimbmysum = 0 foreachbinquifb . font . strike through = false thenmysum =mysum b . valueendifnextendfunction第二步:在单元格c15中输入公式:= mysum
{1。
