Foxtable(狐表)用户栏目专家坐堂 → 生成EXCEL统计报表的时候怎么去除为0的值?


  共有12783人关注过本帖树形打印复制链接

主题:生成EXCEL统计报表的时候怎么去除为0的值?

帅哥哟,离线,有人找我吗?
dark272710
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:190 积分:1445 威望:0 精华:0 注册:2011/6/17 6:33:00
生成EXCEL统计报表的时候怎么去除为0的值?  发帖心情 Post By:2011/7/5 13:36:00 [只看该作者]

做一个简单分类计数的报表。

但是因为类目很多10*15的样子

 

单元格里的公式我是这样写的

[$总表,count(时间),(运维费用类型='安全防盗设施运维' and 上级单位='市北配送中心')]

 

但是有些项目是空的,如果全是0的话会显得太杂乱,想要做出这样的效果:如果数目为0就空着,怎么实现呢~~


 回到顶部
帅哥哟,离线,有人找我吗?
hhbb
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:386 积分:2482 威望:0 精华:1 注册:2011/5/10 11:13:00
  发帖心情 Post By:2011/7/5 14:18:00 [只看该作者]

在Excel设置储存条件为<>0

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/7/5 14:51:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") '打开模板
Book.Build() '生成细节区
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For r As Integer = 0 To Sheet.Rows.Count - 1
    For c As Integer = 0 To Sheet.Cols.Count - 1
        If sheet(r,c).Value.Tostring = "50" Then
            sheet(r,c).value = Nothing
        End If
    Next
Next
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()

 回到顶部
帅哥哟,离线,有人找我吗?
dark272710
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:190 积分:1445 威望:0 精华:0 注册:2011/6/17 6:33:00
  发帖心情 Post By:2011/7/5 15:21:00 [只看该作者]

感谢一楼~~~EXCEL好多都忘记了。。

 

右键单元格-单元格格式-自定义

设置成这样就行了~

[=0]"";G/通用格式

 

 

狐狸大大的这个。。输出后还是有0的~~


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/7/5 15:27:00 [只看该作者]

呵呵,手误。

 

If sheet(r,c).Value.Tostring = "50" Then

 

改为:

 

If sheet(r,c).Value.Tostring = "0" Then

 

就没有0了


 回到顶部
帅哥哟,离线,有人找我吗?
hhbb
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:386 积分:2482 威望:0 精华:1 注册:2011/5/10 11:13:00
  发帖心情 Post By:2011/7/5 15:32:00 [只看该作者]

这样简单些:

图片点击可在新窗口打开查看此主题相关图片如下:00.png
图片点击可在新窗口打开查看

 回到顶部