excel删除线的数值不求和，求大神发个宏

包稳你

excel表中，删除线的数值不求和，求大神可以写个宏给我吗？万分感谢

smileyxdz

Public Sub s()
For Each a In [c2:c11]
    If Not a.Font.Strikethrough Then Sum = Sum + a
Next
MsgBox Sum
End Sub

包稳你

smileyxdz 发表于 2020-6-18 18:45
Public Sub s()
For Each a In [c2:c11]
    If Not a.Font.Strikethrough Then Sum = Sum + a

谢谢大神。有没有方法，在合计那里560变为427的？我也不知道怎么解释，就是在合计那里，不计算删除线的数值，应该怎么做啊？

smileyxdz

包稳你 发表于 2020-6-18 19:17
谢谢大神。有没有方法，在合计那里560变为427的？我也不知道怎么解释，就是在合计那里，不计算删除线的数 ...

改成函数
Public Function s(r As Range)
For Each a In r
    If Not a.Font.Strikethrough Then Sum = Sum + a
Next
s = Sum
End Functions
单元格中输入=s("c2:c11")

smileyxdz

smileyxdz 发表于 2020-6-18 19:57
改成函数
Public Function s(r As Range)
For Each a In r

具体程序见附件

包稳你

smileyxdz 发表于 2020-6-18 20:02
具体程序见附件

谢谢大神，你帮了我个大忙啊！感谢，感谢！

包稳你

smileyxdz 发表于 2020-6-18 20:02
具体程序见附件

大神，又要麻烦你了！刚才我下载你设置好的文件，看了一下，看到汇总用了=S（C2:C11）就可以略过删除线的数值来求和，之后我拿了一份excel再试了一下，会弹出一个更新值的对话框，怎么处理？ [url=]2020.06.18改.zip[/url]

包稳你

smileyxdz 发表于 2020-6-18 20:02
具体程序见附件

大神，你好，又要麻烦你了！用了另外一个文件测试，用了你教的方法后，出现个更新值，不知道怎么解决这个更新值的文件，已经没有了。

包稳你

smileyxdz 发表于 2020-6-18 18:45
Public Sub s()
For Each a In [c2:c11]
    If Not a.Font.Strikethrough Then Sum = Sum + a

大神，拜托帮帮忙吧

smileyxdz

你这个是XLW文件，里面很多定义错误的名称，已修复