Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
dark272710 发表于:2011/7/5 13:36:00

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

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

 

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

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

 

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

2楼
hhbb 发表于:2011/7/5 14:18:00
在Excel设置储存条件为<>0
3楼
狐狸爸爸 发表于: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()
4楼
dark272710 发表于:2011/7/5 15:21:00

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

 

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

设置成这样就行了~

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

 

 

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

5楼
狐狸爸爸 发表于:2011/7/5 15:27:00

呵呵,手误。

 

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

 

改为:

 

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

 

就没有0了

6楼
hhbb 发表于:2011/7/5 15:32:00
这样简单些:

图片点击可在新窗口打开查看此主题相关图片如下:00.png
图片点击可在新窗口打开查看
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03027 s, 2 queries.