| 所在主题： | |
| 文件名: 求和的自定义函数.rar | |
| 资料下载链接地址: https://bbs.pinggu.org/a-1792462.html | |
本附件包括：
|
|
| 附件大小: | |
|
在使用函数sum进行求和的时候，发现单元格中如果存在错误值，取和结果就会显示错误值，于是我想自定义一个函数，使其显示求和结果，而忽略错误值！
这个自定义函数只有一个参数，是单元格range类型的参数。 欢迎大家多提意见！ Function SumNotErr(rg As Variant) As Double Dim rng As Range Dim cell As Range SumNotErr = 0 If TypeName(rg) = "Range" Then For Each rng In rg.Areas For Each cell In rng.Cells If IsNumeric(cell.Value) Then SumNotErr = SumNotErr + cell.Value End If Next cell Next rng End If Set rng = Nothing Set cell = Nothing End Function |
|
熟悉论坛请点击新手指南
|
|
| 下载说明 | |
|
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。 2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。 3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。 (如有侵权，欢迎举报) |
|
京ICP备16021002号-2 京B2-20170662号
京公网安备 11010802022788号
论坛法律顾问：王进律师
知识产权保护声明
免责及隐私声明
