[问题解决]表中有公式。请高手帮忙优化。。。

smuynidw · 发表于 2010-7-13 22:38

因为表中有公式，实现不了隐藏空数项，请高手帮忙。。。。

[ 本帖最后由 smuynidw 于 2010-7-14 13:44 编辑 ]

smuynidw · 发表于 2010-7-13 22:55

我的意思，不知道大家明白不？

lstxyzh · 发表于 2010-7-14 00:28

不懂宏，期待能人。

名门闺秀 · 发表于 2010-7-14 07:16

跟着帖子学习一下。

chenzicheng · 发表于 2010-7-14 09:05

看你的意思，好象你也明白问题之所在，只是你没有动手试一下

你把代码中的counta换成sum试一下：
WorksheetFunction.counta 换成 WorksheetFunction.Sum

smuynidw · 发表于 2010-7-14 09:05

高手请帮忙。，。。。在线等、。、、、。、

smuynidw · 发表于 2010-7-14 09:16

原帖由 chenzicheng 于 2010-7-14 09:05 发表
看你的意思，好象你也明白问题之所在，只是你没有动手试一下
你把代码中的counta换成sum试一下：
WorksheetFunction.counta 换成 WorksheetFunction.Sum

我试了，可是1－3行没了，没了检查问题项目了。。。。。

chenzicheng · 发表于 2010-7-14 09:19

For i = 1 To ActiveSheet.UsedRange.Rows.Count

换成

For i = 5 To ActiveSheet.UsedRange.Rows.Count

zzmxy · 发表于 2010-7-14 09:22

你自己使用counta()的时候，应该自己在表格里也测试一下，到底返回的是什么值，
根据你的附件，从H到DR列，Counta()返回的都有数值，看不到有数值的列返回的均为1，
所以，建议你自己先看一下单元格内是否真的没有内容，
另外由于你填写的均为数值类型，直接使用count()函数进行判断有何不可？！
改为count()函数就可以得到你想要的结果…………自己试试吧！

		自动登录	找回密码
密码			免费注册

[原创] [问题解决]表中有公式。请高手帮忙优化。。。